Compléments pour Microsoft Access

http://access.fr.free.fr/

Exporter objet externe (Commandes externes)

Description 
Cette fonction permet d'exporter un objet qui se trouver dans une base de donnée externe dans une autre base de données externe.
 
Synthaxe 

DeleteObjectExterne (strDbSrc, strDbDest, intType, strObject)

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

ElémentsDescription
strDbExpression de chaîne correspondant au chemin complet et au nom de la base de données externe qui contient l'objet que l'on souhaite exporter.
strDbDestExpression de chaîne correspondant au chemin complet et au nom de la base de données de destination de l'objet.
intTypeExpression numérique correspondant au type d'objet que l'on souhaite exporter (à partir d'Access 2000, il est possible de définir le type de donnée de cet argument comme AcObjectType en mettant intType As AcObjectType).
strObjectExpression de chaîne correspondant au nom de l'objet que l'on souhaite exporter.

Section Valeurs :
L'argument intType prend les valeurs suivantes :

ConstanteValeurDescription
acTable0Table de la base
acQuery1Requête de la base
acForm2Formulaire de la base
acReport3Etat de la base
acMacro4Macro de la base
acModule5Module de la base
 
Exemple 

Cette fonction pourra être appelée dans VBA de la façon suivante :

ExportObjectExterne "c:...BaseExterneSource", "c:...BaseExterneDestination.mdb", 2, "NomFormulaireAExporter"

 
Code de la fonction 


Public Function ExportObjectExterne(strDbSrc$­, strDbDest$­, intType%, strObject$­)
'** intType : 0 pour table, 1 pour requête, 2 pour formulaire
'** 3 pour état, 4 pour macro et 5 pour module

Dim acApp As Object

Set acApp = CreateObject("Access.Application")
With acApp
    .OpenCurrentDatabase strDbSrc
    .DoCmd.TransferDatabase acExport, , strDbDest, _
        intType, strObject, strObject
    .CloseCurrentDatabase
End With

acApp.Quit: Set acApp = Nothing

End Function