hatena
hatena
2020/09/03 (木) 15:46:48
提示されているコードにも問題がありますが、「Sub または、Functionが・・・・」というエラーがでるなら、それは別の部分のエラーである可能性が高いですね。
そのエラーがでたときに、「デバッグ」をクリックしたときに反転表示されるコードの前後も提示してください。
とりあえず提示されている部分を修正するなら、
IF DLookup("レコードロック", "Q_顧客データ", "顧客ID=" & Me.顧客ID)= True Then
MsgBox "他人が利用中です。"
Else
DoCmd.OpenOpen "F_詳細データ", , , "顧客ID=" & Me.顧客ID
End If
通報 ...