UTILISATION D’UNE COLLECTION POUR GÉRER TOUS LES PARAMÈTRES D’UNE APPLICATION MS ACCESS

---

Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

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")

Option Explicit

Public pcolParametresRequete As New Collection

Function FixerValeurParam(ByVal strNomParam As String, _
                          ByVal vntValeur As Variant) As Boolean
  On Error Resume Next
  With pcolParametresRequete
     Remove strNomParam
     Add vntValeur, strNomParam
  end With
End Function

Function FournirValeurParam(ByVal strNomParam As String) As Variant
  On Error Resume Next
  FournirValeurParam = pcolParametresRequete(strNomParam)
End Function

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

• CRÉATION ASSISTÉE PAR CODE DAO D’UNE TABLE DANS MS ACCESS – NOMBRE ET TYPE DE CHAMPS SELON LES BESOINS.
• FONCTION DAO PERMETTANT DE VÉRIFIER SI UNE TABLE POSSÈDE UN INDEX
• REQUÊTE SQL UNION DE MS ACCESS ERRONÉE SANS LE PRÉDICAT ALL.

• COMMENT DESSINER UN GRAPHE ORIENTE BY CHIHAOUI CAD UN GRAPHE QUI CONTIENT DES FLÈCHES ET NON PAS DES ARCS
• LISTE DES EMAILS, NUMÉRO DE TÉLÉPHONNES DES TRAVAILLEURS
• CALCUL DE MORTIER ET BETON
• GESTION DES BONS DE LIVRAISON
• GESTION DE STOCK

• ACCESS TO ( XML,EXCEL )
• ACCESSTABLESCRIPT
• CONNEXION BASES DE DONNÉES
• BOITE A OUTILES ADO (CONNEXION,COMMAND,PARAMETER)
• MODULE ACCESS : REQUETESQL->QUERY->OUERTURE REPORT->EXPORTATION DU REPORT