Filtre sur case à cocher

Question

--------------------------------------------------------------------------------

Bonjour,

J'ai un formulaire continu qui regroupe tous les enregistrements de ma base. Dans ce formulaire j'ai 4 cases à cocher (on les nomme cocher1...cocher4), qui sont décochées à l'ouverture du formulaire et qui filtre des valeurs(val1...val4).
Lorsqu'on coche un case, sa filtre les enregistrements en affichant ceux qui correspondent à la valeur de la case cochée (jusqu'ici pas de problème).

Mon problème survient lorsque je coche une deuxième case. J'aimerais que sa cumule les deux filtres. Or dans mon cas sa remplace les valeurs du 1er filtre par le deuxième.
J'aimerais savoir comment on fait pour cumuler les filtres sur les 4 cases à cocher?

J'espère avoir été clair.
Merci de votre aide.

4u4me4us · Answer

Peux-tu poster la/les lignes de code qui fait le premier filtre. Celui qui fonctionne.

dragoes64 · Answer

POur l'instant mon code est le suivant :

Private Sub CocherSSS_Click()
If CocherSSS.Value = True Then
DoCmd.ApplyFilter , "([SYSTEM] = 'SSS')"
Else
FilterOn = False
End If
End Sub
Private Sub CocherPSS_Click()
If CocherPSS.Value = True Then
DoCmd.ApplyFilter , "([SYSTEM] = 'PSS')"
Else
FilterOn = False
End If
End Sub
Private Sub CocherHIPS_Click()
If CocherHIPS.Value = True Then
DoCmd.ApplyFilter , "([SYSTEM] = 'HIPS')"
Else
FilterOn = False
End If
End Sub
Private Sub CocherPACK_Click()
If CocherPACK.Value = True Then
DoCmd.ApplyFilter , "([SYSTEM] = 'PACKAGE')"
Else
FilterOn = False
End If
End Sub

En fait pour chaque case à cocher je fait le filtre. Ce que je n'arrive pas a faire c'est par exemple créé une fonction qui me cumule ces filtres si je coche plusieurs cases.

Merci,

4u4me4us · Answer

Suis désolet mais je ne reconnais pas la commande ApplyFilter. Je m'attandais a un recordset ou a des req. SQL.

Bref suis désolet mais moi je ne peut pas t'aider c audessus de mes compétances.

dragoes64 · Answer

Sinon j'ai testé ce code avec des requêtes mais il se passe rien quand je coche la case : 

Private Sub FilterEnrg()
Dim SQL As String

SQL = " SELECT SYSTEM,SIMPLE,TYPE,WORKPERMIT,COMMENTS,REQUESTER,POSTE,TAGNAME,UNIT,FUNCTION,EQUIPMENT,LEVEL,STATUS FROM SSS WHERE ID <>0"

If Me.CocherSSS Then
SQL SQL & "OR SYSTEM 'SSS'"
End If

If Me.CocherPSS Then
SQL SQL & "OR SYSTEM 'PSS'"
End If

If Me.CocherHIPS Then
SQL SQL & "OR SYSTEM 'HIPS'"
End If

If Me.CocherPACK Then
SQL SQL & "OR SYSTEM 'PACKAGE'"
End If

Me.RecordSource = SQL

End Sub


Si tu as une solution avec ceci?

Merci

4u4me4us · Answer

Oui! Je comprends mieu.

Peut tu utliliser un ADO recordset ?

Si oui je te donne l'exemple fait en VB6

Set infoChange = New ADODB.Recordset
infoChange.Open SQL

dragoes64 · Answer

A vrai dire je ne maitrise pas trop le recordset. 
Après à partir du code que j'ai posté, ne peut on pas l'amélioré pour que sa fonctionne, je vois pas ce qui ne marche pas.

Merci

4u4me4us · Answer

Ce qu'il y a c que je ne connais pas RecordSource.

J'ai regardé sur le net et j'ai trouvé ça:
Adodc1.RecordSource = "Select * from Records Where Name like'" & Text17.Text & "%'"
Adodc1.CommandType = ADODB.CommandTypeEnum.adCmdText
        Adodc1.Refresh()

Que je pense qu'il faut adapter comme cela:

Me.RecordSource = SQL
Me.CommandType =ADODB.CommandTypeEnum.adCmdText
Me.Refresh()


Encore une fois je te présise que je ne connais pas ce code.

Filtre sur case à cocher

7 réponses

Votre réponse

Discussions similaires