現在は【検索目的】ごとに、検索画面を作成しております
見よう見まねで作動いたしておりますが
【検索目的】を変更する場合に
現在の画面を閉じて、別な画面を立ち上げております
Private Sub メニューを閉じる_Click()
DoCmd.Quit acQuitPrompt
End Sub
Private Sub Form_Current()
End Sub
Private Sub 解除ボタン_Click()
Me.FilterOn = False
Me.検索.Value = ""
End Sub
Private Sub 検索ボタン_Click()
Me.Filter = "行先 like'" & 検索 & "'"
Me.FilterOn = True
End Sub
通報 ...