![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
お世話になります
■判らないこと概要
アクセスで複数のコンボボックスの連結検索させ結果をサブフォームに
出す方法がわかりません。
■参考
http://www.moug.net/tech/acvba/0060026.htm
上記の例は検索結果がテキストボックスになっていますがサブフォームが理想です。
■追加機能
1、どのコンボボックスからでも検索できる
2、コンボボックスを一つでも選ぶとサブフォームが自動で絞り込んでいく
可能かどうかもわからず質問しております、わかるかたよろしくお願い申し上げます。
No.5
- 回答日時:
たびたびすみません。
テーブルの項目を見て日付型、テキスト型があったので、これを検索条件にした時、From、Toの初期設定大変ですよね。
そこで、コンボボックスがきちんと昇順で表示されているとの前提で、フォームのオープン時のイベントプロシージャーで以下のソースでコンボボックスの最初と最後の値が取得できます。
Private Sub Form_Open(Cancel As Integer)
Me![From] = Me![コンボ1].ItemData(0)
Me![To] = Me![コンボ1].ItemData(Me![コンボ1].ListCount - 1)
Me![サブフォーム名].Requery
End Sub
itemDataは1件目が0から始まりますので注意して下さい。
この回答への補足
ありがとうございます
以前でいていたエラーは解消されましたが
他のえらーがでます(foamが見つかりません)
何度一から作り直してもうまくいかずいきずまりました。
No.4
- 回答日時:
すみません、No.3の
Private Sub コンボ0_AfterUpdate()
Me![From] = Me![コンボ1]
Me![To] = Me![コンボ1]
Me![埋め込み1].Requery
End Sub
のコンボ0はコンボ1の間違いです。
この回答への補足
返事遅れてすみません
自分のデータに置き換えようやく完成いたしました。
メールでのファイルありがとうございました。
無知な物にメールアドレスへのリスクなんて全然平気です
本当にありがとうございました
No.3
- 回答日時:
>上記の内容でコンボ1に管理番号が表示しない
コンボボックスは非連結にして、値集合ソースに「管理番号検索用」のソース:SELECT データーベース.管理番号 FROM データーベース GROUP BY データーベース.管理番号 ORDER BY データーベース.管理番号;を入れていますか?(ビルダを使用すると便利です)
サブフォームのレコードソースは問題ありません。
>コンボ1に値を入力してエンターを押すとマクロを見つけることができません。
サブフォームの名前ですが、フォームの名前をそのまま使っていませんか?ここで指定するサブフォーム/サブレポートの名前は親フォームで埋め込んだサブフォームをプロパティでみることの出来る名前になります。
マクロがみつかりませんというメッセージが出るのは、イベントプロシージャーではなくマクロを指定しているからです。直接更新後処理に書くのではなく、更新後処理でイベントプロシージャーを選択し以下のコーディングをして下さい。
Private Sub コンボ0_AfterUpdate()
Me![From] = Me![コンボ1]
Me![To] = Me![コンボ1]
Me![埋め込み1].Requery
End Sub
またわからなければ、質問下さい。
No.2
- 回答日時:
No.1です。
私の使用しているのがAccess2000なので処理が違っていたらご容赦願います。(1)親フォームにテキストボックスを追加する。
(2)サブフォームのレコードソースの抽出条件にNo.1の抽出条件を付ける。
(3)親フォーム、開くときのイベントで(1)で作成したテキストボックスへ値を転送(数値型なら、0~99999・・・、フィールドの特性によります。)し、
サブフォームをRequeryします。
me![From]=0
me![To]=99999
me![サブフォームの名前].Requery
(4)コンボボックス更新後のイベント
me![From]=me![コンボボックス名]
me![To]=me![コンボボックス名]
me![サブフォームの名前].Requery
てな感じでどうでしょうか?
この回答への補足
返事ありがとうございます
何度やってもできません下記に情報を記します。
■テーブル名:データーベース
ID オートナンバー主 キー
管理番号 数値
日付 日付/時刻型
名前 テキスト型
記事 テキスト型
■フォーム名:INDEX
コンボ1 管理番号検索用
コンボ2 日付検索用
コンボ3 名前検索用
コンボ4 記事検索用
を生成
試しにコンボ1に
更新前処理:me![From]=0me![To]=99999me![サブフォーム].Requery
更新後処理:me![From]=me![コンボ1]me![To]=me![コンボ1]me![サブフォーム].Requery
としました。
テキスト1
を生成
■サブフォーム名:サブフォーム
レコードソースに
SELECT データーベース.ID, データーベース.管理番号, データーベース.日付, データーベース.名前, データーベース.記事
FROM データーベース
WHERE (((データーベース.管理番号)>=[Forms]![INDEX]![テキスト1FROM]
And (データーベース.管理番号)<=[Forms]![INDEX]![テキスト1TO]));
としました。
今までずっとやってましたができません;;
エラーになります。
再度ご教授くださいお願いします
■エラー及び不具合箇所
上記の内容でコンボ1に管理番号が表示しない
コンボ1に値を入力してエンターを押すと
'me![From]=0me![To]=99999me!サブフォーム'マクロを見つけることができません。
とでます。
宜しくお願い申し上げます
No.1
- 回答日時:
各コンボボックスに対し可視=いいえでFrom・Toのテキストボックスを作成し、初期値として、From=最小値、To=最大値をVBAで送り込みます。
サブフォームの元となるクエリに抽出条件を
>=[Forms]![親フォーム名]![テキストボックスFROM] And <=[Forms]![親フォーム名]![テキストボックスTO]
と付けておきます(いくつでもフィールドは選択可能です)。
コンボボックスが選択されるる度に、更新後処理でFrom=コンボボックスの値、To=コンボボックスの値を送り込み、サブフォームをRequeryすれば、該当するデータの絞り込みが可能です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Access(アクセス) Access 複数条件検索の設定が上手く行きません 1 2022/07/22 20:37
- 美術・アート トレパク疑惑をかけられにくくするには ここ最近いわゆるトレパク警察のいいがかりがが厳しくなったようで 1 2023/08/21 09:59
- X(旧Twitter) Twitter検索から除外 1 2023/08/18 11:00
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
access マクロでのフィルタの解除の方法
Access(アクセス)
-
ACCESS VBA メインフォーム及びサブフォームのフィルタのクリア
Access(アクセス)
-
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
-
4
リストボックスのプロパティ「複数選択」の「標準」「拡張」の違い
Access(アクセス)
-
5
Access2010 Enterで次テキストへ移動
その他(Microsoft Office)
-
6
Access 複数条件検索の設定が上手く行きません
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのコンボボックスでリス...
-
ACCESS2000;日付と曜日...
-
ACCESSクエリ抽出条件について
-
Accessでの絞込み選択
-
ACCESS コンボボックスについて
-
Access サブフォームでの選択行...
-
X-Ripperというフリーウェアに...
-
ACCESSでVBAから選択クエリの抽...
-
エクセルで、抽出したデータだ...
-
Exitイベントから自分自身のコ...
-
PCゲーム 音声 画像 抽出方法
-
「パラメータが少なすぎます。3...
-
Access VBA acCmdSelectRec...
-
2ちゃんのレス抽出の方法
-
Access 複数フォームを...
-
AccessでIDを入力したら他の項...
-
脂質抽出におけるクロロホルム...
-
ACCESSで定型入力の〒が表示さ...
-
accessにexcelのセルの情報を自...
-
Access VBA サブフォームの更新
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのコンボボックスでリス...
-
Accessのコンボボックスの値が...
-
ACCESSでコンボボックスにSQLで...
-
ACCESS リストボックスの字の色...
-
帳票フォームでのあるコンボボ...
-
ACCESSクエリ抽出条件について
-
accessでのリストボックス選択...
-
コンボボックスのリスト外入力...
-
accessでオートコンプリート機...
-
Accessのコンボボックスのデフ...
-
Accessのコンボボックスの”すべ...
-
リストボックスの時はリンク先...
-
更新クエリで変数は使えない?
-
(ACCESS)フォームデータシート...
-
Accessのフォーム(コンボボッ...
-
ACCESS コンボボックスについて
-
Accessフォーム 大分類→小分類...
-
SQLサーバーからひっぱるACCESS...
-
Accessでの絞込み選択
-
Access 帳票フォームのコンボボ...
おすすめ情報