Calender Problem

[johncassell]

Hi,

I have a combobox and when I click the drop down button, my calende
appears. I then double click the date i want and it enters the date i
my combobox and the calender closes at the same time.

My problem is that after this procedure (i.e. if i press enter to mov
to my next box or i manually mouse click into the next box), th
calender form opens again.

Does anyone know why this is?

Thanks in advance for any replies

Joh

 

[Norman Jones]

Hi John,

In your previous thread I suggested that you post the userform code.

However the folowing worked for me as one possible arrangement:

Option Explicit
Private Sub UserForm_Initialize()
Me.Calendar1.Visible = False
End Sub

Private Sub Calendar1_DblClick()
Me.ComboBox1.Value = Me.Calendar1.Value

End Sub

Private Sub ComboBox1_Change()
Me.Calendar1.Visible = False
End Sub

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
Me.Calendar1.Visible = True
End Sub


---
Regards,
Norman



"johncassell" <[email protected]>
wrote in message
news:[email protected]...