Discussion :

[pascal5]

J'ai un état basé sur une requête R_Tournée. Sur mon formulaire FiltrageEtats j''ai une zone de liste déroulante SelectTourn qui est basé sur deux champs de ma requête R_Tournéee, NumTourn et NumTournSoir et qui filtre mon état suivant la sélection faite dans cette zone de liste. Jusque la ça va. Le soucis c'est que j'arrive a filtrer sur le champs NumTorn mais pas sur le champs NumTournSoir.
En gros quand je sélectionne la tournée sur le champs NumTourn mon état filtre bien et affiche bien les patients de cette tournée, par contre si je sélectionne une tournée qui fait partie du champs NumTournSoir j'ai rien 0 patient.

J'ai bien tenté des lignes de code vba trouvé ici mais ça ne fonctionne pas. Mais je n'arrive pas a faire deux filtres.

Voila ou j'en suit.

Code :

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

1
2
3
Private Sub SelectTourn_AfterUpdate()
DoCmd.OpenReport "EtatTourn", acViewPreview, , "[NumTourn]=" Or "[NumTournSoir]=" & Me!SelectTourn & " and Date()+1 between [DebutSoins] and [FinSoins]"
End Sub

Merci de votre aide

[RobiPMS]

Bonsoir.
Si tu fais

Code :

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

DoCmd.OpenReport "EtatTourn", acViewPreview, , "[NumTournSoir]=" & Me!SelectTourn & " and Date()+1 between [DebutSoins] and [FinSoins]"

as-tu un résultat?
Cordialement.

[pascal5]

Bjr
Cela m'imprime une des tournées du soir. Voila le ode de depart qui fonctionne (grâce a User), je voudrais juste y ajouter les tournées du soir.
Merci

Code :

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

1
2
3
Private Sub SelectTourn_AfterUpdate()
DoCmd.OpenReport "EtatTourn", acViewPreview, , "[NumTourn]=" & Me!SelectTourn & " and Date()+1 between [DebutSoins] and [FinSoins]"
End Sub

[RobiPMS]

Tu pourrais essayer :

Code :

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

DoCmd.OpenReport "EtatTourn", acViewPreview, , "[NumTourn]=" & Me!SelectTourn & " and Date()+1 between [DebutSoins] and [FinSoins]" Or "[NumTournSoir]=" & Me!SelectTourn & " and Date()+1 between [DebutSoins] and [FinSoins]"

[pascal5]

Merci RobiPMS de m'aider mais j'ai une erreur de type 13 "incompatibilité de type 13"
pas simple (enfin pour moi)

[RobiPMS]

Autre syntaxe, avec laquelle je suis plus habitué, et qui, je pense, devrait fonctionner :

Code :

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

DoCmd.OpenReport "EtatTourn", acViewPreview, , "Date()+1 between [DebutSoins] and [FinSoins] And [NumTourn] = Forms!FiltrageEtats!SelectTourn Or Date()+1 between [DebutSoins] and [FinSoins] And [NumTournSoir] = Forms!FiltrageEtats!SelectTourn"

J'ai reproduit ta situation et essayé ce code dans une de mes applications, et j'ai obtenu les résultats attendus. Le Me ne doit pas être utilisé dans cette syntaxe, c'est pourquoi j'utilise Forms!FiltrageEtats!SelectTourn au lieu de Me!SelectTourn.
J'espère que cette fois, ça ira!