Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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