ACCESS 2010 VBA：如果值是周末，则更改文本框中的背景颜色

Question

我正在开发以下功能，如果其中包含的日期是周末，我想添加一项功能来更改文本框的颜色背景。

你有什么建议吗？

Private Function FillCalendar()
Dim cnn As ADODB.Connection
Dim ssql As String
Dim rst As ADODB.Recordset
Set cnn = CurrentProject.Connection
Dim i As Integer
Dim Records As Integer
ssql = "SELECT RoomAvailabilityId, FORMAT(AvailabilityDate, 'Mmm dd ddd') As MyDate, Availability, BookedNights, FinalAvailability From RoomAvailability WHERE Month(AvailabilityDate) = '" & cboMonthYear.Value & "' AND RoomTypeId=7"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open ssql, cnn
Records = rst.RecordCount
For i = 1 To Records
Me("id" & i).Value = rst.Fields!RoomAvailabilityId
Me("Text" & i).Value = rst.Fields!MyDate
Me("txt" & i).Value = rst.Fields!Availability.Value
Me("sold" & i).Value = rst.Fields!BookedNights.Value
Me("final" & i).Value = rst.Fields!FinalAvailability.Value
rst.MoveNext
Next i
'' Clean up
rst.Close
Set rst = Nothing
End Function

提前谢谢