Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Qui sont les MVP ?

 
 

Codes pour Access

+ Base de données
+ Administrateur
+ Table
+ Requête
+ Formulaire
+ Dates & Heures
+ Nombre
+ Math
+ Fichier
 -  Commandes externes
+ Automation
+ Equivalence
 
 

Tuto Access 2007

+ Base de données
 
 

Lettre d'information

Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner

captcha
Merci de recopier le code alphanumérique ci-dessus
120 Abonnés
 
 

Commandes externes - Renommer objet externe

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émentsDescription
strDbExpression de chaîne correspondant au chemin complet et au nom de la base de données externe.
intTypeExpression 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).
strNewExpression de chaîne correspondant au nouveau que l'on souhaite donner à l'objet.
strOldExpression de chaîn correspondant au nom de l'objet que l'on souhaite renommer.

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 :

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

 


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


Prévisualiser la page Prévisualiser la page     Imprimer la page Imprimer la page

 
 

Réactions à cet article


Personne n'a encore laissé de commentaire.
Soyez donc le premier !


 
 

Recherche




Google

 
 

Préférences

Votre nom (ou pseudo) :

Votre mot de passe :

     


Membres 80 Membres

membres les 10 derniers :
Habibchalakh   CJ6774   monaker   Jerry   jujubegood   Rachid   fifimeyrou   MoxQwoidT   fof_alaz   bellemeche   
Membre en ligne : Membre en ligne :
( personne )
Anonyme en ligne : Anonyme en ligne : 1

Total visites : Total visites : 184498  
hit Affluence record: 102
le 17/06/2007 @ 07:36

Ecrire à Jessy SEMPERE Ajouter aux favoris Recommander ce site à un ami Version mobile
 
 


Design Jessy © 2007 - Compatible IE6, IE7 et Mozilla 2.0.0.1

  Site créé avec GuppY v4.5.18 © 2004-2005 - Licence Libre CeCILL

Document généré en 0.13 seconde