Stephen:
Thanks a lot for your response. I updated my calendar with your newest
version, but I'm still seeing the same issue. Here is the procedure I
have, which is almost identical to your examples. I have another
procedure exactly like this except for a more limiting SQL string. Each
time I call the calendar, it doesn't seem to clear the previously bolded
entries. I assume I'm missing something.
Private Sub cmdAllVisits_Click()
Dim strSQL As String
Dim rst As DAO.Recordset
Dim dbs As Database
Set dbs = CurrentDb
strSQL = "SELECT * FROM tblVisits " & _
"WHERE CallStatus='Open'"
Set rst = dbs.OpenRecordset(strSQL)
' Retrieve the currently selected date(s).
' Call our Function to display the Calendar
' Init the Calendar to select the date
' contained in this control.
' Position Calendar at cursor location when Calendar is created.
mc.PositionAtCursor = False
Do While Not rst.EOF
mc.SetBoldDayState DatePart("yyyy", rst!DateAssigned), DatePart("m",
rst!DateAssigned), DatePart("d", rst!DateAssigned)
rst.MoveNext
Loop
' Retrieve the currently selected date(s).
' Call our Function to display the Calendar.
' Defaults to showing Todays Date
' *** Only takes One Click to Select a Date and Close the Window ***
Dim blRet As Boolean
Dim dtStart As Date, dtEnd As Date
dtStart = Nz(Me.tboDateAssigned.value, 0)
dtEnd = 0
blRet = ShowMonthCalendar(mc, dtStart, dtEnd)
If blRet = True Then
Me.tboDateAssigned = dtStart
Me.tboRepDate = dtStart
End If
End Sub
Thanks again,
MW
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
