Enregistrer dans une table le nom des tables de la base


Le code qui suit permet de sauvegarder dans une table le nom de toutes les tables de la base de donnée en cour.

Les arguments "strTable" et "strField" correspondent au nom de la table et au nom du champ où l'on souhaite sauvegarde le nom de toutes les tables.

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

 

Retour haut de page

Auteur : Jessy SEMPERE