Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Codes pour Access

Base de données

Administrateur

Table

Requête

Formulaire

Dates & Heures

Nombre

Math

Fichier

Commandes externes

Exporter objet externe
º Renommer objet externe
º Suprimer objet externe

Automation

Equivalence

Tuto Access 2007

Base de données

Lettre d'information

Commandes externes - Exporter objet externe

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éments	Description
strDb	Expression 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.
strDbDest	Expression de chaîne correspondant au chemin complet et au nom de la base de données de destination de l'objet.
intType	Expression 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).
strObject	Expression de chaîne correspondant au nom de l'objet que l'on souhaite exporter.

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

Constante	Valeur	Description
acTable	0	Table de la base
acQuery	1	Requête de la base
acForm	2	Formulaire de la base
acReport	3	Etat de la base
acMacro	4	Macro de la base
acModule	5	Module 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

Date de création : 27/10/2006 @ 16:02
Dernière modification : 27/10/2006 @ 16:06
Catégorie : Commandes externes
Page lue 2020 fois

Prévisualiser la page Imprimer la page