Microsoft Access 掲示板

ACCESSのフォームについて / 1

提示されているコードにも問題がありますが、「Sub　または、Functionが・・・・」というエラーがでるなら、それは別の部分のエラーである可能性が高いですね。
そのエラーがでたときに、「デバッグ」をクリックしたときに反転表示されるコードの前後も提示してください。

とりあえず提示されている部分を修正するなら、

IF DLookup("レコードロック", "Q_顧客データ", "顧客ID=" & Me.顧客ID)= True Then
    MsgBox "他人が利用中です。"
Else
    DoCmd.OpenOpen "F_詳細データ",　, , "顧客ID=" & Me.顧客ID
End If

ソース表示通報 ...

VBA (411) Office2016 (295) フォーム (259) クエリ SQL (235) Office2021 or 2019 (233) テーブル (145) レポート (134) Office2013 (64) Microsoft365 (59) Office2010 (55)

Accessのテーブルやクエリのデータを貼り付ける場合は下記で、Markdown書式のテーブルに変換して貼り付けてください。