Discussion :

[Bernard123]

J'ai comme champ dans une table une case à cocher appelée "annulé" qui bien sur renvoie vrai ou faux.
J'ai un query qui fait appel entre autre à cette table et qui affiche tous les enregistrements, donc y compris ceux qui sont annulés.
Cette requête est affichée en sous-formulaire dans un formulaire.
On me demande s'il est possible de rajouter un switch pour afficher au choix : tous les enregistrements ou bien uniquement les "non annulés".

J'avais pensé rajouter un champ "case à cocher" dans le formulaire et rajouter dans le query un critère "comme" renvoyant à ce champ mais alors je ne pourrais obtenir que "les enregistrements non annulés" ou "les enregistrements annulés". Or ce dont j'ai besoin c'est "les non annulés" ou "TOUS les enregistrements".

QUelqu'un aurait-il une idée sur la procédure. Faut-il utiliser vba? ET si oui : comment?

Merci de vos lumières.

8)

[Lou Pitchoun]

Salut,

Tu pourrais avoir sur ton formulaire (comme tu l'as dit) une case à cocher, ou une liste déroulante... à toi de voir.
Ensuite tu fais un test sur la valeur du champ qui te sers de critère. En fonction de la sélection, tu modifies la source de ton sous formulaire.

[Muhad'hib]

Je vois 2 solutions:

- tu mets dans ta requete (par exemple avec la fonction IIF) une condition qui sera toujours vraie si la case à cochée est décochée et qui ne sera vraie que pour les non-annulés dans le cas contraire. Par exemple :

Code :

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

WHERE IIf([Formulaires]![Formulaire7]![cc_annulee]=False,True,Not ([Table1]![annulé]))=True;

- tu mets du code sur l'evenement afterupdate de ta case à cocher. Ce code affecte une chaine différente à la propriété rowsource de ton sous-formulaire. Genre :

Code :

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

1
2
3
4
5
6
7
 
If Me.cc_annulee = False Then
    Me.sf_Liste.Form.RecordSource = " select * from Table1;"
Else
    Me.sf_Liste.Form.RecordSource = " select * from Table1 where Table1.annulé = false;"
End If
Me.sf_Liste.Form.Requery

En espérant t'avoir été util.

A+