Tester l'existence d'une table dans une base externe


Le code qui suit permet de savoir si une table existe ou non dans la base de donnée en cours.

L'argument "strTable" correspond au nom de la table dont on souhaite vérifier l'existence et l'argument "strBase" correspond au chemin complet de la base externe.

Public Function TableExistExt(strBase As String, _
    strTable As String) As Boolean

Dim db As Database, tdf As TableDef
TableExistExt = False
Set db = OpenDatabase(strBase)
For Each tdf In db.TableDefs
    If tdf.Name = strTable Then TableExistExt = True: Exit For
Next
db.Close: Set db = Nothing

End Function

Si la table existe, la fonction retournera True.

 

Retour haut de page

Auteur : Jessy SEMPERE