Calendar Control

[Nick]

I am trying to use a calendar control pop-up to up-date a
bound textbox by double clicking on the textbox. This
works well while there is a value in the textbox. If you
want to change the date the pop-up opens at the same date
as in the textbox. However if the textbox has a null value
how can I set the control to default to Now().

Your help is appreciated
Nick

 

[Allen Browne]

Hi Nick

Haven't actually used the ActiveX calendar control for ages, because it is
subject to referencing/versionsing issues and does not handle Nulls well.

There's a replacement here:
http://members.iinet.net.au/~allenbrowne/ser-51.html
It's just an Access form that you can import any database.

 

[Nick]

Thanks Allen,
This works really well.
I was wondering if it would be possible to also have this
modified so that when you are in a situation where you are
using From-To Dates, when you click either button that the
form opens so that you have two calendar forms in one?
This would enable you to up-date both from and to at one
time, reducing the amount of time.
Hope this make sense

Regards
Nick

 

[Allen Browne]

As designed, you need 2 command buttons - one for the From date, and the
other for the To date.

Perhaps you would like to recode it for your needs also?

 

[Guest]

you coud use this code in the click event of one button.
Private Sub cmdsetdates_Click()
On Error GoTo cmdSetDates_Error
If cmdsetdates.Caption = "Set Beginning Date" Then
BeginDate = CalPickAday.Value
cmdsetdates.Caption = "Set Ending Date"
Else
EndDate = CalPickAday.Value
cmdsetdates.Caption = "Set Beginnign Date"
End If
Exit Sub

cmdSetDates_Error:
MsgBox "Error # " & Err.Number & ": " & Err.Description
Exit Sub

End Sub