Les mémos
Je débute...
Visites

 987939 visiteurs

 1 visiteur en ligne

Recherche
 
Fermer

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

Catégorie : Les mémos - Tables
Page lue 6692 fois