Où est la table

Trouver l'emplacement d'une Table

Nom et emplacement de la base de données dans laquelle se trouve une table

N'oubliez pas la référence DAO

Function fEmplacementTable(LaTable As String) As String
    On Error GoTo err
    Dim dbs As DAO.Database
    Dim TblDef As DAO.TableDef
    Set dbs = CurrentDb()
    Set TblDef = dbs.TableDefs(LaTable)

    If TblDef.Attributes = dbAttachedTable Then
        fEmplacementTable = Right(TblDef.Connect, Len(TblDef.Connect) _
                            - InStr(1, TblDef.Connect, "DATABASE=") - 8)
    Else
        fEmplacementTable = dbs.Name
    End If

err:
    If err.Number = 3265 Then
        fEmplacementTable = "Table : " & LaTable & " non trouvée"
    End If
    dbs.Close
    Set TblDef = Nothing
    Set dbs = Nothing
End Function