AccessのVBAでSQLのINSERTを使い複数フィールドのレコードを追加｜フォーム実行例

フィールド名と追加する値をそれぞれコンマで区切る

INSERT INTO 追加先テーブル名（追加先フィールド名1,追加先フィールド名2,追加先フィールド名3） VALUES （追加する値1,追加する値2,追加する値3）
複数のフィールドを指定しレコードを追加する場合、フィールド名と追加する値をそれぞれコンマで区切ります。
フィールドと値の順番は対応していないといけません。

Home　

SQL Tips

サンプルソフト
「T_成績」テーブルの国語,社会,理科,算数フィールドそれぞれに、入力値をセットし追加登録します。
「国語」,「社会」,「理科」,「算数」のテキストボックスに数値を入力し、「登録」ボタンをクリックしてください。
成績データベース

Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    If Nz(Me!テキスト1, "") = "" And Nz(Me!テキスト2, "") = "" And _
        Nz(Me!テキスト3, "") = "" And Nz(Me!テキスト4, "") = "" Then
        MsgBox "データが入力されていません。"
        Exit Sub
    End If
    SQL = "INSERT INTO T_成績 (国語,社会,理科,算数) " & _
        "VALUES (" & Nz(Me!テキスト1, "") & "," & Nz(Me!テキスト2, "") & "," & Nz(Me!テキスト3, "") & "," & Nz(Me!テキスト4, "") & ")"
    CurrentDb.Execute SQL, dbFailOnError
End Sub

サンプルソフトのダウンロード

Home　

SQL Tips