SQL文のループ化について

質問

はじめまして。GUNXGUNと申します。
ACCESSのVBAにSQL文を書き込んだのですが、テーブルが更新されません。
助けてください。

実際の文ーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub 工程時間_Click()

Dim i As Integer

i = 1

For i = 1 To 5

DoCmd.RunSQL "UPDATE 全品番 iNNER JOiN 工程時間& i ON 全品番.品番 = 工程時間& i.図番 " _
& "SET 全品番.前段取り時間& i = 工程時間& i.前段取り時間& i " _
& ",全品番.正味時間& i = 工程時間& i.正味時間& i" _
& ",全品番.ロット数& i = 工程時間& i.ロット数& i" _
& ",全品番.基準在庫& i = 工程時間& i.基準在庫& i" _
& ",全品番.後段取り時間& i = 工程時間& i.後段取り時間& i;"

i = i + 1

Next

MsgBox ("完了しました。")

End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
テーブル名は、下記の6つです。
全品番 工程時間1 工程時間2 工程時間3 工程時間4 工程時間5

回答No.1

n-jun · ベストアンサー

SQLの経験は皆無ですけど、変数iの使い方ってあっているのでしょうか？

MsgBox "i"
と
MsgBox i
だと違いますよね？

お礼

n-jun様　ありがとうございました。
変数をもっと勉強します。

回答No.3

ShowMeHow

たぶん、
i = i + 1
はいらないと思います。

お礼

ShowMeHow様
ご回答ありがとうございます。

変数について、もっと勉強をして理解をしていきたいと思います。

回答No.2

ESE_SE

iが文字列として認識されています。
例えばクエリの1行目は
DoCmd.RunSQL "UPDATE 全品番 iNNER JOiN 工程時間" & i & " ON 全品番.品番 = 工程時間" & i & ".図番 " _

とQuortationの外にiを出さないと変数として認識してくれません。

あと動作には関係ありませんが、
各テーブルの項目にテーブル名と同じ番号を振ってあるのは後々取り回しが大変になると思いますよ。

お礼

ありがとうございます。
大変助かりました。

ちなみに、
各テーブルの項目にテーブル名と同じ番号を振ってあるのは後々取り回しが大変になると思いますよ。
について、良いアドバイスがありますでしょうか？