none
Error 2683 - Calendar RRS feed

  • Question

  • Experts -

    We have a little application here (written by somebody else) that was working fine until this morning - when an ActiveX calendar control started throwing the 2683 "There is no object in this control" error.  We are working in Access 2010.  The offending code is below:

    Private Sub proddate_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    On Error GoTo CalErr
    
    txtcal.Visible = True
    txtcal.SetFocus
    
    If Not IsNull(proddate) Then
       txtcal.Value = proddate.Value
    Else
       txtcal.Value = Date
    End If
    
    CalExit:
        Exit Sub
    CalErr:
        MsgBox "There was a problem loading the calendar engine. Please input date manually (mm/dd/yyyy).", vbCritical, "Calendar Fail"
        Resume CalExit
    End Sub


    The error is at this line:

    txtcal.Value = proddate.Value

    Strangely enough, the other Calendar controls in the application work fine.....

    Any ideas?

    Thanks in advance!


    Bonediggler

    Monday, October 2, 2017 3:41 PM

Answers

All replies