| | Cette fonction permet de sauvegarder dans une table le nom de toutes les tables de la base de données en cours. | | |
| | | | |
| | 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. |
| | |
| | | | |
| | Aucun exemple disponible pour le moment. | | |
| | | | |
| |
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 1976 fois
Prévisualiser la page
Imprimer la page