verification each accheckbox mais pas tous. comment en omettre certain?

bonjour,

voila j'essaye de faire un code vba de multi critère et j'aimerai qu'au click sur le bouton rechercher il m'affiche les résultats...j'ai pleins de cases a cocher qui m'affiche ou non le champs en rapport avec celui ci
il y a une personne du forum qui ma aider et ma donner ce code pour cela le voici en partie

Code:

---

1 2 3 4 5 6 7 8 9 10

For Each ctl In Me.Controls 'tu ne t'intéresse qu'aux cases à cocher If ctl.ControlType = acCheckBox Then If ctl.Value = True Then 'elle est selectionnée alors je la selectionne dans ma requête 'ne marche que si ton controle porte le meme nom que ta colonne reqSQL = reqSQL & ctl.Name & ", " End If End If Next ctl

---

il marche il ajoute bien dans la chaine SQL mais j'ai 3 questions et problèmes..
1/ certaines cases a cocher sont la uniquement pour activer un control et non figurer ds mon sql...donc comment les ommettre de ma liste?
2/ il ajoute le nom de mon controle ds la chaine sql, mais tout mes checkbox commence par chk comment lui dire d'enlever le chk?
3/comment savoir et controler l'ordre d'insertion dans la chaine sql de chaque controle?
voilou merci

Bonjour

Citation:

---

Envoyé par doogybreton

1/ certaines cases a cocher sont la uniquement pour activer un control et non figurer ds mon sql...donc comment les ommettre de ma liste?

---

Nommes te contrôles en conséquences, pour avoir lorsque tu les listes un test sur le nom du contrôles, avec par exemple pour ce contrôles ils pourraient commencer par chkActive..., et tu fais un test en plus des types de contrôles en disant :

Code:

---

If Left(ctrl.name,9) = "chkActive" then

---

Citation:

---

2/ il ajoute le nom de mon controle ds la chaine sql, mais tout mes checkbox commence par chk comment lui dire d'enlever le chk?

---

Utilises la fonction Replace, en remplaçant chk par une chaine vide ("")

Citation:

---

3/comment savoir et controler l'ordre d'insertion dans la chaine sql de chaque controle?
voilou merci

---

Il faudrait que tes contrôles est une numérotation logique 1,2,3, etc.. et que tu fasses une boucle For i=1 to ... pour ajouter tes contrôles au fur et à mesure.
Pour éviter de renommer tes contrôles, utilises la propriété Tag de ceux-ci, c'est une zone ou tu peux mettre du texte, et tu peux l'interroger.

Starec

oki merci !!
en résumé le plus simple comme il y a beaucoup d'exeption et que j'ai besoin d'un ordre ..je vais devoir les faire un par un je pense ..le souci que j'ai compter j'ai 118 cases a cocher sur mon formulaire dont 11 ne servant pas au code SQL et servent pour activé une combox^^ ca en fait ca ! du coup je crois que je vais faire comme ca, jai pas trop le choix:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

'tu parcours tout tes controle du formulaires (bouton, textBox,...) If Me.Chk_humgac Then reqSQL = reqSQL & "HUMGAC, " End If If Me.chk_ID2 Then reqSQL = reqSQL & "ID2, " End If If Me.Obssem Then reqSQL = reqSQL & "OBSsem, " End If If Me.Hartsem Then reqSQL = reqSQL & "Hartsem, " End If If Me.Humsec Then reqSQL = reqSQL & "Humsec, " End If '...etc etc etc

---