access 日付選択カレンダー 自動的に表示

Question

前提・実現したいこと

accessで日付選択カレンダーを常に表示したいと考えています。
自分で調べたところ、
Private Sub 日付_GotFocus()
DoCmd.RunCommand acCmdShowDatePicker
End Sub
で日付のテキストボックスにフォーカスが来た時にカレンダーが自動的に出るやり方がありました。
他のコンボボックスやテキストボックスから日付のテキストボックスにフォーカスを移動させると自動的に出るのですが、
日付を日付選択カレンダーから入力して、日付のテキストボックスにフォーカスを置いても自動的に表示がされません。

何か方法はありますでしょうか。

追記
また、日付選択カレンダーのサイズを変えられる方法がありましたら、併せてお答えいただけますと幸いです。

発生している問題・エラーメッセージ

Private Sub 日付_change()
    DoCmd.SetWarnings False

    Dim s As String
    s = Me.日付.Text
    If Not IsDate(s) Then Exit Sub

    Me![年] = Format(s, "yyyy")
    Me![月] = Format(s, "mm")
    Me![日] = Format(s, "dd")

        nengappi = Me![日付]
        Me!日付.SetFocus
        Me!日付.Value = [Forms]![日報入力画面]![年] & "/" & [Forms]![日報入力画面]![月] & "/" & [Forms]![日報入力画面]![日]
        
        Me![作業日報サブ].Requery

        Me!日付.SetFocus
        
    End If

    DoCmd.SetWarnings True
End Sub

　Private Sub 日付_GotFocus()
　DoCmd.RunCommand acCmdShowDatePicker
　End Sub

該当のソースコード

ソースコード

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

accessで日付選択カレンダーを常に表示したいと考えています。

日付テキストボックスにフォーカスがあるとき以外も常に表示させておきたいということでしょうか。
だとしたら無理だと思います。

フォーム上にコマンドボタン、ラベルなどのコントロールを組み合わせてカレンダーを作成することになります。
下記でカレンダーフォームのサンプルがありますので、参考にして作成してみては。

カレンダー形式のスケジュール管理フォーム作成 その1 - hatena chips

カレンダーダイアログ日付入力関数　祝日表示対応版 - hatena chips

Comments

[yama0131]

フォームでカレンダーを作る場合であれば、常に表示せることは可能なのでしょうか？

[hatena19]

はい、自分で作成するのですから、設計次第で自由自在です。

[yama0131]

頂いたURLを参考にやってみます！
ありがとうございました。

Answer 2

日付を日付選択カレンダーから入力して、日付のテキストボックスにフォーカスを置いても自動的に表示

カレンダーで選択して、選択しなおすのにカレンダーボタンを押下する動作は自然だと思うのですが、テキストボックスにフォーカスがある間は常にカレンダーが表示されているような事を希望されているのでしょうか？

もしそうなら、そのコントロールにフォーカスがいる事を監視する必要があるので、結構ハードルが高い気がします。

Comments

[yama0131]

access2003までにあった、カレンダーコントロールと同じような動作にしたいと考えています。
なので、一回一回マウスで日付を選択してカレンダーを出す動作が手間と感じてしまいます。
常に出しておく方法があればと思ったのですが、難しいのですね。。。