DELETE FROM T_顧客 WHERE 名前= '山田花子'
上のように条件の文字列を'(単引用符)で囲みます。
この場合、名前フィールドが山田花子のレコードのみ削除されます。
サンプルソフト
「削除するコード1」に削除したい部品のコード1(文字)を入力し、「削除」ボタンをクリックすると、該当する部品IDのレコードを削除します。
入力した「コード1」が見つからない場合は、エラー等も出ず何も起こりません。
[実行前のT_部品管理テーブル]
[実行後のT_部品管理テーブル]
IDが9と15のデータがなくなっています。
[コード]
Option Compare Database
Private Sub コマンド8_Click()
Dim SQL As String
If IsNull(Me!テキスト1) Then
MsgBox "削除するコード1を入力してください。"
Exit Sub
End If
SQL = "DELETE FROM T_部品管理 WHERE コード1=
'" & Me!テキスト1 & "'"
CurrentDb.Execute SQL, dbFailOnError
End Sub
サンプルソフトのダウンロード