INSERT INTO 追加先テーブル名 (追加先日付型フィールド名) VALUES ('文字列')
上のように文字列を'(単引用符)で囲みます。
サンプルソフト
「顧客名」のテキストボックスに入力し、「実行」ボタンをクリックすると「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(
'" & Me!テキスト1 & "')"
CurrentDb.Execute SQL, dbFailOnError
End Sub
サンプルソフトのダウンロード