[AC-2007] Filtrer un vrai faux [Résolu]

[frabeau]

Bonjour à tous,

Est-il possible de filtrer un formulaire suivant l'état d'une case à cocher.
Je m'explique : je ne veux faire afficher que les lignes dont la case est cochée.

Merci de vos réponses.

[fbtsra]

Bonjour,

Code :

1
2
3
 
Me.Filter = "[test]=true"
Me.FilterOn = True

Avec test = nom de votre case à cocher.

Bcdt

[frabeau]

Le type de filtre que je demande doit s'imbriquer avec d'autre filtres.
A quel endroit je dois le positionner dans le code ?

Code sql :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CmdFiltre_Click()
f = "[Qté]<>0"
IF NOT IsNull(Me.Rart) AND Me.Rart <> "" Then
f = f & " AND art6 LIKE ""*" & Me.Rart & "*"""
End IF
IF NOT IsNull(Me.Rcde) AND Me.Rcde <> "" Then
f = f & " AND commande = """ & Me.Rcde & """"
End IF
IF NOT IsNull(Me.Rclt) AND Me.Rclt <> "" Then
f = f & " AND Client LIKE ""*" & Me.Rclt & "*"""
End IF
IF NOT IsNull(Me.Rdate) AND Me.Rdate <> "" Then
f = f & " AND [date liv]=#" & Me.Rdate & "#"
End IF
IF Cadre57 = 1 Then
f = f & " AND Type='SAV'"
Else
f = f & " AND Type='1ère monte'"
End IF
Me.Filter = f
Me.FilterOn = True
End Sub

[fbtsra]

Je vois que vous avez suivi mes préconisations d'initialisation du filtre ...

Si les critères se cumulent :

Code :

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
Private Sub CmdFiltre_Click()
f = "[Qté]<>0"
IF NOT IsNull(Me.Rart) AND Me.Rart <> "" Then
f = f & " AND art6 LIKE ""*" & Me.Rart & "*"""
End IF
IF NOT IsNull(Me.Rcde) AND Me.Rcde <> "" Then
f = f & " AND commande = """ & Me.Rcde & """"
End IF
IF NOT IsNull(Me.Rclt) AND Me.Rclt <> "" Then
f = f & " AND Client LIKE ""*" & Me.Rclt & "*"""
End IF
IF NOT IsNull(Me.Rdate) AND Me.Rdate <> "" Then
f = f & " AND [date liv]=#" & Me.Rdate & "#"
End IF
IF Cadre57 = 1 Then
f = f & " AND Type='SAV'"
Else
f = f & " AND Type='1ère monte'"
End IF
 
f = f & " AND [test]=true"
 
Me.Filter = f
Me.FilterOn = True
 
end Sub

Bcdt

[frabeau]

Je ne dois pas être doué, mais cela ne fonctionne pas.
J'ai ajouté une case à cocher dans mon entête de formulaire.
Sil est est = -1 (cochée), alors je souhaite que cela filtre tous les enregistrement dont la case à cochée nommée "réservétotal" est = -1, sinon il doit tout affiché. Et cela en tenant compte des autres filtres.

[fbtsra]

Bonjour,

Vous avez une ou deux cases à cocher ?

Si il n'y en a qu'une nommée "réservétotal" pour chaque enregistrement, alors :

Code :

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
 
Private Sub CmdFiltre_Click()
f = "[Qté]<>0"
IF NOT IsNull(Me.Rart) AND Me.Rart <> "" Then
f = f & " AND art6 LIKE ""*" & Me.Rart & "*"""
End IF
IF NOT IsNull(Me.Rcde) AND Me.Rcde <> "" Then
f = f & " AND commande = """ & Me.Rcde & """"
End IF
IF NOT IsNull(Me.Rclt) AND Me.Rclt <> "" Then
f = f & " AND Client LIKE ""*" & Me.Rclt & "*"""
End IF
IF NOT IsNull(Me.Rdate) AND Me.Rdate <> "" Then
f = f & " AND [date liv]=#" & Me.Rdate & "#"
End IF
IF Cadre57 = 1 Then
f = f & " AND Type='SAV'"
Else
f = f & " AND Type='1ère monte'"
End IF
 
f = f & " AND [réservétotal]=true"
 
Me.Filter = f
Me.FilterOn = True
 
end Sub

sinon si il y a une case à cocher que je nomme "test", qui si elle est cochée permet le filtrage par le critère case à cocher "réservétotal" des enregistrements, alors :

Code :

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
 
Private Sub CmdFiltre_Click()
f = "[Qté]<>0"
IF NOT IsNull(Me.Rart) AND Me.Rart <> "" Then
f = f & " AND art6 LIKE ""*" & Me.Rart & "*"""
End IF
IF NOT IsNull(Me.Rcde) AND Me.Rcde <> "" Then
f = f & " AND commande = """ & Me.Rcde & """"
End IF
IF NOT IsNull(Me.Rclt) AND Me.Rclt <> "" Then
f = f & " AND Client LIKE ""*" & Me.Rclt & "*"""
End IF
IF NOT IsNull(Me.Rdate) AND Me.Rdate <> "" Then
f = f & " AND [date liv]=#" & Me.Rdate & "#"
End IF
IF Cadre57 = 1 Then
f = f & " AND Type='SAV'"
Else
f = f & " AND Type='1ère monte'"
End IF
 
If [test]=true then
f = f & " AND [réservétotal]=true"
End IF
 
Me.Filter = f
Me.FilterOn = True
 
end Sub

Bcdt

[frabeau]

Je suis dans le deuxième cas.
En lançant le code, il ne reconnait pas [réservétotal].
Est-ce les crochets qui posent problèmes ?

[fbtsra]

Le filtre se fait sur les données de la table : la case à cocher "réservétotal" doit avoir comme "source contrôle" le champ "réservétotal" pour que cela fonctionne. Si le champ de votre table ne se nomme pas "réservétotal", il faut changer le code avec le nom de ce champ.

Plus simplement le filtre se fait sur la "source contrôle" de la case à cocher et non sur son nom.

Code :

f = f & " AND [SourceControledeRéservétotal]=true"

BCdt

[frabeau]

Effectivement je le faisait sur le nom de la case à cocher au lieu de la sourcecontrôle.
Merci, cela fonctionne.
Une autre question sur ce même formulaire : existe-t-il un code permettant de lancer l'impression d'un etat correspondant aux données filtrées dans le formulaire ?

[fbtsra]

Oui :

Code :

DoCmd.OpenReport "Nomdel'état", , , Forms![Nomduformulaire].Filter

Bcdt