Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Codes pour Access

Base de données

Administrateur

Table

º Exporter structure

Lister les tables dans une table
º Lister les tables dans une variable
º NumAuto Perso
º Supprimer une table externe
º Tester l'existence d'une table
º Tester l'existence d'une table externe

Requête

Formulaire

Dates & Heures

Nombre

Math

Fichier

Commandes externes

Automation

Equivalence

Tuto Access 2007

Base de données

Lettre d'information

Table - Lister les tables dans une table

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

Date de création : 21/09/2006 @ 13:31
Dernière modification : 21/09/2006 @ 20:56
Catégorie : Table
Page lue 1520 fois

Prévisualiser la page Imprimer la page