Compléments pour Microsoft Access

Description

		Cette fonction permet d'exporter la structure de toutes les tables dans une base de données externe ou alors la structure d'une seule table.

Synthaxe

ExportStructureTable(strDb [, strTable])

La synthaxe de la fonction ExportStructureTable comprend les éléments suivants :

Eléments	Description
strDb	Expression de chaîne correspondant au chemin complet et au nom de la base de données de destination de la structure d'une ou de toutes les tables.
strTable	Expression de chaîne facultative. Si cet argument n'est pas renseigné, toutes les structures de tables seront exportés sinon, seul la table saisie dans cet argument sera exportée.

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

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

Exporter structure (Table)