【Access2000】ワンタッチで月を入力する方法

質問

フォームにデータを入力する際、数字の1を入力しただけで2007年1月×日を返す方法はないでしょうか？
売上の集計結果だけを入力するので1月なら何日でも構いませんが、詳細データ（日々のデータ）を使った別のテーブルと併せて最終レポートを作成するため、日付フィールドである必要があります。
変な質問で申し訳ありませんが、判る方助けてください。

回答No.2

p-applepie

売り上げの集計結果はクエリで計算ではなく手入力をされるのですか？
例えばそれを入力する時期が、当月または翌月といった感じで、
決まっていれば、フィールドの規定値を設定されるのはいかがでしょうか。

当月と決まっているなら　=date()　で開くだけで当日がセット
翌月に入力と決まっているなら
=DateSerial(Year(Date()),Month(Date())-1,1)とすれば
2月中にそのフォームを開けば、必ず2007/1/1とセットされています。
Month(Date())-1　を　Month(Date())-2とすれば　2006/12/1が
セットされます。

入力時期が決まっていないなら、月数だけを入れる年フィールドを作り
規定値をYear(Date())として月数だけを入れるフィールドを作成し、
クエリで日付の形にするのではいかがでしょうか。

回答No.1

CHRONOS_0

数字と入力したい年月との対照表を作り
コンボボックスで入力するようにすればいいのでは

ただし表示は数字になります

数字　年月
-----------
1　　2007/1/1
2　　2007/2/1
・
・
12　 2007/12/1

として
連結列を2
列幅：1；2
にします