En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1218172 visiteurs

 11 visiteurs en ligne

Nous contacter

Contact

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

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

Vous êtes ici :   Accueil » Où est la table