Exporter la structure d'une ou de toutes les tables
Le code qui suit permet d'exporter soit la structure d'une table bien précise, soit la structure de toutes les tables dans une autre base de donnée.
L'argument "strDb" correspond au chemin complet de la base de donnée de destination.
L'argument "strTable" est otionnel, s'il n'est pas indiqué, la fonction exportera la structure de toutes les tables de la base de données en cours par contre s'il est rensengné, seule la table stipulée dans cet argument sera exportée.
Public Function ExportStructureTable(strDb As String, _
Optional strTable As String)Dim tdf As TableDef
If IsMissing(strTable) Then
For Each tdf In CurrentDb.TableDefs
If Left(tdf.Name, 4) <> "Msys" Then
DoCmd.TransferDatabase acExport, "Microsoft Access", _
strDb, acTable, tdf.Name, tdf.Name, True
End If
Next
Else
DoCmd.TransferDatabase acExport, "Microsoft Access", _
strDb, acTable, strTable, strTable, True
End IfEnd Function
Auteur : Jessy SEMPERE