アクセス小僧：コンボボックスの設定

アクセスのフォームで、

年を設定するテキストボックスと、月を設定するコンボボックスがあって、フォームをロードしたときに、初期値として、今年、今月を設定するマクロを作りました。

フォームの画面イメージを示します。



マクロのコードを示します。

Private Sub Form_Load()
  [myMonth1].SetFocus
  [myMonth1].ListIndex = Month(Date) - 1
  SendKeys "{TAB}" ' [myMonth1]の次のコントロールへフォーカス移動
  [myYYYY1] = Year(Date)
End Sub

・[myMonth1].SetFocusで月のコンボボックスにフォーカスします。コンボボックスを設定するときは、これが必要みたいです。
・[myMonth1].ListIndex = Month(Date) - 1で今月を設定します。ListIndexは0始まりなので1引いています。
・SendKeys "{TAB}"でTABキーを1個送ります。これは無くてもいいのですが、無いと月のコンボボックスにフォーカスが当たったまま、反転した状態になります。月のコンボボックスにフォーカスが当たっているときのイメージを以下に示します。



・[myYYYY1] = Year(Date)で年のテキストボックスに今年を設定します。

タグ：SendKeys ListIndex SetFocus テキストボックス コンボボックス VBA アクセス

コメント 1

ヤバイぜ!　ありがとうございます[__猫]
by cheese999 (2017-08-19 12:26)