Microsoft Access 掲示板

検索した日付のデータがない場合、メッセージボックスを使ってエラーを出したい

4 コメント
views
4 フォロー

お世話になります。

早速ですが、質問させてください。
日付で簡単に検索できるようにボタンを設置しました。
マクロは「コントロールの移動」と「レコードの検索」を使用してます。

これで、同じページにある、検索窓口の該当データに
ジャンプできるようになっています。

私は、この検索を日付で行うようにしてます。
わかりづらいですね。

2019/01/28と検索窓口に入力すると、
同フォームの2019/01/28のデータにジャンプという形です。

この際、2019/01/28にデータ入力されてなかった場合、
メッセージボックスを出して該当データがありませんと
メッセージを出したいと思っております。

どのようにしたら、
いいのか分かりそうで分からなかったので、
ここで質問させてください。

書きながらも頭が混乱してます。
お手数ですが、お返事お待ちしております。

ワッフル
作成: 2020/10/29 (木) 19:05:11
通報 ...
1

マクロでやりたいですか。
VBAはわかりますか。
そろそろ、マクロからVBAへ移行しようという気持ちはありますか。

今回の質問内容から判断するにそろそろVBAへ移行すべきレベルにきているように感じます。

2

マクロだと下記の画像のようにすればいいでしょう。

画像1

3
hatena 2020/10/29 (木) 20:30:07 修正

ちなみに、前期のマクロをVBAに翻訳すると下記のよにうなコードになります。

Private Sub コマンド9_Click()
    Me.日付.SetFocus
    DoCmd.FindRecord Me.検索窓口, acAnywhere
    If Me.日付 = Me.検索窓口 Then
    Else
        MsgBox "該当データがありません"
    End If
End Sub
4
ワッフル 2020/10/31 (土) 17:21:18 3b34d@7602d

ご丁寧かつ迅速なご返答をありがとうございます。
ご指導いただいたように試してみたいと思います。

またわからなかったら、質問させてください。
ありがとうございます。