• ベストアンサー
  • すぐに回答を!

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

  • 質問No.92473
  • 閲覧数51
  • ありがとう数0
  • 回答数1

お礼率 10% (1/10)

先程質問したのですが、困り度が1になっていました。実際は3です。
もう一度質問を書かせていただきます。
Access2000のフォーム作成において、コンボボックスの内容を設定したいのですが
自分でできません。
年月入力のコンボボックスの内容を新規でテーブルに書き込みたいのです。
2001
2000
1999



というふうに。システム年月を1ずつ減らしていけば良いと思うのですが、その設定をどこでやったらいいのか分かりません。
また、常に新しい年が上にくるようにしたいです。

質問者が選んだベストアンサー

  • 回答No.1
  • ベストアンサー

ベストアンサー率 42% (30/71)

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

コンボボックスは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' ←勝手に書いてある
== ここまでソース ===============================================

まぁ、そのぉ、参考程度ということでゆるしてやってください...。
関連するQ&A

その他の関連するQ&Aをキーワードで探す

ピックアップ

ページ先頭へ