Microsoft Access 掲示板

Microsoft Access 掲示板

実行時エラー91

2 コメント
views
4 フォロー

お世話になります。
以下のコードで、テキストボックスtxtLIDPにL_IDを表示させることができません。
「実行時エラー91　オブジェクト変数またはWithブロック変数が設定されていない」ようなのですが、
どういうエラーなのでしょうか

Dim rs As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT MT_Product.P_ID, MT_Product.L_ID, MT_Formation.L_Name" & _
        "FROM MT_Formation " & _
        "INNER JOIN MT_Product ON MT_Formation.L_ID = MT_Product.L_ID;"

Set rs = CurrentDb.OpenRecordset(strSQL)

With rs
.FindFirst "P_ID ='" & Me.txtPID & "'"
Me.txtLIDP = .Fields("L_ID")

End With
nokonoko
作成: 2020/11/02 (月) 17:42:49
通報 ...
1
hatena 2020/11/03 (火) 09:13:33

クエリのSQLビューにstrSQLの内容を貼り付けた場合は正常に表示されますか。

下記のコードを実行するとイミディエイトウィンドウにstrSQLの内容が出力されますのでそれをコピーして貼り付けるといいでしょう。

Dim strSQL As String

strSQL = "SELECT MT_Product.P_ID, MT_Product.L_ID, MT_Formation.L_Name" & _
        "FROM MT_Formation " & _
        "INNER JOIN MT_Product ON MT_Formation.L_ID = MT_Product.L_ID;"
Debug.Print strSQL
2
nokonoko 2020/11/04 (水) 17:01:20 653a6@54883

回答ありがとうございました。
教えていただいた方法で、無事デバッグできました。（FROMの直前にスペースがありませんでした)