フォームの検索で一致データが無い場合の表示

質問

簡単なシステムを作成している初心者です。
エクセル２００３を使用しています。
コマンドウィザードを使用してVBAに入力されている状態です。

検索用のフォーム（F_番号検索）で番号を入力し(テキストボックス[番号入力欄])、検索コマンドを押し
一致した番号の情報のみ別フォーム（F_情報）に表示されます

一致した番号の情報がなくても　F_情報のフォームが開いてしまうのですが、
これを別フォームでもしくはメッセージボックスで「一致する番号はありません」等の表示
をしたいのですが上手くいきません。
どうすればいいでしょうか・・・？

Private Sub 検索_Click()
On Error GoTo Err_検索_Click

Dim stDocName As String
Dim stLinkCriteria As String

stLinkCriteria = "[番号]=" & "'" & Me![番号入力欄] & "'"
DoCmd.OpenForm "F_情報", , , stLinkCriteria

[Forms]![F_番号検索].Visible = True

Exit_検索_Click:
Exit Sub

Err_検索_Click:
MsgBox Err.Description
Resume Exit_検索_Click

End Sub

回答No.1

m3_maki · ベストアンサー

フォームを開く前に、
DLookUp で存在確認し、
無ければ処理を中止すれば良いですね。

> stLinkCriteria = "[番号]=" & "'" & Me![番号入力欄] & "'"

If IsNull(DLookUp("番号", "テーブル名", stLinkCriteria)) Then
　　MsgBox "一致する番号はありません"
　　Exit Sub
End If

> DoCmd.OpenForm "F_情報", , , stLinkCriteria

"テーブル名"は、フォームのレコードソースになっているテーブル・クエリですよ。念のため。