Microsoft Access 掲示板

Microsoft Access 掲示板

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

3 コメント
views
4 フォロー

現在hatenaさんの方法でカレンダーを作成しているのですが、二つの問題点があります。
一つ目は、予定テーブルの一番上のレコードの日付の月に飛ばされてしまうため、当月が表示されるようにしたいです。
二つ目は、予定テーブルに一つもレコードが入っていない時、エラーが起きてカレンダーを表示することができません。予定テーブルが空でもカレンダーを表示することはできますか？

さよ
作成: 2019/12/20 (金) 19:13:21
通報 ...
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

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

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

2
さよ 2019/12/21 (土) 17:21:03 5db9a@61af1 >> 1

ありがとうございます
さっそく試してみます！

3
te17448 2020/06/23 (火) 11:18:10 17771@eee3d

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

私はこれで動きました。