Calender Problem

  • Thread starter Thread starter johncassell
  • Start date Start date
J

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
 
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]...
 
Back
Top