日付が1年以上経過したレコードを削除する

Access2013で、指定した日より日付が1年以上経過したレコードを自動で削除する方法です。

削除する商品テーブルです。　この廃品日フィールドが1年以上経過していると削除します。

上の商品テーブルを元にクエリを作成します。

廃品日の抽出条件に、<=DateAdd("yyyy",-1,[今日])　と入力します。

DateAdd関数は指定された加算した日付を返す関数です。

引数の"yyyy"は年を指定しています。

これで今日の日付の1年前より以前の日付を抽出することになります。

クエリを実行すると、パラメーターの入力が表示されるので、今日の日付を入力します。

今日の日付から１年以上経過した廃品日のレコードが表示されました。

これで正しく抽出されたことが確認できました。

クエリデザインに戻り、リボンの［クエリツール］－［デザイン］－クエリの種類グループの［削除］をクリックします。

これでレコードの削除に「Where」と表示されました。

クエリを実行し、今日の日付を入力します。

「2件のレコードが指定したテーブルから削除されます」と表示されるので、削除してもよければ［はい］をクリックします。

元の商品テーブルを開くと、今日の日付から1年以上経過した廃品日のレコードが削除されています。