Compléments pour Microsoft Access

Description

		Cette fonction permet de renommer un objet qui se trouve dans une base de donnée externe.

Synthaxe

RenameObjectExterne (strDb, intType, strNew, strOld)

La synthaxe de la fonction RenameObjectExterne 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.
intType	Expression numérique correspondant au type d'objet que l'on souhaite renommer (à 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).
strNew	Expression de chaîne correspondant au nouveau que l'on souhaite donner à l'objet.
strOld	Expression de chaîn correspondant au nom de l'objet que l'on souhaite renommer.

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 : RenameObjectExterne "c:...BaseExterne.mdb", 2, "NouveauNomObjet", "AncienNomObjet"

Code de la fonction

Public Function RenameObjectExterne(strDb$, intType%, strNew$, strOld$)
'** 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 strDb
    .DoCmd.Rename strNew, intType, strOld
    .CloseCurrentDatabase
End With
acApp.Quit: Set acApp = Nothing

End Function

Renommer objet externe (Commandes externes)