Calendar Control in an unbound form

[ion97]

Isn't it possible to use a Calendar Control in an unbound form?

I don't seem to be able to set the "control" property of the calendar to the textbox I wan't to link it to.
When I do so, the calendar is not updateable.

 

[Jack Cowley]

Yes. The Calendar control does not have an On Click event so you need to create your own sub...

sub Calendar_Click()
Me.MyTextField = Me.Calendar.Value
End Sub

 

[mhubbard]

Hi Tim,
I altered the code a little to get the date/time stamp. The only thing left is that the whole field is highlighted.
Any suggestions?
Thanks Again


Private Sub Command50_Click()
Dim intstart As Integer
Dim strNotePad As String
Me.Notes.Form.NOTEPAD.SetFocus
If Not IsNull(Me.Notes.Form.NOTEPAD) Then
strNotePad = Me.Notes.Form.NOTEPAD
Else
strNotePad = ""
End If
strNotePad = Now() & "--" & " " & CurrentUser() & vbCr & vbLf & strNotePad
Me.Notes.Form.NOTEPAD.SelStart = Len(strNotePad)

Me.Notes.Form.NOTEPAD = strNotePad

End Sub