Compléments pour Microsoft Access

Description

		Cette fonction permet de sauvegarder dans une table le nom de toutes les tables de la base de données en cours.

Synthaxe

LstTableInTable(strTable, strField)

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

Eléments	Description
strTable	Expression de chaîne correspondant au nom de la table dans laquelle ou souhaite stocker la liste des tables.
strField	Expression de chaîne correspondant au nom du champ où l'on va stocker la donnée.

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

Public Function LstTableInTable(strTable As String, strField As String)

CurrentDb.execute "Delete *.* from " & strTable & ";"
For Each tdf In CurrentDb.TableDefs
CurrentDb.execute "INSERT INTO " & strTable & " ( " & strField & " ) " _
& "Select '" & tdf.Name & "';"
Next

End Function

Lister les tables dans une table (Table)