I have a form that calls on the calendar control but I get this error.
Automation Error -2147417848 The object invoked has disconnected from its
clients

below is the code:

Private Sub cboDateReq_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)

CalendarReq.Visible = True
CalendarReq.SetFocus

If Not IsNull(cboDateReq) Then
CalendarReq.Value = cboDateReq.Value
Else
CalendarReq.Value = Date
End If

End Sub

I get the error message in the above code

Arnold,
What do you expect from this line ?
If Not IsNull(cboDateReq) Then

Do you mean
If cboDateReq.ListIndex=-1 Then
'No selection made

Also, do you need the :
CalendarReq.SetFocus

NickHK

"Arnold Klapheck" <(E-Mail Removed)> wrote in
message news:4C4796C8-C366-4D5C-B749-(E-Mail Removed)...
> I have a form that calls on the calendar control but I get this error.
> Automation Error -2147417848 The object invoked has disconnected from its
> clients
>
> below is the code:
>
> Private Sub cboDateReq_MouseDown(ByVal Button As Integer, ByVal Shift As
> Integer, ByVal X As Single, ByVal Y As Single)
>
> CalendarReq.Visible = True
> CalendarReq.SetFocus
>
> If Not IsNull(cboDateReq) Then
> CalendarReq.Value = cboDateReq.Value
> Else
> CalendarReq.Value = Date
> End If
>
> End Sub
>
> I get the error message in the above code
>