Hi,
For some reason the .DayBold will not bold my days. I have check my values all the way into the With and they are right.
Do I need to refresh the Monthview somehow get them to show? It looks like to me that it should work, but thats not saying much.
Any help would be apperciated.
thanks
VB Code:
  1. Do While rs.EOF = False
  2.  
  3. If rs.Fields("REASON") <> " " Then
  4. If YEAR(rs.Fields("MMDDYY")) = YEAR(MonthView9.Value) Then
  5. If MONTH(rs.Fields("MMDDYY")) = MONTH(MonthView9.Value) Then
  6. Debug.Print "offDays " & offDays
  7. intDay = Day(rs.Fields("MMDDYY"))
  8. Debug.Print "intDay " & intDay
  9. intDay = intDay + offDays
  10. With MonthView9
  11. .DayBold(MonthView9.VisibleDays(intDay)) = True
  12. End With
  13. Debug.Print "intDay after " & intDay
  14. End If
  15. End If
  16. End If
  17.  
  18. rs.MoveNext
  19.  
  20. Loop