• Create BookmarkCreate Bookmark
  • Create Note or TagCreate Note or Tag
  • PrintPrint
Share this Page URL
Help

Chapter 26. STARTUP CHECKING SYSTEM ROUT... > TESTING THE CONNECTIONS OF LINKED TA...

TESTING THE CONNECTIONS OF LINKED TABLES AT STARTUP

As you continue to examine the sections of the ap_AppInit() function, now look at section 3, which opens and tests the connection for one of the tables located in the back end, with the connection being a link in the front end.

'-- Section 3: Open the table containing the list of linked tables
Set dynSharedTables = dbLocal.OpenRecordset("tblSharedTables", _
   dbOpenDynaset)

On Error Resume Next

dynSharedTables.MoveLast
Set dynTestTable = dbLocal.OpenRecordset(dynSharedTables!TableName, _
     dbOpenDynaset)

intCurrError = Err.Number
strCurrError = Err.Description

Do Until intCurrError = 0

   On Error GoTo Error_ap_App_Init

   Select Case intCurrError
     Case apErrFileNotFound, apErrTableNotFound, _
          apErrPathNotValid, apErrDeviceNotAvlble


PREVIEW

                                                                          

Not a subscriber?

Start A Free Trial


  
  • Creative Edge
  • Create BookmarkCreate Bookmark
  • Create Note or TagCreate Note or Tag
  • PrintPrint