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 If

End Function

 

Retour haut de page

Auteur : Jessy SEMPERE