Microsoft Access 掲示板

Microsoft Access 掲示板

カレンダー形式のスケジュール帳で当月の表示 / 1

1
いのそらん 2019/06/01 (土) 11:57:58 4a53a@5f14a

自己解決？

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_予定")
End Sub
の

　   SetCalendar DLookup("日付", "T_予定")

を

    SetCalendar Date

に変えたらとりあえず移動したようです。
正しいのでしょうか？

通報 ...