Si vous avez une application MS Access où vous déclarez plusieurs variables publiques ou une application avec des requêtes paramétrées, vous pouvez remplacer toutes ces variables avec une seule collection et 2 fonctions assurant la gestion de cette collection.
Le code se détaille ainsi;
- la déclaration de la collection pcolParametresRequete dans un module standard;
- la fonction FixerValeurParam pour enregistrer vos paramètres dans la collection et qui possède 2 paramètres;
o strNomParam qui est le nom du paramètre et la clé de la collection;
o vntValeur qui est la valeur du paramètre;
- la fonction FournirValeurParam qui retourne la valeur du paramètre indiqué par strNomParam;
- dans les 2 fonctions, on trouve la commande « On Error Resume Next » qui poursuit le déroulement du code à la ligne suivante soit celle levant une erreur si vous indiquez le nom d’une clé inexistante.
Voici des exemples de syntaxe des fonctions;
Call FixerValeurParam(strNomParam:="NomDuParamètre", _
vntValeur:=ValeurDuParamètre)
FournirValeurParam(strNomParam:="NomDuParamètre")