Discussion :

[abdoudiaw]

Bonjour,
J'ai un formulaire qui affiche tous les enregistrements d'une table.
Sur ce formulaire un groupe d'options avec trois boutons:
1-pour filtrer et afficher seulement les enreg dont le FieldOne est vrai
2-pour filtrer et afficher seulement les enreg dont le FieldTwo est vrai
3-pas de filtre (afficher tous les enregistrements)
Voici mon code VBA mais il ne fonctionne pas (aucun filtrage).
Un problème de syntaxe?

Private Sub FiltrageFiledOneFieldTwo_Click()
Select Case optSortForm

Case 1
Me.Filter = "[FieldOne] = 'True' "
Me.FilterOn = True
Case 2
Me.Filter = "[FieldTwo] = 'True' "
Me.FilterOn = True
Case 3
Me.FilterOn = False

End Select

End Sub

[marsouin_89]

Bonsoir,

Essaies (True sans guillemets) :

Code :

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

Me.Filter = "[FieldOne] = True "

Ou si FieldOne est numérique :

Code :

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

Me.Filter = "[FieldOne] = -1"

Cordialement

Cordialement

[abdoudiaw]

Merci pour l'aide.
Le filtrage ne se fait toujours pas.
J'ai comme l'impression qu'il me manque la commande qui va effectivement 'rafraichir' la forme avec les enregistrements sélectionnés.
Je voudrais aussi faire du débogage:
-faire du pas à pas
-afficher le contenu de la variable optSortForm pour m'assurer qu'elle prend les bonnes valeurs (1,2,3) lorsqu'on sélectionne une des options. Quelle est la sysntaxe qui ferait l'équivalent de Display optSortForm ?

Merci encore.

[dumas.blr]

Pour le débuggage, regarde ce tuto
sinon, pense à faire un Me.requery à la fin de ta procédure

[abdoudiaw]

Merci beaucoup.
Ca marche parfaitement maintenant grace à votre aide.