So-net無料ブログ作成

アクセス小僧:コンボボックスの設定 [コンピューター]

アクセスのフォームで、

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

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

Menu2.jpg

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

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個送ります。これは無くてもいいのですが、無いと月のコンボボックスにフォーカスが当たったまま、反転した状態になります。月のコンボボックスにフォーカスが当たっているときのイメージを以下に示します。

Menu1.jpg

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


ヤバイぜ!(11)  コメント(1) 
共通テーマ:日記・雑感

ヤバイぜ! 11

コメント 1

cheese999

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

コメントを書く

お名前:[必須]
URL:
コメント:
画像認証:
下の画像に表示されている文字(英大文字の「オー」、英小文字の「ユー」、アラビア数字の「ハチ」、アラビア数字の「イチ」、アラビア数字の「ニ」)を入力してください。

Facebook コメント