Calendar control

[WJReid]

Hi All,

I have a form with a date textbox on it and I want to fill it in using an ActiveX Calendar control. I know that by attaching the make visible code to the OnEnter of the textbox,I can show the Calendar, but how do I update the textbox and make the Calendar control disappear after selecting the date.

 

[smozgur]

Try this :

Private Sub Text_Enter()
'You know this part, to show calendar
Me.Calendar.Visible = True
End Sub

Private Sub Calendar_Click()
'Set text value as selected date
Me.Text.Value = Me.Calendar.Value
'Set focus on Textbox, otherwise it will not let you make calendar invisible
Me.Text.SetFocus
'Make calendar invisible
Me.Calendar.Visible = False
End Sub

I hope this helps

Regards
Suat

 

[WJReid]

Thank you very much Suat, that worked perfectly.

Regards,

Bill

 

[smozgur]

It's my pleasure, Bill.

Suat