ثبت اطلاعات دو TextBox در جدول (Access 2010)

[mohsen.dbnet]

با سلام خدمت دوستان و اساتید محترم

بنده تو ثبت اطلاعات دو TextBox در جدول مشکل داشتم.
کدهایی که برای ثبت انجام دادم در ادامه آمده ولی هیچ کدم اطلاعات رو ثبت نکرد. ممنون می شم کمکم کنید.


1
-----------------------------------------------
Dim insertstring As String

insertstring = "INSERT INTO Age (ID, Age) VALUES (" & txt1.Value & "," & txt2.Value & ");"

DoCmd.RunSQL insertstring



2
----------------------------------------------
Dim insertstring As String
insertstring = "INSERT INTO Age (ID, Age) VALUES ('" & _
txt1.Value & "','" & _
txt2.Value & "');"
DoCmd.RunSQL insertstring





3
-----------------------------------------------
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("Age")
With rst
.AddNew
.Fields("ID") = txt1.Value
.Fields("Age") = txt2.Value
.Update
End With

[amp_1356]

سلام. کد رو به این صورت تغییر بدید

CurrentDb.Execute " INSERT INTO
Age (ID, Age) VALUES('" & Me.txt1 & "','" & Me.txt2 & "');"

[mohsen.dbnet]

ممنون از توجهتون
اصلا چیزیرو ثبت نمی کنه.
در فایل ضمیمه دکمه Test رو اگه ببینید منظورم بهتر بیان می شه.

http://www.mediafire.com/download/cezvomcnt3vpd2x/Database1.accdb (http://www.mediafire.com/download/cezvomcnt3vpd2x/Database1.accdb)

[alirezabahrami]

سلام


DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO Age (ID, Age) VALUES ('" & txt1 & "'," & txt2 & ");"

DoCmd.SetWarnings True

[amp_1356]

سلام
من فایل رو اصلاح کردم دوتا دکمه گذاشتم که روش کار هر کدام فرق می کنه. هر دو هم درست کار می کنه. خودتون هم تست کنید

133136