超初心者ですが、試行錯誤で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で質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Access(アクセス) Access 複数条件検索の設定が上手く行きません 1 2022/07/22 20:37
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。 2 2023/07/14 14:06
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスのフォームのビューが...
-
ACCESSのフォームからデータの...
-
アクセスでテーブルの変更内容...
-
「メソッドまたはデータメンバ...
-
Accessのフォーム上にレコード...
-
Access 別フォームへの再クエ...
-
選択したチェックボックスのみ...
-
アクセス 0以外をカウントす...
-
テキストボックス(アクセス)内...
-
ACCESSで入力フォームをHTMLフ...
-
アクセス97のテーブルを直接...
-
ACCESSで、フォームのレコード...
-
Access2002 フォームを閉じるた...
-
ACCESS(アクセス):一度の入力で...
-
他フォームのチェックボックス...
-
Access:yesの時は画像を表示、...
-
Accessフォームのテキストボッ...
-
access レコードソースを選択...
-
Accessのフォーム画面でスクロ...
-
ACCESS フォームにデータ入力で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSのフォームからデータの...
-
Accessのフォーム上にレコード...
-
選択したチェックボックスのみ...
-
アクセスでテーブルの変更内容...
-
アクセスのフォームのビューが...
-
accessの自動更新処理をできな...
-
Access 別フォームへの再クエ...
-
Accessフォームのテキストボッ...
-
ACCESSで入力フォームをHTMLフ...
-
「メソッドまたはデータメンバ...
-
帳票フォームに全レコードを表...
-
テキストボックスの値をテーブ...
-
アクセス 0以外をカウントす...
-
テキストボックス(アクセス)内...
-
Access2002 フォームを閉じるた...
-
アクセスでの項目追加について...
-
Access フォーム上でコンボボッ...
-
Accessのフォームで作業領域を...
-
入力途中の入力した値をすべて...
-
ACCESSの表形式で、レコードを...
おすすめ情報
y504さま、
Dcount関数で出来ました!
フィールド条件の設定方法が間違っていたようで、再度見直したら希望するフォームとレポートが表示されるようになりました。
ありがとうございました。