Microsoft Access Source Code LibraryVerify Linked Tables in Your Microsoft Access Application

Provided by the FMS Development Team

Ever had a user move a backend Microsoft Access database or delete it?

Here is a routine you can use to ensure that the linked table actually exists in the location specified using ADOX. Paste the function below into a new module and call it.

This comes from Total Visual SourceBook's modADOJetADOX module. There's also an equivalent set of code to use DAO in CJetLinkedTables and CJetDatabase classes.

Required References: ADO Extensions for Data Definition Language and Security (ADOX)

Function to Verify Linked Tables using ADOX

Public Function ADOXTestLinkedTable(cnnConnection As ADODB.Connection, strTable As String) As Boolean
  ' Comments : Tests the specified linked table to see if its link is valid
  ' Params   : cnnConnection - open ADODB connection to the Jet Database
  '            strTable - name of the table to test
  ' Returns  : True if the link is valid, False otherwise
  ' Source   : Total Visual SourceBook

  Dim catTmp As New ADOX.Catalog
  Dim tblTmp As New ADOX.Table
  Dim strTmp As String
  Dim lngSaveErr As Long
 
  On Error GoTo PROC_ERR

  ' Open the catalog by setting its ActiveConnection property
  catTmp.ActiveConnection = cnnConnection

  ' Set a pointer to the table
  Set tblTmp = catTmp.Tables(strTable)

  If tblTmp.Properties("Jet OLEDB:Create Link") = True Then
    ' It is a linked table so try to open it by getting the name property of one it its fields. 
    ' If the table's link is not valid (for example, the database it is pointing to is moved, deleted, or renamed) this call fails. 
    ' We disable error handling to handle a potential failure.
    On Error Resume Next
    strTmp = tblTmp.Columns(0).Name
  
    ' Save the error number
    lngSaveErr = Err.Number
  
    ' Re-enable error handling
    On Error GoTo PROC_ERR

    ' If the save error number is not 0, an error occurred and we can assume that the link is invalid
    ADOXTestLinkedTable = (lngSaveErr = 0)
  End If
 
  ' Close the catalog to release resources
  Set catTmp = Nothing

PROC_EXIT:
  Exit Function

PROC_ERR:
  MsgBox "Error: " & Err.Number & ". " & Err.Description, , "ADOXTestLinkedTable"
  Resume PROC_EXIT
End Function

To call the above function, all you need to do is open a connection to the database.

Function TestLink()
  Dim cnn As ADODB.Connection

  Set cnn = New ADODB.Connection
 
  ' Open the connection
  With cnn
    .CursorLocation = adUseServer
   .Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Northwind.mdb"
  End With

  ' Example code for ADOXTestLinkedTable with status in Immediate Window
  Debug.Print ADOXTestLinkedTable(cnn, "Categories")
End Function

Table Design

Query Design

Form Design

Form Tips and Mistakes

Copy Command Button and Keep Picture

Module VBA to Forms and Controls

Form Navigation Caption

Resync Record in a Subform

Synchronize Two Subforms

Multiple OpenArgs Values

Late Bind Tab Subforms

Subform Reference to Control Rather than Field

Tab Page Reference

Shortcut Keys


Combo Box Top 6 Tips

Properties and Validation

Select First Item

Cascading Combo Boxes

Zip, City, State AutoFill

Report Design

Suppress Page Headers and Footers on the First Page of Your Report

Add the NoData Event

Annual Monthly Crosstab Columns

Design Environment

Add Buttons to the Quick Access Toolbar

Collapse the Office Ribbon for more space

VBA Programming

Basics: Forms and Controls

Run VBA Code from a Macro

Use Nz() to Handle Nulls

Avoid Exits in the Body of a Procedure

Shortcut Debugging Keys

Set Module Options

Math Rounding Issues

Rename a File or Folder

Avoid DoEvents in Loops

Age Calculations

Weekday Math

Send Emails with DoCmd.SendObject

Source Code Library

Microsoft Access Modules Library

Microsoft Access Modules

VBA Error Handling

Error Handling and Debugging Techniques

Error Number and Description Reference

Basic Error Handling

Pinpointing the Error Line

Performance Tips

Linked Database

Subdatasheet Name

Visual SourceSafe

Deployment

Runtime Downloads

Simulate Runtime

Prevent Close Box

Disable Design Changes

Broken References

Remote Desktop Connection Setup

Terminal Services and RemoteApp Deployment

Reboot Remote Desktop

Missing Package & Deployment Wizard

Avoid Program Files Folder

Unavailable Mapped Drives

Microsoft Access Front-End Deployment

System Admin

Disaster Recovery Plan

Compact Database

Compact on Close

Database Corruption

Remove 'Save to SharePoint Site' Prompt from an Access Database

Class Not Registered Run-time Error -2147221164

Inconsistent Compile Error

Decompile Database

Bad DLL Calling Convention

Error 3045: Could Not Use

Converting ACCDB to MDB

SQL Server Upsizing

Microsoft Access to SQL Server Upsizing Center

Microsoft Access to SQL Server Upsizing Center

When and How to Upsize Access to SQL Server

SQL Server Express Versions and Downloads

Cloud and Azure

Cloud Implications

MS Access and SQL Azure

Deploying MS Access Linked to SQL Azure

SQL Server Azure Usage and DTU Limits

Visual Studio LightSwitch

LightSwitch Introduction

Comparison Matrix

Additional Resources

Connect with Us

 

Free Product Catalog from FMS