Discussion :

[jmsamson]

bonjour !

j'ai tjr des problèmes d'impression
voila je voudrais à partir d'un formulaire indépendant imprimer les enregistrements d'une table compris entre deux dates via un etat voici mon code en sachant que le formulaire indépendant est nommé frmFiltreMoisImpr, qui mes deux zones de liste son nommé Date1 & Date2


Private Sub btnJV_Click()
On Error GoTo Erreur
Dim dtDebut As Date, dtFin As Date
dtDebut = Forms!frmFiltreMoisImpr![Date1]
dtFin = Forms!frmFiltreMoisImpr![date2]
DoCmd.OpenReport "EtatClientMois", acViewPreview, , ,"[Date] BETWEEN " & Date(dtDebut) & " AND " & Date(dtFin)
Sortie:
Exit Sub
Erreur:
Resume Sortie
End Sub

avec se code il me dit que j'ai une erreur de syntaxe
Merci d'avance

JM

[pgz]

Bonjour,

J'imagine que l'erreur est sur la ligne de commande d'ouverture du formulaire, et je pense qu'elle est due à la clause WHERE.
Tu peux essayer

Code :

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

DoCmd.OpenReport "EtatClientMois", acViewPreview, , ,"[DateEnr] BETWEEN #" & Format(dtDebut,"mm/dd/yy") & "# AND #" & Format(dtFin,"mm/dd/yy")  & "#"

Par ailleurs il semble que tu aies nommé un champ "Date", celui qui te sert à filtrer. Ce n'est pas conseillé, le mot est réservé à la fonction Date, qui concerne la date courante. Dans l'expression proposée, j'ai rebaptisé ce champ DateEnr.

Bonne chance,

pgz

[jmsamson]

resalut !

J'ai essayé ta ligne de commande et aussi changé le nom de mon champ date en DateEnr
Maintenant quand je clique sur le bouton BtnJV rien ne se passe
Merci de ton aide j'attends tjr une reponse à ce pb

JM

[jmsamson]

Pb de code + d'état
pour ceux qui on le pb je donne le code

Private Sub btnJV_Click()
On Error GoTo Erreur


Dim dtDebut As Date, dtFin As Date
dtDebut = Forms!FrmFiltreMoisImpr![Date1]
dtFin = Forms!FrmFiltreMoisImpr![date2]
DoCmd.OpenReport "EtatClientMois", acViewPreview, , "[DateEnr] BETWEEN #" & Format(dtDebut, "mm/dd/yy") & "# AND #" & Format(dtFin, "mm/dd/yy") & "#"

Sortie:
Exit Sub
Erreur:
Resume Sortie
End Sub

Merci pour ton PGZ

JM

[pgz]

Re,

Il y a une erreur de syntaxe que j'aurais pu voir plus tôt. Une virgule en trop dans l'OpenReport. Essaie:

Code :

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

DoCmd.OpenReport "EtatClientMois", acViewPreview, , "[DateEnr] BETWEEN #" & Format(dtDebut,"mm/dd/yy") & "# AND #" & Format(dtFin,"mm/dd/yy")  & "#"

Sauf erreur de ma part, la clause WHERE est le 4ème argument d'OpenForm.

Bonne chance,

pgz