Compléments pour Microsoft Access

http://access.fr.free.fr/

Tester l'existence d'une table externe (Table)

Description 

Cette fonction permet de vérifier la présence d'une table dans une base de données externe.

 
Synthaxe 

TableExistExt (strBase, strTable)

La synthaxe de la fonction TableExistExt comprend les éléments suivants :

ElémentsDescription

strBase

Expression de chaîne correspondant au nom de la base de données où l'on souhaite vérifier la présence d'une table.
strTableExpression de chaîne correspondant au nom de la table que l'on veut vérifier.
 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


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