Hopefully someone can help me out here. DBase 1 has linked tables to DBase 2. There was a crash on DBase1. Now when it checks for the correct tables in DBase 2 it is now looking for ~TMPCLP348951. How do i get the DBases to not look for these? I use the code created here to check to ensure we are connected to DBase 2. Using a Global Module it was working fine until this happened now i can not get out of this?

This is link table code.

Code

Public Function TableIsLinked(TableName As String)

    Dim rs As Recordset
    
    On Error GoTo TableErr
    Set rs = CurrentDb.OpenRecordset(TableName)
    rs.Close
    Set rs = Nothing
    TableIsLinked = True
    Exit Function
      
TableErr:
    TableIsLinked = False
    
End Function
Public Function GetLinkFilename(TableName As String) As String

    Dim FN As String, curfolder As String
    
        If MsgBox("Please select the correct Data Storage FD Air Fill BE, containing the necessary tables:" & TableName, _
        vbOKCancel + vbCritical, "Tables Not Found") = vbCancel Then
            Quit
    End If
    
    
    curfolder = CurrentProject.Path & "\*.ACCDB"
    FN = PickFile(curfolder)
    If FN = "" Then Quit
    
    GetLinkFilename = FN

End Function
Public Function LinkTable(td As TableDef, FN As String)

    On Error GoTo LinkFail
    Echo True, "Relinking " & td.Name
    td.Connect = ";DATABASE=" & FN
    td.RefreshLink
    LinkTable = True
    Exit Function
        
    
LinkFail:
        LinkTable = False

End Function


Public Sub CheckForDataFile()

    Dim td As TableDef, FN As String
    
    FN = ""
        
    For Each td In CurrentDb.TableDefs
        If (td.Attributes And dbAttachedTable) Then
            If Not TableIsLinked(td.Name) Then                      'This relates to Public Function Tablename
                If FN = "" Then FN = GetLinkFilename(td.Name)       'This relates to public function GetLinkFilename
                While Not LinkTable(td, FN)                         'This relates to public function LinkTable
                    FN = GetLinkFilename(td.Name)
                Wend
            End If
        End If
    Next

End Sub

    

Public Function PickFile(Optional InitialFolder As String = "") As String

On Error Resume Next
Dim FO As Object
Set FO = Application.FileDialog(3)
If InitialFolder <> "" Then FO.InitialFilename = InitialFolder
FO.Show
PickFile = FO.SelectedItems(1)

End Function