サブフォームに次のモジュールを作った。
Private Sub F_dispDetail() On Error GoTo Err_F_dispDetail With Screen.ActiveForm .txt検索蔵書ID = Me.txt蔵書ID .optGroup = 2 .SetFocus Call .optGroup_AfterUpdate End With Exit_F_dispDetail: Exit Sub Err_F_dispDetail: Resume Exit_F_dispDetail End Sub
Call 文の前までは動くが、Call 文で「そう言うモジュールはない」と文句を言われた。
試行錯誤したが、動かない。以前に作成した mdb を探すしかないかぁ〜
閃いたッ! メインの Sub が Private になっているせいではないか?
結局、上のモジュールの戻し、メインの Sub を Public にしたら動いたッ