-PR-
解決
済み

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

  • すぐに回答を!
  • 質問No.92473
  • 閲覧数42
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 10% (1/10)

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



というふうに。システム年月を1ずつ減らしていけば良いと思うのですが、その設定をどこでやったらいいのか分かりません。
また、常に新しい年が上にくるようにしたいです。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

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

  • 回答No.1
レベル9

ベストアンサー率 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' ←勝手に書いてある
== ここまでソース ===============================================

まぁ、そのぉ、参考程度ということでゆるしてやってください...。
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このQ&Aにこう思った!同じようなことあった!感想や体験を書こう
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

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

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ