Microsoft Access 掲示板

当月が表示されるようにしたいです。

カレンダーフォーム(F_Calendar)の開く時のイベントプロシージャを下記のように書き換えてください。

'フォーム 開くとき
Private Sub Form_Open(Cancel As Integer)
Dim i As Integer
    
    For i = 1 To 42
        Me("T" & i).OnClick = "=SetDate(" & i & ")"
    Next
    Me.cmdPrev.OnClick = "=MoveMonth(-1)"
    Me.cmdNext.OnClick = "=MoveMonth(1)"
    Me.txtDate = Date 'この行を修正
    SetCalendar
End Sub

予定テーブルが空でもカレンダーを表示することはできますか？

上記の修正でこちらもエラーなく表示することだできるようになります。

'フォーム 開くとき
Private Sub Form_Open(Cancel As Integer)
Dim i As Integer

    For i = 1 To 42
        Me("T" & i).OnClick = "=SetDate(" & i & ")"
    Next
    Me.cmdPrev.OnClick = "=MoveMonth(-1)"
    Me.cmdNext.OnClick = "=MoveMonth(1)"
'    SetCalendar DLookup("日付", "T_予定") '開く時の日付表示
    SetCalendar Format(Now(), "yyyy/mm/dd")

End Sub

私はこれで動きました。