Access2013 VBA記述について

超初心者ですが、試行錯誤でAccessデータベースを作成しています。

検索用フォーム（A）にテキストボックス（テキスト１）とコマンドボタン（コマンド１）を作成し。テキスト１に検索したい数字（EQP#）を入力しコマンド１をクリックすると、クエリテーブル（Q_ABC）のレコードを探しに行って、該当するEQP#のレコードがあればレコードのすべての項目を検索結果フォーム（B）で表示させるVBAを組んでいます。

＜コマンドボタン（コマンド１）のイベントブローシャー＞
Private Sub コマンド1_Click()

If IsNull(Me.テキスト１.Value) Then

MsgBox "EQP番号を入力してくだい。"

Else

DoCmd.OpenForm "F_OOTUサマリ", acNormal, , "Forms![EQP検索Bd]![テキスト１]=[Q_ABC一覧]![EQP#]"

End If

End Sub

上記のVBAでは、テキスト１に該当するEQP#を入力してコマンドボタンをクリックすると期待するフォームが開きますが、該当しないEQP#を入力するとブランクのフォームが表示されます。

該当しないEQP#を入力した時は、フォームを表示せず「該当データが存在しません。」のようなメッセージのみ表示させるVBAがどうしてもうまくできません。

どのように記述すれば良いか教えて頂きたく質問させていただきました。
よろしくお願いします。

質問者からの補足コメント

• 

  ｙ504さま、
  
  Dcount関数で出来ました！
  フィールド条件の設定方法が間違っていたようで、再度見直したら希望するフォームとレポートが表示されるようになりました。
  
  ありがとうございました。

  No.1の回答に寄せられた補足コメントです。 補足日時：2016/06/10 11:29

No.2 ベストアンサー 回答者： y504 回答日時： 2016/06/10 10:29

こちらが関係しているかもしれません。

”#”をやめて試してみてください。
https://support.microsoft.com/ja-jp/kb/826763

この回答へのお礼

ｙ504さま、

Dcount関数で出来ました！
フィールド条件の設定方法が間違っていたようで、再度見直したら希望するフォームとレポートが表示されるようになりました。

ありがとうございました。

お礼日時：2016/06/10 11:30

No.1 回答者： y504 回答日時： 2016/06/10 08:56

こちらを参考に

http://oshiete.goo.ne.jp/qa/4187811.html

Dcountでレコード件数を調べレコードがなければメッセージを表示します。

この回答へのお礼

y504さま、

さっそくのご回答感謝いたします。ありがとうございました。
ただ、If DCount関数を使用すると何故だか「If Count...（日付の変数.....）」と言うエラーメッセージが出て
If DCountの列が黄色くハイライトされ動作しません。

使い方が悪いのでしょうか？

非常に甘えていることは重々承知していますが、出来ましたら上記のコードにDCountのコードを追加したVBAを
教えて頂けると助かります。

お礼日時：2016/06/10 09:39