コンボボックスの内容設定

質問

先程質問したのですが、困り度が１になっていました。実際は3です。
もう一度質問を書かせていただきます。
Access２０００のフォーム作成において、コンボボックスの内容を設定したいのですが
自分でできません。
年月入力のコンボボックスの内容を新規でテーブルに書き込みたいのです。
２００１
２０００
１９９９
・
・
・
というふうに。システム年月を1ずつ減らしていけば良いと思うのですが、その設定をどこでやったらいいのか分かりません。
また、常に新しい年が上にくるようにしたいです。

回答No.1

takasgy · ベストアンサー

ソースがきたなくて申し訳ないのですが．．．
使用されるフォームのイベント[読み込み時]でコードビルダを選択して以下のソースを埋め込めば質問されている内容はみたされるかと思います。

コンボボックスはcmbYearとしました。
cmbYearの値集合タイプは"値リスト"を選択してます。

== ここからソース ===============================================
Private Sub Form_Load() ' ←勝手に書いてある
Dim Year As Integer
Dim str As String
Dim i As Integer

' 初期化
Year = CInt(Format(Now(), "yyyy")) ' とりあえず今年を取得
i = 1
str = Year

' ループして年を算出
Do While i < 10
str = str & ";" & Year - i
i = i + 1
Loop

' コンボボックスに値を設定
Me!cmbYear.RowSource = str
End Sub ' ←勝手に書いてある
== ここまでソース ===============================================

まぁ、そのぉ、参考程度ということでゆるしてやってください．．．。