SQL構文のエラーについて

Question

はじめまして。AKI_TADAと申します。
社内でACCESSVBAを使用した自動発注システムを作成している最中です。
今現在、フォームにある削除ボタンでレコード削除を行うプログラムを作成しております。
しかし、 Set Rst = db.OpenRecordset(strSQL, dbOpenDynaset)の部分で「データ型が一致しません。」というエラーが発生します。テーブルの発注ID及びフォームの発注IDのテキストボックスはいずれもテキスト形式に設定しているので一致しているはずなのですが・・・
どこに問題があるのでしょうか。

Private Sub コマンド58_Click()

Dim db As DAO.Database
Dim Rst As DAO.Recordset
Dim strData As String
Dim strSQL As String

Set db = CurrentDb
strData = CStr(Me.発注ID)     '発注IDのテキストボックスを参照
strSQL = "select * from T_〇〇商事 where 発注ID=" & strData  'T_〇〇商事テーブルから同じ発注IDのデータを取り出す。

Set Rst = db.OpenRecordset(strSQL, dbOpenDynaset)

If Rst.RecordCount = 1 Then
        With Rst
        .Edit
        Rst.Delete
        End With
End If

Rst.Close

End Sub

Answer 1

テーブルの発注ID及びフォームの発注IDのテキストボックスはいずれもテキスト形式に設定しているので一致しているはずなのですが

テキストなら、文字引用符(')が必要です。

strSQL = "select * from T_〇〇商事 where 発注ID='" & strData  & "'" 'T_〇〇商事テーブルから同じ発注IDのデータを取り出す。

Comments

[AKI_TADA]

テキスト形式の場合、文字引用符をつけないとSQLにテキスト型と認識されないんですね。
回答の通りに修正したところ、正常に作動するようになりました。ありがとうございます。