Data from text box through loop

[sukhjinder]

I AM USING THE FOLLOWING CODE WITH THIS THE PROGRAM IS RUNNING BUT it is showing the text boxes empty

Private Sub cmdsave_Click()
Dim sSQL As String
Dim i As Integer


Dim data As Double
Dim mode As Integer

For i = 1 To 7
data = txtde & i
mode = cbo & i
sSQL = "INSERT INTO tbl_data (dataentry,mode )"
sSQL = sSQL & " VALUES(" & data & "," & mode & " );"
Debug.Print sSQL
Next

MsgBox "SUCCESS!!!"


End Sub

[ranman256]

this should take about 1 to 2 seconds to run.
As long as cbo is not null, textDe is not null, and both fields in the target table are numeric (not string)

[sukhjinder]

entervalueform.zip

this should take about 1 to 2 seconds to run.
As long as cbo is not null, textDe is not null, and both fields in the target table are numeric (not string)

yes this is running but the data entered by me in the text boxes is not displayed

[aytee111]

The fields on the form must be "data = Me("txtde" & i)", same for cbo.

[ranman256]

if the combo box name called cbo, and the VALUE of cbo = 6, and you want to add i to the value:
mode = cbo & i
mode = 6 + 1
mode = 7

if the combo box NAME is called cbo1, and cbo1 = 6, and you are cycling thru all cbo's 1 thru 7, then
mode = controls(cbo & 1)
mode = 6

[sukhjinder]

The fields on the form must be "data = Me("txtde" & i)", same for cbo.

Thanks aytee111 this works fine for me

[sukhjinder]

I have used aytee111 method that works perfect and no problem in cycling thru.