Calendar/Text box problem

[Neville Bentley]

Hi out there,

Can any one help me please. I have a command button that a user can click on to enter a date from a Calendar control.
What I am expecting is that when the date is chosen in the calendar, to paste that value into the DateText box and I keep getting a "Compile error" Variable not defined and it highlights DateText.Value, where am I going wrong?

Private Sub cmbCalendar_Click()
frmCalendar.Show
If DateText.Value = "" Then
DateText.Value = Calendar1.Value
End If
End Sub
Cheers

Neville

 

[Andrew Poulsom]

Where is your DateText box? If it's unqualified it must be on frmCalendar.

 

[Neville Bentley]

Hi there Andrew,

Thanks for replying so quickly.
The DateText is a text box in my userform.
With it being unqualified does default to the frmCalendar? So I must tell the code to put it into the userform, is that why I get that error?

Cheers

Neville

 

[Andrew Poulsom]

Maybe it should be:

Private Sub cmbCalendar_Click()
    frmCalendar.Show
    If DateText.Value = "" Then
        DateText.Value = frmCalendar.Calendar1.Value
    End If
End Sub