[AccessD] 2007 autolinking code to backend

John Eget joeget at vgernet.net
Tue Dec 11 06:20:24 CST 2007


Does anyone have a link to or code to autolink the front end to the backend when a splash screen is opened?

I cannot figure out the issue below

I have a database that works fine in 2003, but when I open it in 2007 I get an error code popup when I open my splash screen that states "Invalid procedure call or argument".  I have isolated it (at least I think so) to the following area within the Splash Screen:

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Form_Open_Error
    ' Check to see if EASILOOK Back End XP is available.
      If modRefreshTableLinks.CheckLinks() = False Then
        ' Try to relink the tables; if it fails, shut down EASILOOK Front End XP Application.
        If modRefreshTableLinks.RelinkTables() = False Then
            DoCmd.Close acForm, "frmSplash"
            'Closes EASILOOK Front End XP Application
            DoCmd.Quit
        End If
    End If
    
    Call SetEnabledState(True) 'Enables application close and exit capability
    
    'Call SetEnabledState(False) 'Disables application close and exit capability
Form_Open_Exit:
    Exit Sub

Form_Open_Error:
    MsgBox Err.Description
    CloseCurrentDatabase
    Resume Form_Open_Exit
End Sub

If i comment out the Call SetEnabledState area the form works fine.

I also have a module that states:

Public Function SetEnabledState(blnState As Boolean)
    Call CloseButtonState(blnState)
    Call ExitMenuState(blnState)
End Function

I am at a loss as to why this is happening.

My Tool-References are as follows:
Visual Basic for Applications
Microsoft Access 12.0 Object Library
Microsoft DAO 3.6 Object Library
Microsoft ActiveX Data Objects 2.5 Library
Microsoft Visual Basics for Applications Extendibility 5.3
OLE Automation

All of the above works perfectly in 2003

Anyone have any ideas??



More information about the AccessD mailing list