ちなみに、前期のマクロをVBAに翻訳すると下記のよにうなコードになります。
Private Sub コマンド9_Click()
Me.日付.SetFocus
DoCmd.FindRecord Me.検索窓口, acAnywhere
If Me.日付 = Me.検索窓口 Then
Else
MsgBox "該当データがありません"
End If
End Sub
通報 ...