Microsoft Access 掲示板

Microsoft Access 掲示板

hatena chips様のスケジュール管理フォーム / 5
5
hatena 2021/09/25 (土) 09:55:13 修正

カレンダー形式のスケジュール管理フォーム作成 その4 - hatena chips
上記のサンプルを使用しているなら、下記に修正してください。

'フォーム 開くとき
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 Date  '<--修正
End Sub

前の回答のコードはその３用のコードでした。

通報 ...