Compléments pour Microsoft Access

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

Lister les tables dans une variable (Table)

Description 

Cette fonction permet de sauvegarder dans une variable le nom de toutes les tables de la base de données en cours ou d'une base de données externe.

 
Synthaxe 

LstTableInVariable (strBase)

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

ElémentsDescription

strBase

Expression de chaîne correspondant au nom de la base de données pour laquelle on souhaite lister les tables.
 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


Dim tabNomTable() As String
Function LstTableInVariable(strBase As String)

Dim db As Database
Dim intTable As Integer
Dim tdf As TableDef
Set db = OpenDatabase(strBase)
intTable = 0
ReDim tabNomTable(db.TableDefs.Count)
For Each tdf In db.TableDefs
    intTable = intTable + 1
    tabNomTable(intTable) = tdf.Name
Next
db.Close: Set db = Nothing

End Function