Iron_dams

Je suis actuellement sur un projet en ACCESS / VBA, et je viens de découvrir le fonctions de domaine, ce qui m'a permis de résoudre beaucoup de mes problèmes. Vous pouvez les retrouvés en cliquant sur ce lien : http://starec.developpez.com/tuto/fonctionsdomaines/

L'utilisation de ces fonctions est très utile, afin de simplifier vos actions. Elle remplace une requête sql et surtout l'utilisation d'un recordset. Vous pouvez directement l'affecter à une TxtBox, exemple :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
TxtBoxTotal = DCount("*", "Table")
 
TxtBoxMaxVal = DMax("champ", "Table", "[champ] = condition AND [champ] = condition AND ...")
 
TxtBoxCountMale = DCount("*", "QANONYME", "[sexe] = 'Garçon'")

Je viens de vous fournir 3 exemples d'utilisation, mais il y a d'autres fonctions comme DMin(), DAvg(), DSum(), ...
Dans mon cas, j'ai pu simplifier mon code en évitant l'utilisation d'un RecordSet. Et j'ai pu solutionner l'ensemble des problème que j'ai rencontré, notamment avec la possibilité de mettre en condition le choix d'une liste déroulante.
Attention quand même aux subtilités, pour un champ multivalué, j'entends par là que l'on peut lui définir plusieurs valeurs comme vous pouvez le voir sur l'image qui suit :
Ce type de champs demande à ce qu'on l'écrive comme suit :

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

TxtBoxAmis = DCount("*", "Table", "[champ].Value = 'Amis'")

La subtilité est situé dans le .Value, qui si il n'est pas indiqué, nous génère une erreur. Donc pour les fans de champs multivalué, pensez-y !

En espérant que cet article va vous simplifier la vie .

S33 Y0u L@t3r !

I_D