Some help with a userform

[Diving_Dan]

Hi again,

I have a userform that is a pop up calendar that puts the date clicked into a cell on the worksheet. That all works perfectly.

I am creating another userform to add data to my workbook. I am struggling to get the calendar to pop up when I click into the text box. How do I code this?

The calendar is called frmCalendar and the new form i'm creating is called frmAddStaff

Thanks in advance.

 

[John_w]

In the frmAddStaff userform module, assuming the text box is named txtDate:

Private Sub txtDate_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    frmCalendar.Show
End Sub

 

[Diving_Dan]

Works a treat, thank you

 

[Diving_Dan]

The problem I am now having is that when the date is input into the textbox that it is in the format of mm/dd/yyyy. I am struggling to find code so it will be in the format of dd/mm/yyyy.

Can anyone help?

 

[John_w]

Try this:

Private Sub txtDate_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    frmCalendar.Show
    txtDate.Value = Format(txtDate.Value, "dd/mm/yyyy")
End Sub

If that doesn't work please post your frmCalendar userform code, or the link to where you got it from.

 

[Diving_Dan]

Perfect that is working now. Thanks for your help