• ベストアンサー

Access レポート作成時のフィルタのかけ方

Microsoft Accessでテーブルからレポートを作製する際のフィルターのかけ方がわかりません。 VBAにて DoCmd.OpenReport "領収記録", acPreview, , 領収日付 >= Forms!f_入力!開始日.Value, acWindowNormal を使用しており、「領収日付」は「領収記録」のフィールドの一つです。 フォーム「f_入力」のテキストボックス「開始日」で指定した日付以降のレコードのみを表示させたいのですが、 フィルタがかからず全レコードが表示されてしまいます。 「領収日付」、「開始日」共にデータ型は日付型です。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • piroin654
  • ベストアンサー率75% (692/917)
回答No.1

以下では？ DoCmd.OpenReport "領収記録", acPreview, , "[領収日付] >=#" & Me!開始日 & "#"

ubanasan
質問者

お礼

表記の通りに入力したところ、フィルタをかけることができました。 ありがとうございました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. データベース
  4. その他(データベース)

関連するQ&A

  • アクセス2007　フォームフィルターをレポートにも

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

  • Accessでレポートの項目をVBAで変更したい

    Accessのレポートで年次集計を項目が可変になるため、VBAで書き換えるようにしたのですが、うまく出来ません。 お心当たりのかたいらっしゃいましたら教えて頂けないでしょうか。 フォームの概要（売上集計） 　　　　ＯＯ年　ＯＯ年　ＯＯ年 商品Ａ　1,000 2,000 3,000　 商品Ｂ 1,500 2,500 3,500 商品Ｃ 2,500 3,500 4,500 ※年は可変です 次のようにするとフォームが開いていないと言ったエラーが出ます。 stDocName = "年別売上集計レポート" Reports(stDocName).ラベル1.Caption = cstr(Year) + "年" DoCmd.OpenReport stDocName, acPreview, "", [フィルタ] 又次のようにするとエラーは出ませんが、ラベルは書き換わりません。 stDocName = "年別売上集計レポート" DoCmd.OpenReport stDocName, acHidden, "", [フィルタ] Reports(stDocName).ラベル1.Caption = cstr(Year) + "年" DoCmd.OpenReport stDocName, acPreview, "", [フィルタ]

  • accessレポートの抽出条件

    こんにちわ。 いまaccess2000で， フォームからレポートを出力する処理をしています。 そのレポートは[コントロールソース]としてあるクエリを設定しています。 そこで， DoCmd.OpenReport "r_帳票", acPreview, , "[番号] = 'a100'" とコーディングしました。 なおレポートの[フィルタ]プロパティは"はい"にしています。 ところが，出力されたレポートには条件で抽出されずに 全件が出力されてしまいました。 抽出条件を効かせるためにはどうすれば良いでしょうか？ 教えてください。お願いします。

  • Accessのレポート印刷について教えて下さい。

    Accessのフォームでフィルタを使い絞り込んだデータをレポートで 印刷する場合について教えて下さい。 DoCmd.OpenReport "レポート名", acViewPreview, , Me.Filter では、フォームとレポートが同じレコードソースだと使えるという事ですが、 フォームとレポートのレコードソースが別の場合はどのようにすると フィルタで絞り込んだ条件のレポートを印刷できますか？ 教えて下さい。よろしくお願いします。

  • アクセス2003フィルタについて

    アクセス2003のフォーム上でボタンを押すとカレンダーが別窓で開き選択した日付をテーブル内の日付を検索もしくはフィルタが掛かるといったものを作りたいのですがどうしたらいいのでしょうか？ 現在のテーブルには日付・伝票番号・件名・処置日・処置内容といった項目があり、伝票を発行したら日付・伝票番号・件名を記入しています そして、処置が終わったら1000件あるレコードの中から、まずIs nullで処置日をフィルタを掛け(それでも何百件もあります)順に送って該当するレコードへ送って毎日入力しています これが面倒なのでうえに書いたように日付で検索もしくはフィルタで出来ないかと思いまして色々ためしたんですが… どなたかご教授していただけないでしょうか？

  • ACCESSフォームフィルタで抽出したデータのみをレポートで表示する方法

    フォームフィルターでデータを抽出した後，抽出されたデータのみをレポート上に表示させるコマンドボタンをフォーム上に作っています。 下記のコードを作成しましたが，これだと抽出前の全部のデータが表示されてしまいます。 どうしたら良いでしょうか。 Private Sub ラベルプレビュー_Click() Dim stDocName As String DoCmd.Echo False, stDocName = "rpt宛名ラベル" DoCmd.OpenReport stDocName, acViewDesign DoCmd.SelectObject acReport, stDocName, False ' Reports(stDocName).RecordSource = Me.RecordSource DoCmd.OpenReport stDocName, acViewPreview End Sub

  • Access　複数条件のフィルタ

    フォーム[F_MENU]に非連結のテキストボックス検索用A～Cで３つあります。 検索用A 検索用B 検索用C AかつBかつCという全件一致でフィルターをかけてフォーム[詳細]を開きたいのですが DoCmd.OpenForm "F_詳細", , , "A = '" & Forms!F_MENU!検索用A & "'" And "B = '" & Forms!F_MENU!検索用B & "'" And "C = '" & Forms!F_MENU!検索用C & "'" とやると、実行時エラー'13':型が一致しません。 と出てしまいます。 Aだけ、Bだけ、Cだけ、それぞれひとつずつ書けば、エラーなく結果が得られます。 DoCmd.OpenForm "F_詳細", , , "A = '" & Forms!F_MENU!検索用A & "'" DoCmd.OpenForm "F_詳細", , , "B = '" & Forms!F_MENU!検索用B & "'" DoCmd.OpenForm "F_詳細", , , "C = '" & Forms!F_MENU!検索用C & "'" おそらくANDの使い方が誤っていると思うのですが、添削お願いいたします。 全てのテキストボックス及び元テーブルのデータ型はテキスト型です。 条件は３つとも完全一致のみで、検索用ABC、F_詳細のABCそれぞれのカラムにNULL値はありません。 よろしくお願いします。

  • Access2003 マクロ　フィルタ

    こんにちは、 Access2003 マクロ　フィルタで あ行だけを抽出しなさいという命令を書いたところ、 [顧客名称(読み)] Like "[あ-お]*"と書くと正常にあ行のリストを表示 [Forms]![F_顧客リスト]![顧客名称(読み)] Like "[あ-お]*"というように[Forms]![F_顧客リスト]!を追加して書くと何も表示されなくなり正常な動作をしてくれませんでした。 いったいなぜでしょうか？ 何かお分かりの方がいましたら教えてください。 よろしくお願いします。 顧客リストから絞り込むようなフォームを作ろうとしています。 １．[F_顧客リスト]というフォームに［frm_五十音フィルタ]という［オプショングループを作成］ ２．［frm_五十音フィルタ]オプショングループ内に［tgl_あ］というトグルボタンと作成 ３．［frm_五十音フィルタ]オプショングループ内に［btn_顧客名称（読み）］というコマンドボタンと作成 ４．マクロで[条件]に[Forms]![F_顧客リスト]![frm_五十音フィルタ]=2 ［アクション]に［フィルタの実行] Where条件式に上記のように、 [顧客名称(読み)] Like "[あ-お]*"あるいは、 [Forms]![F_顧客リスト]![顧客名称(読み)] Like "[あ-お]*"と 書きました。

  • アクセスのMDEファイルでレポート印刷したい。

    MDEファイルからレポート印刷できません。 下記構文の下から４行目「acViewDesign」を開けないからだと思います。 回避しようと「acViewDesign」を省くようにいろいろ試みているのですが、 レポート印刷はできるようになっても、 レポート内容（詳細セクション）が空になってしまいます。 どなたかご教授くだされば幸いです。 よろしくお願いいたします。 ---------------------------------------------------------------------- Dim strDate As String strDate = "#" & Month(Me.txt日付) & "/" & Day(Me.txt日付) & "/" & Year(Me.txt日付) & "#" Sql = "SELECT * FROM q棚卸_結果表示 WHERE 日付 = " & strDate & " " & strWhere & "ORDER BY メーカー名, カナ" DoCmd.OpenReport "r棚卸_結果表示", acViewDesign [Reports]![r棚卸_結果表示].[RecordSource] = Sql DoCmd.OpenReport "r棚卸_結果表示", acViewPreview End Sub ----------------------------------------------------------------------

  • アクセスについてです（レポート）

    フォームからレポートを開く時に、 ＶＢＡでコントロールにコントロールソースを指定したいのですが どうやらエラーになってしまうようです。 フォームからではなく手動でレポートを開く場合は エラーにはなりません。 レポートのレコードソースは、T_testを指定していて、 その上にあるコントロールは非連結で指定したコントロールソースをｖｂａで入れたいです。 なので、レポートのLoadイベントで Private Sub Report_Load() Me.テキスト0.ControlSource = "8月" End Sub として、手動でレポートを開く分には問題ないのですが このコードのまま、フォームから Private Sub コマンド0_Click() DoCmd.OpenReport "レポート1", acViewPreview End Sub とすると、Me.テキスト0.ControlSource = "8月"で、 実行時エラー2191 印刷プレビュー時または印刷を開始した後は コントロールソースプロパティを設定できません。 のエラーが発生します。 フォームから Private Sub コマンド0_Click() DoCmd.OpenReport "レポート1", acViewDesign End Sub とすると、レポートのLoadイベントが発生しませんでした。 ご回答よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する