I have a subform which opens an ActiveXCtlCalendar, it all works fine and I have set the code as follows:
Private Sub Form_Load()
Me.ActiveXCtlCalendar.Value = Date
End Sub
Private Sub ActiveXCtlCalendar_AfterUpdate()
Forms!frmPersonalDetails.ActiveControl = Me.ActiveXCtlCalendar.Value...