Microsoft Access 掲示板

フォームのボタンから F_calendar を表示し、キー移動で日付選択をする場合です。
開く際の日付が 1900年1月 である場合に、キー移動を行うと、移動後の日も、日付選択の水色が解除されず、今自分がどこに居るか分からなくなってしまっています(翌月移動なども同様)。キー移動で1900年2月以降にまで進むと、その水色が消えない症状は出てこなくなりました。しかし、1899年12月に移動した場合は水色キープ症状は出たままです。

そのような昔の日付が入力されることは想定外でした。F_calendarフォームのモジュールで、
先頭の宣言部を下記のように修正してください。

Option Compare Database
Option Explicit

Dim ctl As Control
'FirstDay As Date この行を削除して、下記の1行を追加
Dim FirstDay As Variant 
Dim vDate As Date

さらに、SetCalendar関数の先頭部分を下記のように修正してください。

'カレンダー 日にち設定関数
Private Function SetCalendar(aDate As Date)
Dim i As Integer, D As Date, m As Integer, n As Integer

'   If FirstDay > 0 Then  この行を削除して、下記の1行を追加
    If Not IsEmpty(FirstDay) Then
        Me("D" & vDate - FirstDay).BackStyle = 0 '透明
    End If

'以下略

異常で問題なく動作するようになります。

ありがとうございます！解決しました！

後学のためにお聞きしたいのですが、今回の事象の理由は以下の通りであってますでしょうか？

●変更前
・DATEデータ型の場合、1900/01/01が「0」、それ以前が負の数　で設定される。
・If FirstDay > 0 Then　部分で、1900/01/01以前の日がはじかれ、IF節内に入れなかった。
・1900/01/15などの日も、同カレンダー内に「0」が存在してしまっている為(？)に同様の事象。
●変更後
・型をVariantに変更し、IF条件をFirstDayが初期化されてたら(空っぽだったら?)ので、IF内の透明化処理(?)が行われた。