Discussion :

[doogybreton]

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 :

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

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

[Invité]

Bonjour

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 :

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

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

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

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

[doogybreton]

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 :

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

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