Having said that, I will add that it is fairly simple to build a form that looks like a calendar and sets values and visibility of 42 UNBOUND textboxes representing days of calendar.
Code:
Private Sub Form_Open(cancel As Integer)
Me.FirstDate = Date
Call filldates
End Sub
Private Sub filldates()
Dim curday As Variant, curbox As Integer
curday = DateSerial(Year(Me.FirstDate), Month(Me.FirstDate), 1)
curday = DateAdd("D", 1 - Weekday(curday), curday)
For curbox = 1 To 42
Me("D" & curbox) = Day(curday)
Me("D" & curbox).Visible = Month(curday) = Month(Me.FirstDate)
curday = curday + 1
Next curbox
End Sub
Now building a calendar/appointment db and feeding data to the form does get complicated. I have seen it but unfortunately didn't save it.