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

レコードの追加： INSERT INTO

INSERT INTO 追加先テーブル名（追加先フィールド名） VALUES （追加する値）
テーブル内のフィールドを指定し、1レコードを追加します。

サンプルソフト

「T_アクセス」テーブルに入力されたアクセス数を追加登録します。
「アクセス数」に数値を入力し「登録」ボタンをクリックしてください。
アクセス数データベース

Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    If IsNull(Me!テキスト1) Then
        MsgBox "データが入力されていません。"
        Exit Sub
    End If
    SQL = "INSERT INTO T_アクセス (アクセス数) VALUES (" & Nz(Me!テキスト1, "") & ")"
    CurrentDb.Execute SQL, dbFailOnError
End Sub

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

Home　

SQL Tips

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

レコードの追加 ： INSERT INTO

レコードの追加： INSERT INTO