Microsoft Access 掲示板

下記のように変更すればいいでしょう。

'カレンダー 日にち設定関数
Private Function SetCalendar()
Dim i As Integer, D As Date, m As Integer, n As Integer

　　m = Me.月
　　FirstDay = DateSerial(Me.年, m, 1)
　　FirstDay = FirstDay - Weekday(FirstDay)
　　For i = 1 To 42
　　　　With Me("D" & i)
　　　　　　D = FirstDay + i
　　　　　　.Caption = Day(D)
　　　　　　.ControlTipText = Nz(DLookup("備考","T_休日","日付=#" & D & "#")) '※ 休日の備考をヒントテキストに設定
　　　　　　If .ControlTipText = "【Ａ】" Then 
              .ForeColor = vbGreen '【Ａ】は文字色 緑
　　　　　　ElseIf Weekday(D) = 7 Or .ControlTipText = "【Ｂ】" Then
　　　　　　　　.ForeColor = vbBlue　 '土曜または【Ｂ】は文字色 青
　　　　　　ElseIf Weekday(D) = 1 Or .ControlTipText <> "" Then '※
　　　　　　　　.ForeColor = vbRed　　'日曜または祝日は文字色 赤
　　　　　　Else
　　　　　　　　.ForeColor = vbBlack
　　　　　　End If
　　　　　　n = Month(D)
　　　　　　If m = n Then
　　　　　　　　.FontSize = 11
　　　　　　Else
　　　　　　　　.FontSize = 8 '月が異なるときは文字を小さく
　　　　　　End If
　　　　End With
　　　　Me("T" & i).Caption = ""
　　Next

End Function