How would you code a txtbox in Access to enter data into a Access tbl

[Nate16]

Hi

I am trying to make a txtbox for access database enter data into seperate Excel and an Access tbls....Would I have to link the two tables or would I have an easier time just doing it in code, and if I did it in code where would I start...PLEASE HELP ME! <

 

[CTOROCK]

Well if you code it:

Dim Rst As Recordset
Dim Db As Database
Set Db = CurrentDb
Set Rst = Db.OpenRecordset(&quot;Tbl_MyTable&quot;, dbOpenDynaset)
Rst.AddNew
Rst.Fields(&quot;MyField&quot = TxtBox123.Value
Rst.Fields(&quot;Any other field&quot = txtWhatever.value
Rst.update
Rst.Close

Let me know if it helps &quot;The greatest risk, is not taking one.&quot;

 

[Nate16]

Thanks but there is one problem what the code did was it only could move the text between the different fields in access rather than two different tbls. It probably could be modified to do just that... Thanks for your help and your advice....If you dance on hot coals you'll get burned....Ya it sounds pretty stupid but who ever said I could give advice

 

[Rolliee]

You can use SQL with an INSERT to take data from one table and insert it into another table. Is that what you wish to do??

Rollie@bwsys.net

 

[CTOROCK]

for 2 different tables do this:
Dim Rst As Recordset
Dim Db As Database
Set Db = CurrentDb
Set Rst = Db.OpenRecordset(&quot;Tbl_MyTable&quot;, dbOpenDynaset)
Rst.AddNew
Rst.Fields(&quot;MyField&quot = TxtBox123.Value
Rst.Fields(&quot;Any other field&quot = txtWhatever.value
Rst.update
Rst.Close

Dim Rst2 As Recordset
Dim Db2 As Database
Set Db2 = CurrentDb
Set Rst2 =Db2.OpenRecordset(&quot;Tbl_MySecondtbl, dbOpenDynaset)
Rst2AddNew
Rst2Fields(&quot;MyField&quot = TxtBox123.Value
Rst2Fields(&quot;Any other field&quot = txtWhatever.value
Rst2update
Rst2Close &quot;The greatest risk, is not taking one.&quot;