Discussion :

[yschmidlin]

Bonjour,

Je veux Filtrer un Etat a partir d'un critere a choisir dans une liste deroulante. Le code affiche l'etat, mais le filtre ne fonctionne pas.
Le bouton bntEditer appartient au formulaire frm Magasins. L'etat rpt Magasins est construit a partir de la requete rqt Magasins
De meme le formulaire frm Magasins est construit a partir de la requete rqt Magasins

Voici un morceau de mon code

Private Sub btnEditer_Click()

Dim stDocName As String
Dim strfiltre As String

stDocName = "rpt Magasins"

strfiltre = funcFiltre(strfiltre)

DoCmd.OpenReport stDocName, acPreview, , strfiltre

End Sub

Function funcFiltre(strfiltre As String) As String

'Filtrer sur le Groupe
If Not IsNull(Me.cmbGroupe) Then
strfiltre = "([GRP]=" & Me.cmbGroupe & ")"
End If

funcFiltre = strfiltre

End Function

Qur dois je faire?

Merci

[pgz]

Bonjour,

A priori j'imagine 2 causes possibles de pb:

Dans ta liste, le critère se trouve en colonne 1 ( tu peux le vérifier avec un msgbox sur MAJ de la liste). Dans ce cas :

Code :

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

strfiltre = "([GRP]=" & Me.cmbGroupe.column(1) & ")"

Le critère est de type chaîne de caractères. Alors :

Code :

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

strfiltre = "([GRP]='" & Me.cmbGroupe & "')"

Et éventuellement les deux:

Code :

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

strfiltre = "([GRP]='" & Me.cmbGroupe.column(1) & "')"

Petite remarque : ça ne doit pas gêner le fonctionnement mais tu tricotes vachement entrre strFiltre et FuncFiltre ...

COrdialement,
pgz