Доступ: SQL for Insert Into And Loop

Question

Я хочу вставить значение в столбец1. В то же время значение столбца2 увеличивается на 1 для каждого цикла.

Private Sub counter_Click() 
Dim strSQL As String 
Dim column2 As Integer = 1 
Do While column2 <= 1000 

strSQL = "INSERT INTO table (column1, column2) VALUES ('" & Me!Value & "', "'+1'") 
CurrentDb.Execute strSQL 

Loop 

End Sub 

Я попробовал это, но это явно не работает ....

Answer 1

Только в случае, если столбец 2 имеет тип данных числовой/Integer в вашей БД. не используйте «» с числами: «1» вместо «" +1»

EDIT: или +1, если это индекс цикла

Answer 2

- Я немного изменил код ниже - пересмотренный код. Я определяю переменную strYourValue, чтобы вы могли установить любое значение, которое вы хотите, например. из текстового поля, набора данных, выпадающего списка и т. д.

Private Sub counter_Click() 

    Dim strSQL As String 
    Dim column2 As Integer = 1 

    Dim strYourValue As String = "abc" 

    Do While column2 <= 1000 

     strSQL = "INSERT INTO table (column1, column2) VALUES ('" & strYourValue & "', '" & column2 & "')" 
     CurrentDb.Execute(strSQL) 
     column2 = column2 + 1 
    Loop 

End Sub