Access-3stone - Forum - Questions générale

Forum - Questions générale - Sujet n°356

1 membre

Connectés : ( personne )

Sujet n° 356	Lister des constantes personnalisées
le 08/04/2010 : 19:39 par marsouin_89 visiteur	Bonjour Pierre,Toujours dans le cadre de l'installation de mes références, j'aimerais simplifier mon code.Plutot que de définir chaque référence comme constante et par un nom particulier (ex : Const Office_11 = C:...), j'aimerais les définir comme Ref01, Ref02 (ex : Const Ref02 = C:...), ect.Ensuite, au travers d'une boucle, parcourir toutes ces constantes afin de les installer comme références.Et c'est à ce moment que je coince. Je ne sais pas comment faire pour lister les constantes qui sont dans mon module.Merci une fois de plus, de bien vouloir éclairer ma lanterne éteinte.CordialementChristophe

Réponse n° 1 -------- le 10/04/2010 : 15:03 par 3Stone Administrateur	Bonjour, La méthode le plus souvent utilisée est de supprimer toutes les références et de les réinstaller selon une liste définie avec la commande: Code : `References.AddFromFile "C:\....\machin.dll"` Autour de ce principe, on a déjà beaucoup "brodé", mais difficile à maitriser lorsque la base est une MDE. Cordialement, Pierre(3stone)

Réponse n° 2
--------
le 10/04/2010 : 15:44
par marsouin_89

Anonyme

visiteur

Bonjour Pierre,

Désolé, j'ai mal exposé mon sujet.

Concernant l'installation des références ou de la gestion pour le MDE, je n'ai pas de problèmes et ce, grace à tes codes.

J'aimerais simplement simplifier ma liste de référence. C'est à dire :

Au lieu d'avoir dans l'entête du module Const Office11=C:\blabla, Const MouseWhell=C:\blabla etc. j'aimerais avoir une liste du genre Ref1=C:\blabla, Ref2=C:\Blabla pour ensuite parcourir dans une boucle toute la liste des références.

Bien sur, nous partons du principe ou il n'y a que les 2 références obligatoires et que nous ne pouvons pas utiliser du DAO.

Cordialement

Christophe

Réponse n° 3 -------- le 12/04/2010 : 01:42 par 3Stone Administrateur	Bonjour, Utilise une variable tableau (array) Dim MaRef(3) As Variant MaRef(0) = "ce que tu veux" MaRef(1) = "une autre" etc... Ensuite, tu boucles... Cordialement, Pierre(3stone)