
超初心者ですが、試行錯誤で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がどうしてもうまくできません。
どのように記述すれば良いか教えて頂きたく質問させていただきました。
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
y504さま、
Dcount関数で出来ました!
フィールド条件の設定方法が間違っていたようで、再度見直したら希望するフォームとレポートが表示されるようになりました。
ありがとうございました。
y504さま、
さっそくのご回答感謝いたします。ありがとうございました。
ただ、If DCount関数を使用すると何故だか「If Count...(日付の変数.....)」と言うエラーメッセージが出て
If DCountの列が黄色くハイライトされ動作しません。
使い方が悪いのでしょうか?
非常に甘えていることは重々承知していますが、出来ましたら上記のコードにDCountのコードを追加したVBAを
教えて頂けると助かります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのフォーム上にレコード...
-
選択したチェックボックスのみ...
-
Access フォーム上でコンボボッ...
-
accessの自動更新処理をできな...
-
ACCESSのフォームからデータの...
-
ADOでRecordsetオブジェクトを...
-
入力途中の入力した値をすべて...
-
アクセスでの項目追加について...
-
アクセスでテーブルの変更内容...
-
access 条件文についての質問
-
Access 別フォームへの再クエ...
-
Access2002 フォームを閉じるた...
-
Access2000 テキストボックス...
-
Access runtimeでテーブル、ク...
-
アクセス非連結フォームのテキ...
-
アクセスのフォームのビューが...
-
Access2000で起動時にフォーム...
-
「メソッドまたはデータメンバ...
-
レコードソースのないフォーム...
-
Access2007 フォーム上データの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSのフォームからデータの...
-
アクセスのフォームのビューが...
-
Accessのフォーム上にレコード...
-
Access 別フォームへの再クエ...
-
アクセスでテーブルの変更内容...
-
アクセスでの項目追加について...
-
accessの自動更新処理をできな...
-
選択したチェックボックスのみ...
-
アクセス 0以外をカウントす...
-
ACCESSで入力フォームをHTMLフ...
-
「メソッドまたはデータメンバ...
-
Access2002 フォームを閉じるた...
-
Accessのフォームで作業領域を...
-
ADOでRecordsetオブジェクトを...
-
入力途中の入力した値をすべて...
-
Accessフォームのテキストボッ...
-
Accessのフォーム画面について
-
Accessのフォームに表示...
-
ACCESSで、フォームのレコード...
-
Access フォーム上でコンボボッ...
おすすめ情報
y504さま、
Dcount関数で出来ました!
フィールド条件の設定方法が間違っていたようで、再度見直したら希望するフォームとレポートが表示されるようになりました。
ありがとうございました。