Userform hide problem

[Adi21]

Hi, I have a little problem with hiding a Userform.
So, I have a Userfrom called "Userform2" and there I have a textbox. When I click the textbox appear another Userform,called "Calendar1", which is a Date Picker. What I want: when I choose the date, the Userform Calendar1 needs to hide,or unload,something like that. But I get error. If somebody can help me?
Thanks

Private Sub Calendar1_Click()
UserForm1.JoinDateTxt.Value = Format(Calendar1.Value, "dd/mmm/yy")
Calendar1.Unload
End Sub

Private Sub JoinDateTxt_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Calendar1.Show
    If Len(JoinDateTxt.Text) > 0 Then
        JoinDateNum = DatePart("d", JoinDateTxt) - 1
    End If
End Sub

 

[Norie]

Try this.

Unload Me

PS If the form is called Calendar1and you also have a control named Calendar1 on the form that's not a good idea.

 

[Adi21]

Yes, I have the Userform called "Calendar1" and also there I have a MonthView called again "Calendar1". I will modify one of them.Thanks.
Now, I tried with Unload Me, but when I select data is not writing the date in the textbox and the Userform Calendar1 is not unload and if I try to click exit I get the error with type mismatch in this line:

 JoinDateNum = DatePart("d", JoinDateTxt) - 1

 

[Norie]

How did you try Unload Me?

The type mismatch could be because DatePart is returning text.

 

[Adi21]

Like this:

Private Sub Calendar1_Click()
UserForm1.JoinDateTxt.Value = Format(Calendar1.Value, "dd/mmm/yy")
Unload me
End Sub

Yes, the text box didn`t get anymore the date and that is why I get that error, but I don`t know why is not working.