access2003 条件によって動作を変える

質問

フォームから入力したデータによって、テーブルからレコードを検索します。
この結果、１つ以上見つかった場合と１つも無かった場合で違う動作をさせたいのですが、どうすればいいでしょうか？

ＶＢはさっぱりなのでマクロを使ったやり方を教えてください

回答No.2

CHRONOS_0 · ベストアンサー

>１つ以上見つかった場合と１つも無かった場合
DCount関数でレコードの有無は判定できますよ

DCount("*","テーブル名","フィールド名=" & Forms!フォーム名!検索条件)=0

回答No.3

noname#22650

マクロの編集画面で[表示]→[条件]で条件を入れる列を出します。

１行目の条件の欄
DCount("*","Ta",""""" & [Ta].[Fi]=""" & [Forms]![Fo]![Tx] & """")=0

Ta テーブル名
Fi 検索するフィールド名
Fo フォーム名
Tx 条件が入ったテキストボックス名

アクションの欄
マクロの実行、レコードが無かった場合のマクロ

次の行の条件の欄
DCount("*","Ta",""""" & [Ta].[Fi]=""" & [Forms]![Fo]![Tx] & """")<>0

アクションの欄
マクロの実行、レコードが有った場合のマクロ

上記のマクロを保存して、コマンドボタン等で実行すると条件分岐できると思います。
Access2000で確認しました。2003で動かなかったらごめんなさい。

注）　" が沢山あるのは、空白や型違いのエラーを回避するためのものです。

回答No.1

popesyu

マクロだけで条件式を実行させるというのをチラッと考えてみたのですが、VBAで組むよりもよっぽど難しくさらにかなり手動での操作が必要（エラーが出ても無視して続行するとか）ということになりそうです。

より高度で複雑怪奇な手法に挑戦したいという意気込みは買いますが、やはりもっと単純なアプローチを検討すべきかと思います。