DAO findfirst ついて教えてください。

質問

下記のように記述し実行しているのですが、
　実行時エラー'3077'
　式の構文エラー：演算子がありません
というエラー（下記===>）がでます。別なTBLではちゃんとfindfirst
を使い結果がでているのですが、このイベントだけうまくいきません。
ちなみに、findfirst行をコメントにするとTBL１行目を読み込んでくれます。

Private Sub in_lot_no_AfterUpdate()
Dim dbDAO As DAO.Database
Dim rsDAO As DAO.Recordset
Dim wkJOUKEN As String

Set dbDAO = OpenDatabase("\\Network-SV\factory.mdb")
Set rsDAO = dbDAO.OpenRecordset("JI_NYUKAJI", dbOpenDynaset)
wkJOUKEN = "LOTNO=" & Me!in_Lot_No 　'非連結入力TXT-BOX
===>rsDAO.FindFirst wkJOUKEN

If rsDAO.NoMatch Then
MsgBox ("入荷情報が存在しません。")
Else
Me!in_nyuukaday = rsDAO![NYUKADAY]
Me!in_shubetu = rsDAO![KATASIKI]
End If
rsDAO.Close: Set rsDAO = Nothing
dbDAO.Close: Set dbDAO = Nothing
End Sub

初心者ですがよろしくお願いいたします。

回答No.1

noname#79209 · ベストアンサー

当てずっぽうですが、
wkJOUKEN = "LOTNO=" & Me!in_Lot_No 　'非連結入力TXT-BOX
は
wkJOUKEN = "LOTNO='" & Me!in_Lot_No & "'" 　'非連結入力TXT-BOX
と「'」で括らないとマズイのでは？

お礼

ありがとうございました。解決いたしました。
単純なミスですね。