親子におすすめの新型プラネタリウムとは?

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

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

<コマンドボタン(コマンド1)のイベントブローシャー>
Private Sub コマンド1_Click()

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

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

Else

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

End If

End Sub

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

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

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

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

  • HAPPY

    y504さま、

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

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

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

このQ&Aに関連する最新のQ&A

A 回答 (2件)

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

”#”をやめて試してみてください。
https://support.microsoft.com/ja-jp/kb/826763
    • good
    • 0
この回答へのお礼

y504さま、

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

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

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

こちらを参考に


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

Dcountでレコード件数を調べレコードがなければメッセージを表示します。
この回答への補足あり
    • good
    • 0
この回答へのお礼

y504さま、

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

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

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

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

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

関連するカテゴリからQ&Aを探す


人気Q&Aランキング