AccessのVBAでSQLのINSERT INTOを使い日付フィールドの追加｜フォーム実行例

日付を#(シャープ)で囲みます

INSERT INTO 追加先テーブル名（追加先日付型フィールド名） VALUES （#日付#）
上のように日付を#(シャープ)で囲みます。

サンプルソフト
「顧客No.」,「誕生日」のテキストボックスに入力し、「実行」ボタンをクリックすると「T_名簿」テーブルに追加登録されます。
「顧客No.」は数値でないとエラーになります。
「誕生日」は、yyyy/mm/ddの形式で入力してください。

誕生日の入力

Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    If IsNull(Me!テキスト1) Then
        MsgBox "顧客No.を入力してください。"
        Exit Sub
    End If
    If IsNumeric(Me!テキスト1) = False Then
        MsgBox "顧客No.が不正です。"
        Exit Sub
    End If
    If IsNull(Me!テキスト2) Then
        MsgBox "誕生日を入力してください。"
        Exit Sub
    End If
    SQL = "INSERT INTO T_名簿 (顧客No,誕生日) VALUES(" & Me!テキスト1 & ",#" & Me!テキスト2 & "#)"
    CurrentDb.Execute SQL, dbFailOnError
End Sub

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

Home　

SQL Tips