The VerifyLink Routine : Database File « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Database File

The VerifyLink Routine

 
Function VerifyLink() As Boolean
    Dim cat As ADOX.Catalog
    Dim tdf As ADOX.Table
    Dim strTemp As String

    Set cat = New ADOX.Catalog
    With cat
        Set .ActiveConnection = CurrentProject.Connection
        On Error Resume Next
        For Each tdf In .Tables
            If tdf.Type = "LINK" Then
                strTemp = tdf.Columns(0).Name
                If Err.Number Then
                    Exit For
                End If
            End If
        Next tdf
    End With
    VerifyLink = (Err.Number = 0)
End Function

 

Related examples in the same category