Accessでの日付の表示と抽出

質問

(1)日付型の連結テキストボックスに入力し、データを保存していきたいのですが、入力するとき"2003"と年度だけ入力するだけで、"2003/10/26"と保存されていくようにしたいのですが、どのようにしたらテキストボックスに年度だけの表示&入力にできますでしょうか。

(2)クエリの年度のフィールドにおいて、現在の年度を抽出条件に入力して抽出したいのですが、抽出条件欄にどのように入力すれば現在の年度がとれますでしょうか？

大変初歩的な質問で申し訳ありませんが、よろしくお願いいたします。

回答No.1

coco1 · ベストアンサー

まず年度を算出する関数を設計する必要があります（必須ではありませんが、その方が使い回しが効きます）。
下記は一例です。
function myNendo(InDate as date) as integer
if month(InDate) < 4 then
myNendo = year(InDate) - 1
else
myNendo = year(InDate)
endif
end function

そうして、日付の入力が必要な項目には現在の日付をそのまま入力します。年度に直して格納するよりその方が色々な理由で便利です（日付の計算がシステム関数でできたり、カレンダコントロールで日付の入力ができたり。）。そうして、抽出や表示する際に年度に直せばよいでしょう。

項目名を「日付１」とすると、今年度だけを抽出するには、クエリの選択条件に「今年度:MyNendo([日付１])=2003」と入力すれば選択できます。

お礼

>>COCOさん
ありがとうございます!!!
やってみます!!!