DBソフト ACCESS：検索フォームでヒットしないときは

質問

ACCESSで検索フォームを作り、そこにお客様IDを入れて、ヒットした場合は、別の入力用フォームが開いて、その方のデータが表示されるようにしています。

そこで教えていただきたいことがあるのですが、今の状態ですと、対象にないお客様IDを入れた場合、新規の画面が開いてしまいます。
これを開かないようにするにはどのようにすればよろしいのでしょうか。

検索フォームがどのようにして作っているかですが、クエリを作成し、お客様IDのレコードを追加し、抽出条件に「Like [forms]![お客様検索]![お客様ID] & "＊"」と入れています。フォームではお客様IDを入れて、「実行ボタン」を押すと、フォームを開くマクロが実行されるようにしています。

回答No.1

O_cyan · ベストアンサー

実行ボタンのクリック時イベントにフォームを開くだけではなく分岐をするように記述しなおせば良いのではないでしょうか。

If (DCount("[お客様ID]", "テーブル名", "[お客様ID] = [forms]![お客様検索]![お客様ID]) then 0
msgbox "該当するお客様IDがありません"
else
DoCmd.RunMacro "フォームを開くマクロ名", , ""
end if
のように

お礼

早速の回答、ありがとうございます。

ただ申し訳ないのですが、

>DCount("[お客様ID]", "テーブル名", "[お客様ID] = [forms]![お客様検索]![お客様ID]

の部分がうまくいきません。Dcountの検索数をメッセージボックスに表示するように変更してテストしてみたのですが、
０と表示されてしまいます。空白を入れた場合は、全件数の値が表示されます。

あと

>then 0

というのがよく意味が分からないのです。

回答No.3

O_cyan

>then 0というのがよく意味が分からないのです
失礼しました。

If DCount("[お客様ID]", "テーブル名", "[お客様ID] = [forms]![お客様検索]![お客様ID])=0 then
msgbox "該当するお客様IDがありません"
else
DoCmd.RunMacro "フォームを開くマクロ名", , ""
end if
の間違えです。

お礼

[forms]![お客様検索]![お客様ID]を　Me.お客様IDとしたところ、うまくいきました。
ありがとうございました。

回答No.2

DexMachina

もうひとつの手段として、検索結果を入力するフォームの「開く時(OnOpen)」イベントで、開くのをキャンセルするという方法もあります。

Private Sub Form_Open(Cancel As Integer)

　　If DCount("[お客様ID]", "お客様情報","[お客様ID]=[forms]![お客様検索]![お客様ID]") = 0 Then OpenCancel

End Sub

Private Sub OpenCancel()

　　MsgBox ("該当するお客様は登録されておりません")
　　DoCmd.CancelEvent
　　Exit Sub

End Sub

※テーブル名又はクエリ名を「お客様情報」としています※

なお、お客様IDが主キーであれば、「Like」でのあいまい検索にはしなくていい気がしますが・・・?

あと、No.の方の「DCount(～) Then 0 MsgBox ～」は、「DCount(～)=0 Then MsgBox ～」の打ち間違いではないかと思います。

> ０と表示されてしまいます。

該当のないお客様IDを入力した(→従来、新規レコードで展開されていた場合)のであれば、「0」が返されて問題ありません。

お礼

回答ありがとうございます。

O_cyanさんのやり方をちょっと変更したらできました。
お手数おかけしました。