Microsoft Access 掲示板

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

4 コメント
views
4 フォロー
1

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

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

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