Microsoft Access 掲示板

Microsoft Access 掲示板

hatena chips様のスケジュール管理フォーム / 1

32 コメント
views
4 フォロー
1
hatena 2021/09/24 (金) 14:11:00

F_Calendarフォームの開く時のイベントプロシージャを下記のように修正してください。
Me.txtDate に代入した日付の月が表示されます。

'フォーム 開くとき
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
通報 ...