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 :
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
Date de création : 27/10/2006 @ 16:01
Dernière modification : 27/10/2006 @ 16:06
Catégorie : Commandes externes Page lue 1492 fois