H
hfreedman
I am currently using the following subroutines to allow a pop-up calendar
(ActiveXCalendar) to appear to select the date for the date fields on my
form. If I have more than one date field, I include an addtional copy of the
ActiveXCalendar and of the routines with unique names of course. I now have a
form with about 15 date fields. Is there a way I can alter these routines so
one ActiveXCalendar and one set of routines can be used to pop up the
calendar and assign the selected date to whichever date field is in focus and
is clicked on? One additional feature I would like is the ability to press
esc to close the pop-up calendar without assigning a date to field. Currently
you must select a date to close the pop-up.
Private Sub ActiveXCalendar_Click()
[Target Delivery Date].Value = ActiveXCalendar.Value
[Target Delivery Date].SetFocus
ActiveXCalendar.Visible = False
End Sub
Private Sub Form_Current()
ActiveXCalendar.Visible = False
End Sub
(ActiveXCalendar) to appear to select the date for the date fields on my
form. If I have more than one date field, I include an addtional copy of the
ActiveXCalendar and of the routines with unique names of course. I now have a
form with about 15 date fields. Is there a way I can alter these routines so
one ActiveXCalendar and one set of routines can be used to pop up the
calendar and assign the selected date to whichever date field is in focus and
is clicked on? One additional feature I would like is the ability to press
esc to close the pop-up calendar without assigning a date to field. Currently
you must select a date to close the pop-up.
Private Sub ActiveXCalendar_Click()
[Target Delivery Date].Value = ActiveXCalendar.Value
[Target Delivery Date].SetFocus
ActiveXCalendar.Visible = False
End Sub
Private Sub Form_Current()
ActiveXCalendar.Visible = False
End Sub