accessのレポートについて

Question

accessのレポートについて質問です。

期限をお知らせする通知書をレポートで作成し、期限が近づいてきた人を呼びだすシステムをaccessで作成しました。
近づいてきた人だけでなく、過ぎた人に警告する通知書も作りたいのですが、期間満了日から2か月以上も経っているひとを呼びだすには
どうしたらよいでしょうか？

フォームに印刷ボタンを設置し、クリックすると期限満了から2か月たっている人の通知書レポートをプレビューで呼び出したいです。
その他必要な情報あれば教えてください。 よろしくお願い致します。

☆通知書テーブル 顧客番号：数値型 期限満了：日付型

☆通知書レポート

☆通知書フォーム

クエリでの操作ではなく、印刷ボタンをクリックするだけでプレビューが立ち上がるようにVBAでの操作にしたいです。

Comments

[sazi]

> 期限が近づいてきた人を呼びだすシステムをaccessで作成しました。
それが出来ているなら、「期間満了日から2か月以上」の条件に変更するだけで良いと思うのですが、「期間満了日から2か月以上」の求め方が分からないという事ですか？

Answer 1

VBAからレポートを開くには、DoCmd.OpenReportメソッドを使います。

DoCmd.OpenReport メソッド (Access) | Microsoft Docs

DoCmd.OpenReportメソッドの引数で抽出条件を設定することができます。

「期限満了から2か月たっている」というのは期限満了と現在日の差から判断できます。
2か月というのはちょっと面倒なので、60日たっているという条件として、
「期限満了」が現在日の60日前以前という抽出条件にすればいいでしょう。
現在日か60日前は Date()-60 で計算できます。

DoCmd.OpenReport "通知書レポート", acViewPreview, ,"期限満了<= Date()-60"

Comments

[zerobemy]

なるほど！
そういった考えになるんですね・・・
とても勉強になりました。
ありがとうございました。