On two text boxes in a frame I want to enter dates and therefore have a
calendar to pop up. I also have a combobox in the frame for other stuff.
However for some reason when I click on the combobox the calendar pops up.
This only happens the first time, if I close the calendar and then click on
the combobox again then I get my dropdown list. I have a similar issues with
this in another frame but I will wait for an answer on this.

Here is my code:
the procedure to show the calendar
Sub ShowCalendar()
frmCalendar1.Calendar1.Value = Date
frmCalendar1.Show
End Sub

here is the call from one of the text boxes
Private Sub TBReqDueDate_Enter()
ShowCalendar
TBReqDueDate.Value = DateSelected
End Sub

Any help please.

--
Jason V

Let me modify this. It appears to have nothing to do with the calendar. What
is happening is that when I first click on any testbox or combobox in the
frame it always wants to run Private Sub TBXYZ Enter () routine the first
time. I do not know why this is. I have searched the program and there are no
reason for it to go to this.
--
Jason V


"Jason V" wrote:

> On two text boxes in a frame I want to enter dates and therefore have a
> calendar to pop up. I also have a combobox in the frame for other stuff.
> However for some reason when I click on the combobox the calendar pops up.
> This only happens the first time, if I close the calendar and then click on
> the combobox again then I get my dropdown list. I have a similar issues with
> this in another frame but I will wait for an answer on this.
>
> Here is my code:
> the procedure to show the calendar
> Sub ShowCalendar()
> frmCalendar1.Calendar1.Value = Date
> frmCalendar1.Show
> End Sub
>
> here is the call from one of the text boxes
> Private Sub TBReqDueDate_Enter()
> ShowCalendar
> TBReqDueDate.Value = DateSelected
> End Sub
>
> Any help please.
>
> --
> Jason V