Discussion :

[steeves5]

Salut à tous

j'ai un problème avec une requete crée avec VBA.

J'ai un formulaire qui dispose de trois case à cocher.
ces cases vont permettre de filtrer les données du formulaires.

voici le code de chaque case à cocher :

Code :

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

1
2
3
4
5
6
7
 
Dim monSQL as string : déclaré en global
 
ensuite dans l'instruction clic de chaque case à cocher 
if me.Case1 then
monSQL="Type= ' " & "Condition" " ' "
End if

Et le problème ces que si j'active deux case à cocher il me prend que la dernière en compte

Comment faire opur qu'il ajoute ou retire des conditions en fonctions des cases actives?

Merci de votre aide

[tamerlan]

inspires toi de ce tuto
http://loufab.developpez.com/recursivite/
il y a le code que tu cherches
n hesites pas si t as du mal a comprendre.

[steeves5]

c vrai que le tuto est intéressant.

est-il possible de recupérer les critères déjà actif dans ma condition Where de ma requete et de retirer une des conditions?

Merci de ton aide

[tamerlan]

desolee je comprends pas tres bien....... QU est ce que tu sous entend par criteres deja actif ?

[steeves5]

j'ai modifier mon code

je teste si ma variable monSQL est vide ou non dans le cas ou elle est vide le code est

Code :

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

monSQL="TYPE= '" & "Critere 1" & "'"

sinon

Code :

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

monSQL=monSQL & "OR TYPE= '" & "Critere 1" & "'"

mais le soucis c'est que ça marche pas terrible et j'ai mis un msgbox pour visualiser ma variable monSQL

et je me suis rendu compte que ma condition where prend en compte un même critere plusieur fois
si je clique deux fois sur une des cases à cocher le critere est pris en compte deux fois

je suis assez clair?

[tamerlan]

non, comment tu testes ta variable? et pourquoi tu test pas directement si ta case est cochée?

[steeves5]

je sais pas justement si c'est possible de la tester?

les testes sont effectués sur chauque case à cocher dans l'instruction onclick

[tamerlan]

non, je ne ferai pas comme ca a ta place. mais tu fais ce que tu veux, c est juste un conseil.

if isnull(Cocher1)=true then
monSQL="TYPE= '" & "Critere 1" & "'"
else
monSQL=monSQL & "OR TYPE= '" & "Critere 1" & "'"
end if

je mettrai ce code dans un bouton. pas besoins de le mettre dans l'evenement de chaque case

[steeves5]

tu dois avoir raison car la plupart du code que j'ai vu etait justement comme tu le décris

Donc je vais essayer ta méthode.

merci beaucoup de ton aide

[steeves5]

ça marche nikel

Merci pour ton aide

J'aurais une derniere question sais tu comment utiliser la commande like

Car je ne parviens pas à l'utiliser, maintenant je souhaiterai filtrer une second champs mais en laissant à l'utilisateur le droit de ne pas tout saisir.

Merci d'avance

[tamerlan]

vas voir ce site
http://www.netalya.com/fr/sql.asp

[steeves5]

Je pense que ça ira je viens de trouver j'avais juste une problème de guillement.Mais j'ai relevé l'adresse du siet que tu m'as donné car je pense que j'en aurais besoin.

merci pour ton aide