check your ctl default values for example
ctl.Year = Year(Now)
ctl.Month = Month(Now)
ctl.Day = Day(Now)
this is a sample I have from my cal.
Code:
Private Sub Form_Load()
Dim lkb As String
Dim ctl As Control
Set ctl = Me!CalDate
lkb = "[apptDate] = #" & Format(Now(), "short date") & "#"
Me.RecordsetClone.FindFirst lkb
If Me.RecordsetClone.NoMatch = False Then
Me.Bookmark = Me.RecordsetClone.Bookmark
Else
Me.RecordsetClone.AddNew
Me.RecordsetClone![ApptDate] = Format(Now(), "short date")
Me.RecordsetClone.Update
Me.RecordsetClone.MoveLast
Me.Bookmark = Me.RecordsetClone.Bookmark
Me![CalDate] = Format(Now(), "short date")
Me![txtDate] = Me![CalDate]
End If
Me.CalDate.Value = lkb
ctl.Year = Year(Now)
ctl.Month = Month(Now)
ctl.Day = Day(Now)
DoCmd.Maximize
End Sub
Jaime E. Maccou