Microsoft Access 掲示板

Microsoft Access 掲示板

カレンダー表示時に当月を表示 / 1

3 コメント
views
4 フォロー
1
hatena 2019/12/21 (土) 09:33:47

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

カレンダーフォーム(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

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

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

通報 ...