Discussion :

[frantz44]

Bonsoir à tous,

Je cale sur un problème qui pourtant, me parait simple à résoudre.

J'ai 3 groupes d'options, contenant chacune 3 boutons, ce qui fait 27 combinaisons possibles. Ces groupes servent a selectionner des options d'affichage d'état de statistiques.

Cela fonctionne très bien avec des IF et ELSIF, mais cela fait une quantité de code...

Je voudrais donc le simplifier de la sorte :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim strFiltre1 As String
Dim strFiltre2 As String
Dim strFiltre3 As String
 
Dim strfiltreGlobal As String
 
StDocName = "STATS LIEU SIGNATURE / VENDEUR"
 
 
Select Case Me.CadreSelVentes.Value
    Case 2
    strFiltre1 = "[COMMANDE ANNULEE] = False"
    Case 3
    strFiltre1 = "[COMMANDE ANNULEE] = True"
End Select
 
Select Case Me.CadreSelTerrain.Value
    Case 2
    strFiltre2 = "[LOTISSEMENT] = True"
    Case 3
    strFiltre2 = "[LOTISSEMENT] = False"
End Select
 
Select Case Me.CadreSelLieu.Value
    Case 2
    strFiltre3 = "[LIEU SIGNATURE] = 1"
    Case 3
    strFiltre3 = "[LIEU SIGNATURE] = 2"
End Select
 
strfiltreGlobal = strFiltre1 & strFiltre2 & strFiltre3
DoCmd.OpenReport StDocName, acViewPreview, , strfiltreGlobal

Mais cela me fait une erreur quand je selectionne plus d'un critère, sachant que les valeurs 1 ne filtrent rien, et que cela fonctionne quand les 3 groupes sont à la valeur 1



Avez vous une idée de la syntaxe qui cloche ?

Merci a tous pour vos retours

[f-leb]

Bonsoir,

Je suppose que ton filtre devrait ressembler à une condition Where en SQL, par exemple :

Code sql :

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

[COMMANDE ANNULEE] = False AND [LOTISSEMENT] = True AND [LIEU SIGNATURE] = 1

Il faut donc a priori rajouter les "AND" dans ta concaténation.

[frantz44]

Bonsoir,

Je suppose que ton filtre devrait ressembler à une condition Where en SQL, par exemple :

Code sql :

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

[COMMANDE ANNULEE] = False AND [LOTISSEMENT] = True AND [LIEU SIGNATURE] = 1

Il faut donc a priori rajouter les "AND" dans ta concaténation.

Oui tu as raison, cela devrait ressembler a ca, mais cela ne fonctionne pas. avec guillemets, erreur de code, sans guillemets ceci :

[frantz44]

en séparant les filtres par & cela donne le filtre suivant



Si je mets des AND entre les filtres, le filtre est vide :

[f-leb]

Plutôt :

Code :

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

strfiltreGlobal = strFiltre1 & " AND " & strFiltre2 & " AND " & strFiltre3

[frantz44]

Plutôt :

Code :

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

strfiltreGlobal = strFiltre1 & " AND " & strFiltre2 & " AND " & strFiltre3

Comment ai-je pu passer à coté... Tout ca pour une histoire d'espaces !
Ca fonctionne !
Par contre j'ai un autre souci

Si dans le 1er cadre d'options, je selectionne la valeur 1, cela me retourne une erreur, car je n'ai aucune conditions CASE 1. En fait, sur CASE 1, je veux inhiber le strFiltre1.

J'ai tenté strFiltre1 = "", = Null, ca ne fonctionne pas.
Y a t-il une fonction "afficher tout" ?

J'ai aussi essayé, il n'en veut pas

strFiltre1 = "[COMMANDE ANNULEE] = False And [COMMANDE ANNULEE] = True"

En fait l'erreur vient que le filtre commande par AND :

[frantz44]

C'est bon, j'ai trouvé la solution...

Il suffit de mettre un CASE 1= "[DONNEE COMMUNE A TOUS LES ENREGISTREMENTS] = True"

J'ai un NOM a tous mes dossiers, j'ai donc mis
CASE 1= "[NOM] = True"

C'est vicieux par moment ! Il faut ruser !

Merci en tous cas pour le " AND " f-leb, ca marche mieux avec les espaces