Access2000 ADOを使ってフォーム上のデータをテーブルに書き込む

質問

質問させていただきます。
フォーム（帳票）上の複数レコードを「コマンドボタン」をクリックしたときにテーブルに書き込みたいのですが・・・以下のようなコード（一部省略）では1件目しか書き込みできません。繰り返しフォーム上の最後のレコードまで書き込むにはどうすれば良いでしょうか？ご教授願います。

RST.AddNew

RST!計上日付 = Me![計上日付]
RST!原料コード = Me![原料コード]
RST!入庫数 = Me![発注数]
RST!単価 = Me![単価]
RST!金額 = Me![金額]
RST!消費税 = Me![消費税]
RST!LotNo = Me![LotNo]

RST.Update

MsgBox "処理が終了しました。", vbInformation

回答No.2

tsukasa-12r · ベストアンサー

申し訳ないです。間違えました。

DoCmd.RunCommand acCmdRecordsGoToFirst
Do Until Me.NewRecord
　　With RST
　　　　.AddNew
　　　　...
　　　　.Update
　　End With
　　DoCmd.RunCommand acCmdRecordsGoToNext
Loop

としてください。

お礼

回答ありがとうございます。
できました。感謝いたします。

回答No.1

tsukasa-12r

「フォーム（帳票）上の複数レコード」ということは、既にテーブルにデータが入っているんですよね？
追加クエリーにした方が簡単だと思いますよ。

あえてやるなら
DoCmd.RunCommand acCmdRecordsGoToFirst
Do Until Me.NewRecord
　　DoCmd.RunCommand acCmdRecordsGoToNext
　　With RST
　　　　.AddNew
　　　　...
　　　　.Update
　　End With
Loop
という感じでしょうか。

補足

回答ありがとうございました。
上記のようにして実行したところ・・・
・２件目以降のデータは書き込まれるが、１件目が書き込まれません。
・「コマンドまたはアクション ’次のレコードへ’は無効です」が出ます。

引き続き調べてやってみます。