アクセス：挿入とループのためのSQL

Question

column1に値を挿入したいとします。同時に、各ループに対してcolumn2の値が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 

念塔2に....

Answer 1

を、私はこれを試してみましたが、それは明らかに仕事をdoesntのは、あなたのデシベルで整数/数値データ型です。私は少しあなたのコードを変更している - これは

Answer 2

がループのインデックスである場合や1：「：「1 『』

EDITの代わりに「1」の数字と」 は」を使用しないでください以下は改訂コードです。 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