複数フィールドへ時間帯別のデータ入力
複数のフィールドに、複数行のデータを反映させようとしています。
一応、狙った通りの動作はしているのですが、動いているから良い……
というレベルにもなっていないので、思い切って質問いたしました。
T_MAINにフィールド[受付日][受付時間][キュウリ][トマト][ナス]
があり、フォームには、下記のような入力フィールドがあります。
これを登録ボタンクリックで、時間帯別でT_MAINへ複数行を一度に
反映させるには、どのようにしたら良いでしょうか。
どうか、よろしくお願いいたします。
フォーム
========================================
受付日
受付時間|キュウリ|トマト|ナス
9 | 1| 5| 8
10 | 4| 2| 6
11
12
・
・
・
[登録ボタン]
========================================
登録ボタンクリック時に実行されるVBAです。
Dim SQL1 As String
SQL1 = "INSERT INTO T_MAIN(受付日,受付時間,キュウリ,トマト,ナス)" _
& " values(テキスト1,テキスト2,テキスト3,テキスト4,テキスト5)"
DoCmd.RunSQL SQL1
Dim SQL10 As String
SQL2 = "INSERT INTO T_MAIN(受付日,受付時間,キュウリ,トマト,ナス)" _
& " values(テキスト6,テキスト7,テキスト8,テキスト9,テキスト10)"
DoCmd.RunSQL SQL2