Transfer multiple textbox data to table on click

[djossh]

Hi, I have multiple textbox in my form Textbox1 to Texbox10...I need to transfer this data into Table1 with Fieldname Data1 to Data10..

Thanks.

 

[jdraw]

You could have a vba loop

(untested air code)
in a Form event with a recordset RS

Dim i as integer
for i = 1 to 10
rs!("Data" & i) = Me("textbox" & i)
next i

 

[djossh]

You could have a vba loop

(untested air code)
in a Form event with a recordset RS

Dim i as integer
for i = 1 to 10
rs!("Data" & i) = Me("textbox" & i)
next i

Thank you for your reply.. But I'm a newbie to VBA and don't really know how to write codes... here's what Im using right now.. I just want to shorten this code like what you are trying to say to me..(Can you edit this code for me?) Thanks..

Private Sub Add_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim varTextData As String
varTextData = txtbox1
varTextData = txtbox2
varTextData = txtbox3
varTextData = txtbox4
varTextData = txtbox5
varTextData = txtbox6
varTextData = txtbox7
varTextData = txtbox8
varTextData = txtbox9
varTextData = txtbox10

Set db = CurrentDb
Set rst = db.OpenRecordset("DataTbl", dbOpenDynaset)
rst.AddNew

rst!Data1 = txtbox1
rst!Data2 = txtbox2
rst!Data3 = txtbox3
rst!Data4 = txtbox4
rst!Data5 = txtbox5
rst!Data6 = txtbox6
rst!Data7 = txtbox7
rst!Data8 = txtbox8
rst!Data9 = txtbox9
rst!Data10 = txtbox10

rst.Update

End Sub