アクセスのコンボボックスの作成方法（日付）について

アクセスのフォーム上で日付を入力するコンボボックスを作成したいのですが、作成方法がわかりません。どなたか詳しい方、教えてください。具体的には、コンボボックスのリストに　今日の日付・昨日の日付・一昨日の日付　がでるようにしたいのです。
　例）2007/06/12
2007/06/11
2006/06/10
宜しくお願いします。

No.2 ベストアンサー 回答者： CHRONOS_0 回答日時： 2007/06/13 00:27

数字だけのテーブルを用意します

数字
----
-2
-1
0

このテーブルからクエリを作ります

日付:DateAdd("d",数字,Date())

このクエリをコンボのソースにします

この回答へのお礼

思った通りのことができました。ありがとうございました。

お礼日時：2007/06/13 08:40

No.1 回答者： kosamon 回答日時： 2007/06/12 21:34

単票形式のフォームであれば「読み込み時イベント」などで

Dim i As Integer
Dim MyDate As String

For i = 0 To -2 Step -1

MyDate = MyDate & Format(DateAdd("d", i, Date), "yyyy/mm/dd") & ";"

Next i

Me.日付.RowSource = MyDate
てな感じでしょうか。
コントロール名は適宜変更してください。
あと、「集合値タイプ」は値リストに設定してください。

この回答へのお礼

回答ありがとうございます。今回はＮｏ．２の方の方法でやらせてもらいました。また、宜しくお願いします。

お礼日時：2007/06/13 08:41