Runtime Error 2113

[thebeavis45]

I am attempting to have a calendar control enter a date into a text box. When a date is selected on the calendar I get a "runtime error 2113" The code is:

Private Sub Calendar1_Click()
Me!CalendarDate.Value = Format(Me!Calendar1.Object.Value, "dddddd&quot
End Sub

Any help please?

 

[Aivars]

Private Sub Calendar1_Click()
Me!CalendarDate = format(Me!Calendar1.Value,"dddddd&quot
End Sub

Aivars