MS ACCESS 2016 日付入力のカレンダーについて

Question

MS ACCESS(365 64bit win10) にて、テキストボックスに日付を入力する際にカレンダー(date picker?)が表示されると思いますが、

これをテキストボックスがフォーカス取得と同時に表示されるようにコーディングしたいのです。

カレンダーによる日付入力補助機能は標準では、

1.テキストボックスにフォーカスを合わせる

2.テキストボックスの横に小さいカレンダーのアイコンが表示される

3.アイコンをクリックする

4.カレンダーが表示される

だと思いますが、

1.テキストボックスにフォーカスを合わせる

2.カレンダーが表示される

というふうに動かしたいと考えています。

vbaにて「日付入力補助カレンダーを表示させる」というコード(関数)をご存知でしたら教えて下さい。

よろしくお願いいたします。

Answer 1

> 1.テキストボックスにフォーカスを合わせる

> 2.カレンダーが表示される

（フォームモジュール）

---

Private Sub コントロール名_GotFocus()

    DoCmd.RunCommand acCmdShowDatePicker

End Sub

---

但し、そのコントロールでは日付選択カレンダーを

表示出来ない状態である場合は実行時エラー 2046 が

発生しますのでご注意下さい。

Answer 2

> 1.テキストボックスにフォーカスを合わせる

> 2.カレンダーが表示される

（フォームモジュール）

---

Private Sub コントロール名_GotFocus()

    DoCmd.RunCommand acCmdShowDatePicker

End Sub

---

但し、そのコントロールでは日付選択カレンダーを

表示出来ない状態である場合は実行時エラー 2046 が

発生しますのでご注意下さい。

回答ありがとうございました。

ご教示のコードで問題なく運用できると思っていたのですが、テキストボックスがサブフォーム内にあると、

実行時エラー2046

コマンドまたはアクション'日付選択カレンダーの表示'は無効です。

と、表示されてしまいます。

ただ、DoCmd.RunCommand acCmdShowDatePickerを使わずに、SendKeys "%{DOWN}"等で表示させるとエラーは出ないので、日付選択カレンダー自体表示ができないわけではないようです。

解決策やサブフォームでエラーが出る原因をご存知でしたら教えて下さい。

※SendKeys "%{DOWN}" による代替は、予期せずNumLockが外れるというバグが発生するのでできれば避けたいです。

Answer 3

まさに欲しい情報でした。

ありがとうございました。

Answer 4

VBAに関しての質問であれば、下記のフォーラムできいてみてください。

宜しくお願いします。

Msdn フォーラム - Visual Basic for Application(VBA)

https://social.msdn.microsoft.com/Forums/ja-JP/...