アクセス2007 フォームフィルターをレポートにも
アクセス2007 フォームフィルターをレポートにも
フォームA---「家」データ
「家ID」 佐藤さん、斎藤さん、住所、電話等
フォームB---「家族内」データ
各家の家族構成 お父さんの誕生日、お母さんの誕生日などなど「家ID」有り
フォームBでフィルターをかけ、「家ID」を元にフォームAで該当するデータを表示させています。
----------------------------------------------------
Set rs = Forms.フォームB.RecordsetClone
Do Until rs.EOF
フィルタ = フィルタ & "," & rs!家ID
rs.MoveNext
Loop
rs.Close
フィルタ = "家ID IN (" & Mid$(フィルタ, 2) & ")"
DoCmd.OpenForm "フォームA", WhereCondition:=フィルタ,
----------------------------------------------------
※フィルタは255文字を超える場合有り
このフォームAを元に レポートC(はがき宛先)で
DoCmd.OpenReport "レポートC", acViewPreview, WhereCondition:=フィルタ(または、forms.フォームA.Filter)
とすると「フィルターが長い」とエラーになります。
OpenFormでのWhereCondition:=は長くても受け付けますが、OpenReportの方は受付ないみたいです。
リレーションの知識不足のまま、進めてきたシッペ返しが今きているのですが、
こんな場合どうしたらフォームの検索条件をレポートに反映できるでしょうか?
お礼
ありがとうございます。 教えてくださったとおりにやったらできました。 本当にありがとうございました。