Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Codes pour Access

Base de données

Administrateur

Table

Exporter structure
º Lister les tables dans une table
º Lister les tables dans une variable
º NumAuto Perso
º Supprimer une table externe
º Tester l'existence d'une table
º Tester l'existence d'une table externe

Requête

Formulaire

Dates & Heures

Nombre

Math

Fichier

Commandes externes

Automation

Equivalence

Tuto Access 2007

Base de données

Lettre d'information

Table - Exporter structure

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

Date de création : 20/09/2006 @ 22:38
Dernière modification : 21/09/2006 @ 09:55
Catégorie : Table
Page lue 1910 fois

Prévisualiser la page Imprimer la page