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



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

A 回答 (1件)

ソースがきたなくて申し訳ないのですが...


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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

関連するカテゴリからQ&Aを探す


人気Q&Aランキング

おすすめ情報