サブフォームに次のモジュールを作った。 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 E…