compile error with popup calendar

[gj0519]

I receive a compile error when my code gets to frmCalendar.Value = Date.
It highlights date and gives me the error. When I click ok then my references window opens. Does anyone maybe have an idea of a reference I am missing. I have tried adding several, but no luck yet.
If I remove that piece of code the calendar works,but does not display the current date.
Thanks,

GJ

Private Sub cboStartDate_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Set cboOriginator = cboStartDate
    frmCalendar.Visible = True
    frmCalendar.SetFocus
    
    If Not IsNull(cboStartDate) Then
       frmCalendar.Value = cboStartDate.Value
    Else
        frmCalendar.Value = [blue]Date[/blue]
    End If
End Sub

 

[PHV]

Which reference is marked as MISSED ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[gj0519]

When the reference window opens it just highlights the last one that is checked.

GJ