Filtrer un état à l'ouverture

Bonjour,

Je voudrais à l’ouverture de mon état le filtrer mais je ni arrive
pas.

Voici mon code.

Sub Apercu()
On Error GoTo GestionErreur
Dim stDocName As String
Dim stFormName As String
Dim stFiltre As String

stDocName = E_EtatEnCour
stFormName = F_FormEnCour
stFiltre = F_StFiltre

DoCmd.OpenReport stDocName, acViewPreview, , stFiltre,
OpenArgs:=stFormName

GestionErreur:

End Sub

Est-ce qu’il y a une erreur ?

Merci pour votre aide.

Salutations

bonjour Jacques

ci dessous un exemple d'un état, filtrer avec un champ filtre
par une date

     strFiltre = "([DébutContrat]) > #" & txtDateDebut & "#"

        DoCmd.OpenReport stDocName, acViewPreview, , strFiltre

openargs ne sert à rien

slts

rené

"Jacques" a écrit :



> Bonjour,

> Je voudrais à l’ouverture de mon état le filtrer mais je ni arriv e
> pas.

> Voici mon code.

> Sub Apercu()
> On Error GoTo GestionErreur
>     Dim stDocName As String
>     Dim stFormName As String
>     Dim stFiltre As String

>     stDocName = E_EtatEnCour
>     stFormName = F_FormEnCour
>     stFiltre = F_StFiltre

>     DoCmd.OpenReport stDocName, acViewPreview, , stFiltre,
> OpenArgs:=stFormName

> GestionErreur:

> End Sub

> Est-ce qu’il y a une erreur ?

> Merci pour votre aide.

> Salutations- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

On 27 jan, 16:43, -- RG -- <R...@discussions.microsoft.com> wrote:

bonjour Jacques

ci dessous un exemple d'un état, filtrer avec un champ filtre
par une date

strFiltre = "([DébutContrat]) > #" & txtDateDebut & "#"

DoCmd.OpenReport stDocName, acViewPreview, , strFiltre

openargs ne sert à rien

slts

rené

"Jacques" a écrit :

Bonjour,
Je voudrais à l’ouverture de mon état le filtrer mais je ni arrive
pas.
Voici mon code.
Sub Apercu()
On Error GoTo GestionErreur
Dim stDocName As String
Dim stFormName As String
Dim stFiltre As String
stDocName = E_EtatEnCour
stFormName = F_FormEnCour
stFiltre = F_StFiltre
DoCmd.OpenReport stDocName, acViewPreview, , stFiltre,
OpenArgs:=stFormName
GestionErreur:
End Sub
Est-ce qu’il y a une erreur ?
Merci pour votre aide.
Salutations- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Bonsoir RG,

Merci pour ta réponse.

Voici comment je passe mes variables à doCmd.OpenRecord.

E_EtatEnCour = "rpt Formateur individuel"
F_FormEnCour = "frm Mise à jour des formations"
F_StFiltre = "[RéfAnimateur]=" & Me.txtRéfAnimateur

Lorsque je passe avec la souris sur stFiltre j'ai pour valeur
"[RéfAnimateur]=1", mais mon état ne s'affiche pas, par contre si
filtre est vide l'état s'affiche en entier.

Salutations

On 27 jan, 16:43, -- RG -- <R...@discussions.microsoft.com> wrote:
> bonjour Jacques
>
> ci dessous un exemple d'un état, filtrer avec un champ filtre
> par une date
>
> strFiltre = "([DébutContrat]) > #" & txtDateDebut & "#"
>
> DoCmd.OpenReport stDocName, acViewPreview, , strFiltre
>
> openargs ne sert à rien
>
> slts
>
> rené
>
> "Jacques" a écrit :
>
>
>
> > Bonjour,
>
> > Je voudrais à l’ouverture de mon état le filtrer mais je ni arrive
> > pas.
>
> > Voici mon code.
>
> > Sub Apercu()
> > On Error GoTo GestionErreur
> > Dim stDocName As String
> > Dim stFormName As String
> > Dim stFiltre As String
>
> > stDocName = E_EtatEnCour
> > stFormName = F_FormEnCour
> > stFiltre = F_StFiltre
>
> > DoCmd.OpenReport stDocName, acViewPreview, , stFiltre,
> > OpenArgs:=stFormName
>
> > GestionErreur:
>
> > End Sub
>
> > Est-ce qu’il y a une erreur ?
>
> > Merci pour votre aide.
>
> > Salutations- Masquer le texte des messages précédents -
>
> - Afficher le texte des messages précédents -

Bonsoir RG,

Merci pour ta réponse.

Voici comment je passe mes variables à doCmd.OpenRecord.

E_EtatEnCour = "rpt Formateur individuel"
F_FormEnCour = "frm Mise à jour des formations"
F_StFiltre = "[RéfAnimateur]=" & Me.txtRéfAnimateur

Lorsque je passe avec la souris sur stFiltre j'ai pour valeur
"[RéfAnimateur]=1", mais mon état ne s'affiche pas, par contre si
filtre est vide l'état s'affiche en entier.

Salutations

Bonjour Jacques,
Tu ouvres ton rapport a partir de quel formulaire ?
 est ce "F_FormEnCour" ?

Si tu peux me donner plus d'explications

René

"Jacques" a écrit :



> On 27 jan, 16:43, -- RG -- <R...@discussions.microsoft.com> wrote:
> > bonjour Jacques

> > ci dessous un exemple d'un état, filtrer avec un champ filtre
> > par une date

> >      strFiltre = "([DébutContrat]) > #" & txtDateDebut & "# "

> >         DoCmd.OpenReport stDocName, acViewPreview, , strFiltr e

> > openargs ne sert à rien

> > slts

> > rené

> > "Jacques" a écrit :

> > > Bonjour,

> > > Je voudrais à l’ouverture de mon état le filtrer mais je ni a rrive
> > > pas.

> > > Voici mon code.

> > > Sub Apercu()
> > > On Error GoTo GestionErreur
> > >     Dim stDocName As String
> > >     Dim stFormName As String
> > >     Dim stFiltre As String

> > >     stDocName = E_EtatEnCour
> > >     stFormName = F_FormEnCour
> > >     stFiltre = F_StFiltre

> > >     DoCmd.OpenReport stDocName, acViewPreview, , stFiltre,
> > > OpenArgs:=stFormName

> > > GestionErreur:

> > > End Sub

> > > Est-ce qu’il y a une erreur ?

> > > Merci pour votre aide.

> > > Salutations- Masquer le texte des messages précédents -

> > - Afficher le texte des messages précédents -

> Bonsoir RG,

> Merci pour ta réponse.

> Voici comment je passe mes variables à doCmd.OpenRecord.

> E_EtatEnCour = "rpt Formateur individuel"
> F_FormEnCour = "frm Mise à jour des formations"
> F_StFiltre = "[RéfAnimateur]=" & Me.txtRéfAnimateur

> Lorsque je passe avec la souris sur stFiltre j'ai pour valeur
> "[RéfAnimateur]=1", mais mon état ne s'affiche pas, par contre si
> filtre est vide l'état s'affiche en entier.

> Salutations- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -