まりふのひと

サブフォームからメインフォームの Sub を呼び出す

サブフォームに次のモジュールを作った。

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 にしたら動いたッ