サブフォームからフィルターをかけてフォームを開く
- テーブル(T_弁護士)とテーブル(T_案件)の二つを作成し、それを基にして、それぞれ(F_弁護士)と(F_案件)があります。F_弁護士フォームにはサブフォームを作成してそこにT_案件のうち個々の担当する案件の一覧をデータシート形式で表示させています。
- サブフォーム(SF_弁護士から案件のサブフォーム)はクエリー(Q_弁護士から案件)を基にしたフォームで、そこではT_弁護士の氏名フィールドを対T_案件の担当者名でリレーションシップを組み、T_案件の案件名の抽出条件を設定して、複数の案件の一覧を表示させています。
- クリック時の埋め込みマクロでフォームを開く[F_案件]、Where条件式[ID]=[Forms]![SF_弁護士から案件のサブフォーム]![ID]としたところ、パラメーターの入力を求められる問題があります。解消方法を模索しています。
- ベストアンサー
サブフォームからフィルターをかけてフォームを開く。
いつもお世話になっております。 テーブル(T_弁護士)とテーブル(T_案件)の 二つを作成し、それを基にして、 それぞれ(F_弁護士)と(F_案件)があります。 F_弁護士フォームにはサブフォームを作成して そこにT_案件のうち個々の担当する案件の一覧を データシート形式で表示させています。 このサブフォームはクエリー(Q_弁護士から案件)を 基にしたフォーム(SF_弁護士から案件のサブフォーム)で、 そのクエリーではT_弁護士とT_案件を T_弁護士の氏名フィールドを(1) 対 T_案件の担当者名(多)でリレーションシップを組み T_案件の案件名の抽出条件 (Like "*" & [forms]![F_弁護士]![氏名] & "*")と 設定して、複数の案件の一覧を表示させています。 そして、このサブフォーム (SF_弁護士から案件のサブフォーム)の一覧から それぞれの案件IDをクリックして 個々の案件を特定し、F_案件で 表示オープンさせたいと考え、 クリック時の埋め込みマクロで フォームを開く[F_案件]、 Where条件式、 [ID]=[Forms]![SF_弁護士から案件のサブフォーム]![ID] としたところパラメーターの入力というダイアログ ボックスが出て [Forms!SF_弁護士から案件のサブフォーム!ID] というふうに いちいちIDの入力を求められます。 その都度、IDを入力すれば表示オープンさせられるのですが、 これを解消して直にクリックしたIDの案件を 表示させたいのです。 皆様、何かとお忙しいとは存じますが どうかお知恵をお貸しください。 どうぞよろしくお願いいたします。
- nonnonmue
- お礼率60% (23/38)
- Access（アクセス）
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
Where条件式を [ID]=[Forms]![F_弁護士].[Form].[SF_弁護士から案件のサブフォーム]![ID] にしてください。
その他の回答 (1)
- kkkkkm
- ベストアンサー率65% (1615/2454)
SF_弁護士から案件のサブフォーム]![ID] が間違っていなければ マクロで[F_案件]を「開く」だけにして [F_案件]のソースを Forms]![SF_弁護士から案件のサブフォーム]![ID] で絞り込む選択クエリにすればいかがですか。
補足
kkkkkm 様。 いつもありがとうございます。 クリック時の埋め込みマクロで フォームを開く際に[F_案件]と指定するだけで Where条件式には何も入れず、 [F_案件]のソースをクエリー(Q_弁護士から案件) にするということでしょうか。 すみません。理解が悪くて申し訳ないのですが まだちょっとよくわかりません。
関連するQ&A
- サブフォームのデータをそのままひっぱってきたい。
Access2002です。 T_マスタ・T_サブ・T_備考という3つのテーブルをもとに F_マスタ・F_サブ・F_備考という3つのフォームを作成しています。 F_マスタの中にF_サブをサブフォームとして設定してあります。（氏名IDでリンク） F_サブの中に、Fサブ上の情報（氏名ID・データ年）で検索をして開く F_備考を開くためのコマンドボタンを設置してあります。 そこでF_備考を開いた後に、何も検索結果が出されなかったら、 入力をするために、「入力」というボタンを設置しました。 このボタンを押すと、F_サブ上の「氏名ID」「データ年」を 自動でF_備考の同じ名前のところへ入力したいのです。 ですが、実行すると「F_サブフォームは見つからない」という旨の エラーが出てしまいます。 それならF_サブを開いてしまえと、コマンドボタン上に、 F_サブを開く設定をしたのですが、今度は 「サブフォームに設定してあるフォームは開けない」という エラーメッセージが表示されてしまいました。 サブフォームのデータをそのまま参照することはできないのでしょうか？ 実際のコードは以下のような簡単なものです。 F_備考の「入力」ボタン Me!氏名ID = Forms![F_サブ]![氏名ID] Me!データ年 = Forms![F_サブ]![データ年] どうやったらデータをひっぱってこれるのでしょうか？ 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- AC2000でフォームから入力したデータをサブフォームに表示
ID 商品名 単位 単価で商品マスタフォームを作っています。このフォーム内にサブフォームを作っておいて データが入力するたびにサブフォームへ表示させたいのですが、このときの条件としてID（オートナンバー）を降順（最新のデータが一番上になる）・データシート形式にしたいと思います。 T_商品（テーブル名） Q_商品（IDを降順としたクエリ） MF_商品（各入力テキストボックスがあるフォーム） SF_商品（MF_商品に貼り付けるサブフォーム） 降順にすると一番若いIDのデータだけがサブフォームに 表示されるのです。 requeryは必要なのでしょうか？ よろしくお願い致します。
- 締切済み
- その他(データベース)
- サブフォームにフィルタをかけたい
サブフォームにフィルタをかけたいのですが エラーになってしまいます。 下記がエラー内容です。 ---------------------------------------------------------- 実行時エラー 438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。 ---------------------------------------------------------- 細かい概要は テーブル１にフィールドがあり、 レコードには「あああ」と入力されています。 テーブル１がレコードソースとされている「フォーム（２）」をサブフォームとして 親フォーム（フォーム名：フォーム（１））に乗せました。 フォーム（１）を開いた時にフォーム（２）にフィルタをかけたいのですが うまくいきません。 オブジェクト名にカッコを付けているため、 Form_フォーム・・・・ というコードは書けないので ---------------------------------------------------------- Private Sub Form_Open(Cancel As Integer) Forms("フォーム（１）").Controls("フォーム（２）").Form.Filter = "フィールド = '" & "*あ*" & "'" Forms("フォーム（１）").Controls("フォーム（２）").FilterOn = True End Sub ---------------------------------------------------------- としています。 Forms("フォーム（１）").Controls("フォーム（２）").FilterOn = True でエラーになりますが、 この行をなくしたら、フィルタがかかりません。 どうすればサブフォームにフィルタをかける事が出来るのでしょうか？ ご教示よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- アクセスでフォームからサブフォームへの検索について
アクセスを勉強中の初心者です。是非教えて下さい。 請求書入力フォームを作成したので、別のフォームで請求書一覧を作成しています。その請求書一覧は、サブフォームにデータシート形式で[請求No.]、[年]、[月][社名]、[金額]が一覧にでるようになっています。その元になっているクエリの条件のところに、[年]→Like [Forms]![請求一覧]![年検索] & "*" [月]→Like "*" & [Forms]![請求一覧]![月検索] & "*" [社名]→Like "*" & [Forms]![請求一覧]![社名検索] & "*" を入力しています。 ここからですが、サブフォームの上に[年検索][月検索][社名検索]のコンボボックスと[検索ボタン]があって、それぞれコンボボックスから選択後、ボタンを押したら、その対象の年や月、もしくは社名に沿ったデータがサブフォームに出るようにしたいのです。検索ボタンのクリックイベント後のところにどういう命令文を書けばいいのでしょうか。マクロの再クリエなどで設定してもどうにもなりません。マクロもＶＢＡがまだ理解できていないので、教えていただければ幸いです。よろしくお願い致します。
- ベストアンサー
- その他(データベース)
- Access2007 サブフォームの新規レコードをすぐにフォームに表示させる方法
サブフォーム上で適当なレコード（IDと商品名）を選択して、そのレコードにある入力ボタンを押すと、フォームのコンボボックス上にその商品名が出るようなフォームがあります。 すでに入力済みのIDと商品名は表示されます。 ところが、サブフォーム上でIDと商品名を新規入力して入力ボタンを押すと、フォームのコンボボックスは空白となり、商品データが表示されません。 しかし、一旦フォームを閉じて開くと、データは表示されています。 IDと商品名を新規入力して、そのままフォームのコンボボックスに反映させたいと思います。 入力ボタンはこのようにやってみました。 Private Sub 入力_Click() DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Forms!フォーム!ID = Me.ID End Sub または、 Private Sub 入力_Click() DoCmd.RunCommand acCmdSaveRecord Forms!フォーム!ID = Me.ID End Sub ご教授いただければ幸いです。よろしくお願いいたします。
- ベストアンサー
- その他(データベース)
- ACCESSサブフォームにデータ反映されない
よろしくお願いします。 Access2010を使っています。 メインフォームにあるテキストボックス２つに条件を入力し、 抽出したデータをサブフォームで表示させたいと思います。 ●メインフォーム名「フォーム１」 テキストボックス２つ「tex1」「tex2」 ●データ元クエリ「q1」 フィールド名「ID1」「ID2」「Name」 ●サブフォームSQL SELECT q1.Name FROM q1 WHERE (((q1.ID1) = Forms![フォーム1]!tex1) And ((q1.ID2) = Forms![フォーム1]!tex2))); フォームを開き、tex1とtex2に入力してもサブフォーム表示が変わりません。 サブフォームをデータシートで別に開くと、データ抽出できていることは確認できました。 サブフォームのコントロールソースへSQLを入力するだけでは、 メインフォーム内でのデータは反映されないんでしょうか？？
- ベストアンサー
- オフィス系ソフト
- ACCESS2003でサブフォームを使う
すみませんが教えてください。 親フォームの中に、サブフォームを作ります。 サブフォームにはクエリの内容が表示されています。 そのサブフォームの内容を、親フォームに表示させたいです。 （サブフォームをクリックすると、親フォームの内容も切り替わる） VBAが必要なのでしょうか。 もしそうであれば、参考になるページ、もしくはコードを教えていただけるとありがたいです。 現在、親フォームのほうには [Forms]![登録内容クエリ2フォーム]![登録内容マスタのサブフォーム] ![Forms]![内容]と設定しているのですがこのままではうまくいかないのですね；； ヨロシクお願いします。
- ベストアンサー
- オフィス系ソフト
- Access2000 フォーム/サブフォームについて
質問させていただきます。 フォーム/サブフォーム形式で画面を作っています。サブフォームは帳票形式で、複数のレコードを表示しており、各行の左にコマンドボタンを用意し、それをクリックすると、更新クエリー、削除クエリーが動くようにしています。 しかし、更新、削除クエリーとも ”0件のレコード”で処理が正しく動作しません。 ちなみに、両クエリの抽出条件は・・・ [Forms]![メインフォーム]![サブフォーム]![商品コード] しかし、フォームを使わずクエリーから実行する（パラメータに条件を手入力する）と正しく動作します。 記述ミスがないか何度も見返したのですが・・・。 「サブフォームの目的の行の商品コードと一致するデータを処理する」としたいのですが・・・。
- 締切済み
- オフィス系ソフト
- Accessのメインフォームとサブフォームの使い方について
Accessにてメインフォーム（単票形式）＋サブフォーム（帳票形式）を使って進捗管理をするデータベースを作っており、新規にメインフォームで入力し、サブフォームで入力したデータを表示させてます。 サブフォームで更新したいレコードをクリックしたときにメインフォームでそのレコードを表示させるにはどのようにすればよろしいのでしょうか？
- ベストアンサー
- その他(データベース)
- GoToRecordでサブフォームを指定したい
Fフォームの中にSF詳細という名前のサブフォームを埋め込んでいます。 このサブフォームに対して、 指定したレコードに移動したいのですが DoCmd.GoToRecord acDataForm, Form_SF詳細, acGoTo, 3 DoCmd.GoToRecord acDataForm, Forms("Fフォーム").Controls("SF詳細").Form, acGoTo, 3 DoCmd.GoToRecord acDataForm, "SF詳細", acGoTo, 3 全部エラーになり、うまくいきません。 正しい記述の仕方を教えてください。
- ベストアンサー
- その他MS Office製品
お礼
わーい!! できましたぁ～。 本当にありがとうございます。 今回は、約一週間近くも悩んでいたので ほんとにうれしいです。 今後ともどうぞよろしくお願いいたします。