Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Comment imprimer que la page encours

Comment imprimer que la page encours

14 réponses
Avatar
chris74
Bonjour,
J'ai réalisé une petite BD avec Access 2003.
Après saisie des données via un formulaire, je suis obligé pour imprimer
aujourd'hui d'aller dans les "Etats" trouver la bonne page puis choisir
"Imprimer page X a X".
Comment imprimer que l'état que je vient de saisir directement depuis le
formulaire, en cliquant sur un icône par exemple.
Par avance merci de votre aide.
---------------------------------------------
http://randosallanches.free.fr randonnées gratuites au Pays du Mont-Blanc
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
chris74
Salut Ecric,
Bon j'ai mis "DoCmd.RunCommand acCmdSaveRecord", mais quand je clique sur le
bouton, j'ai mon état, mais sans enregistrement.
Si je ferme le formulaire puis clique de nouveau sur le bouton, même
problème.
Pour le retrouver je suis aller des les état et après un recherche visuel je
l'ai trouvé.
Je vous laisse le code que j'ai mis :
Merci de vos conseils.

Private Sub Commande90_Click()
On Error GoTo Err_Commande90_Click

Dim stDocName As String
Dim strFilter As String
DoCmd.RunCommand acCmdSaveRecord

strFilter = "Date=#" & Format(DMax("Date", "Réclamations"),
"mm/dd/yyyy") & "#"
stDocName = "Réclamations"
DoCmd.OpenReport stDocName, acPreview, , strFilter

Exit_Commande90_Click:
Exit Sub

Err_Commande90_Click:
MsgBox Err.Description
Resume Exit_Commande90_Click

End Sub

"Eric" a écrit dans le message de news:
%23qJOru%
Bonsoir,

Et si tu mets
DoCmd.RunCommand acCmdSaveRecord
sur la ligne précédant la définition de strFilter="Date=#" & ...

quelquechose comme :

Private Sub Commande88_Click()

On Error GoTo Err_Commande88_Click
Dim stDocName As String
Dim strFilter As String
DoCmd.RunCommand acCmdSaveRecord ' <------- Ici
strFilter = "Date=#" &
Format(DMax("leChampDate","laTable"),"mm/dd/yyyy") & "#"
stDocName = "Réclamations"
DoCmd.OpenReport stDocName, acPreview, , strFilter
' suite du code

Re Thierry,
Super ! Merci, c'est exactement ce que je voulais, mais j'ai encore un
petit problème.
Le bouton que j'ai créé est situé sur le formulaire et quand je clique
dessus, l'enregistrement que je viens de réaliser n'apparaît pas car mon
formulaire n'est pas fermé, même si je clique sur la disquette pour
l'enregistrer.
Par contre, si je le referme puis clique sur le bouton la c'est bon, je
l'ai bien est uniquement lui.
As tu une petite astuce pour contourner se problème ?
Merci encore

"Thierry (ze Titi)" a écrit dans le
message de news:
Bonjour chris74 !

Private Sub Commande88_Click()

On Error GoTo Err_Commande88_Click
Dim stDocName As String
Dim strFilter As String

strFilter = "Date=#" &
Format(DMax("leChampDate","laTable"),"mm/dd/yyyy") & "#"
stDocName = "Réclamations"
DoCmd.OpenReport stDocName, acPreview, , strFilter

Exit_Commande88_Click:
Exit Sub

Err_Commande88_Click:
MsgBox Err.Description
Resume Exit_Commande88_Click
End Sub

Remplace "leChampDate" par le nom du champ contenant la date dans la
table alimentant l'état
Remplace "laTable" par le nom de la table alimentant l'état.

--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info







--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr




Avatar
Eric
Bonsoir,

Quand tu cliques sur ton bouton, tu n'aurais pas éventuellement une
boite de saisie te demandant d'entrer la valeur du paramètre Date ?

Date est un mot réservé Access, il faut que tu remplaces le nom du champ
par un autre mot comme LaDate (ou DateReclamation ou ...) dans ta table
Réclamations.

Salut Ecric,
Bon j'ai mis "DoCmd.RunCommand acCmdSaveRecord", mais quand je clique sur le
bouton, j'ai mon état, mais sans enregistrement.
Si je ferme le formulaire puis clique de nouveau sur le bouton, même
problème.
Pour le retrouver je suis aller des les état et après un recherche visuel je
l'ai trouvé.
Je vous laisse le code que j'ai mis :
Merci de vos conseils.

Private Sub Commande90_Click()
On Error GoTo Err_Commande90_Click

Dim stDocName As String
Dim strFilter As String
DoCmd.RunCommand acCmdSaveRecord

strFilter = "Date=#" & Format(DMax("Date", "Réclamations"),
"mm/dd/yyyy") & "#"
stDocName = "Réclamations"
DoCmd.OpenReport stDocName, acPreview, , strFilter

Exit_Commande90_Click:
Exit Sub

Err_Commande90_Click:
MsgBox Err.Description
Resume Exit_Commande90_Click

End Sub

"Eric" a écrit dans le message de news:
%23qJOru%
Bonsoir,

Et si tu mets
DoCmd.RunCommand acCmdSaveRecord
sur la ligne précédant la définition de strFilter="Date=#" & ...

quelquechose comme :

Private Sub Commande88_Click()

On Error GoTo Err_Commande88_Click
Dim stDocName As String
Dim strFilter As String
DoCmd.RunCommand acCmdSaveRecord ' <------- Ici
strFilter = "Date=#" &
Format(DMax("leChampDate","laTable"),"mm/dd/yyyy") & "#"
stDocName = "Réclamations"
DoCmd.OpenReport stDocName, acPreview, , strFilter
' suite du code

Re Thierry,
Super ! Merci, c'est exactement ce que je voulais, mais j'ai encore un
petit problème.
Le bouton que j'ai créé est situé sur le formulaire et quand je clique
dessus, l'enregistrement que je viens de réaliser n'apparaît pas car mon
formulaire n'est pas fermé, même si je clique sur la disquette pour
l'enregistrer.
Par contre, si je le referme puis clique sur le bouton la c'est bon, je
l'ai bien est uniquement lui.
As tu une petite astuce pour contourner se problème ?
Merci encore

"Thierry (ze Titi)" a écrit dans le
message de news:
Bonjour chris74 !

Private Sub Commande88_Click()

On Error GoTo Err_Commande88_Click
Dim stDocName As String
Dim strFilter As String

strFilter = "Date=#" &
Format(DMax("leChampDate","laTable"),"mm/dd/yyyy") & "#"
stDocName = "Réclamations"
DoCmd.OpenReport stDocName, acPreview, , strFilter

Exit_Commande88_Click:
Exit Sub

Err_Commande88_Click:
MsgBox Err.Description
Resume Exit_Commande88_Click
End Sub

Remplace "leChampDate" par le nom du champ contenant la date dans la
table alimentant l'état
Remplace "laTable" par le nom de la table alimentant l'état.

--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info




--

A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr





--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr




Avatar
chris74
Salut Eric,
Non j'ai pas de boîte de saisie qui apparaît.
J'ai renommé le champ "Date" par "LaDate"
Mais j'ai le même problème.
J'ai modifié aussi dans le code.

Private Sub Commande90_Click()
On Error GoTo Err_Commande90_Click

Dim stDocName As String
Dim strFilter As String
DoCmd.RunCommand acCmdSaveRecord

strFilter = "Date=#" & Format(DMax("LaDate", "Réclamations"),
"mm/dd/yyyy") & "#"
stDocName = "Réclamations"
DoCmd.OpenReport stDocName, acPreview, , strFilter

Exit_Commande90_Click:
Exit Sub

Err_Commande90_Click:
MsgBox Err.Description
Resume Exit_Commande90_Click

End Sub
Merci

"Eric" a écrit dans le message de news:

Bonsoir,

Quand tu cliques sur ton bouton, tu n'aurais pas éventuellement une boite
de saisie te demandant d'entrer la valeur du paramètre Date ?

Date est un mot réservé Access, il faut que tu remplaces le nom du champ
par un autre mot comme LaDate (ou DateReclamation ou ...) dans ta table
Réclamations.

Salut Ecric,
Bon j'ai mis "DoCmd.RunCommand acCmdSaveRecord", mais quand je clique sur
le bouton, j'ai mon état, mais sans enregistrement.
Si je ferme le formulaire puis clique de nouveau sur le bouton, même
problème.
Pour le retrouver je suis aller des les état et après un recherche visuel
je l'ai trouvé.
Je vous laisse le code que j'ai mis :
Merci de vos conseils.

Private Sub Commande90_Click()
On Error GoTo Err_Commande90_Click

Dim stDocName As String
Dim strFilter As String
DoCmd.RunCommand acCmdSaveRecord

strFilter = "Date=#" & Format(DMax("Date", "Réclamations"),
"mm/dd/yyyy") & "#"
stDocName = "Réclamations"
DoCmd.OpenReport stDocName, acPreview, , strFilter

Exit_Commande90_Click:
Exit Sub

Err_Commande90_Click:
MsgBox Err.Description
Resume Exit_Commande90_Click

End Sub

"Eric" a écrit dans le message de news:
%23qJOru%
Bonsoir,

Et si tu mets
DoCmd.RunCommand acCmdSaveRecord
sur la ligne précédant la définition de strFilter="Date=#" & ...

quelquechose comme :

Private Sub Commande88_Click()

On Error GoTo Err_Commande88_Click
Dim stDocName As String
Dim strFilter As String
DoCmd.RunCommand acCmdSaveRecord ' <------- Ici
strFilter = "Date=#" &
Format(DMax("leChampDate","laTable"),"mm/dd/yyyy") & "#"
stDocName = "Réclamations"
DoCmd.OpenReport stDocName, acPreview, , strFilter
' suite du code

Re Thierry,
Super ! Merci, c'est exactement ce que je voulais, mais j'ai encore un
petit problème.
Le bouton que j'ai créé est situé sur le formulaire et quand je clique
dessus, l'enregistrement que je viens de réaliser n'apparaît pas car
mon formulaire n'est pas fermé, même si je clique sur la disquette pour
l'enregistrer.
Par contre, si je le referme puis clique sur le bouton la c'est bon, je
l'ai bien est uniquement lui.
As tu une petite astuce pour contourner se problème ?
Merci encore

"Thierry (ze Titi)" a écrit dans le
message de news:
Bonjour chris74 !

Private Sub Commande88_Click()

On Error GoTo Err_Commande88_Click
Dim stDocName As String
Dim strFilter As String

strFilter = "Date=#" &
Format(DMax("leChampDate","laTable"),"mm/dd/yyyy") & "#"
stDocName = "Réclamations"
DoCmd.OpenReport stDocName, acPreview, , strFilter

Exit_Commande88_Click:
Exit Sub

Err_Commande88_Click:
MsgBox Err.Description
Resume Exit_Commande88_Click
End Sub

Remplace "leChampDate" par le nom du champ contenant la date dans la
table alimentant l'état
Remplace "laTable" par le nom de la table alimentant l'état.

--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info




--

A+
Eric
http://www.mpfa.info/
Archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr





--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






Avatar
Eric
Bonsoir,

Mais il faut aussi corriger dans strFilter le 1er Date
strFilter = "LaDate=#" & Format(DMax("LaDate", "Réclamations"),
"mm/dd/yyyy") & "#"

Salut Eric,
Non j'ai pas de boîte de saisie qui apparaît.
J'ai renommé le champ "Date" par "LaDate"
Mais j'ai le même problème.
J'ai modifié aussi dans le code.

Private Sub Commande90_Click()
On Error GoTo Err_Commande90_Click

Dim stDocName As String
Dim strFilter As String
DoCmd.RunCommand acCmdSaveRecord

strFilter = "Date=#" & Format(DMax("LaDate", "Réclamations"),
"mm/dd/yyyy") & "#"
stDocName = "Réclamations"
DoCmd.OpenReport stDocName, acPreview, , strFilter

Exit_Commande90_Click:
Exit Sub

Err_Commande90_Click:
MsgBox Err.Description
Resume Exit_Commande90_Click

End Sub
Merci

"Eric" a écrit dans le message de news:

Bonsoir,

Quand tu cliques sur ton bouton, tu n'aurais pas éventuellement une boite
de saisie te demandant d'entrer la valeur du paramètre Date ?

Date est un mot réservé Access, il faut que tu remplaces le nom du champ
par un autre mot comme LaDate (ou DateReclamation ou ...) dans ta table
Réclamations.

Salut Ecric,
Bon j'ai mis "DoCmd.RunCommand acCmdSaveRecord", mais quand je clique sur
le bouton, j'ai mon état, mais sans enregistrement.
Si je ferme le formulaire puis clique de nouveau sur le bouton, même
problème.
Pour le retrouver je suis aller des les état et après un recherche visuel
je l'ai trouvé.
Je vous laisse le code que j'ai mis :
Merci de vos conseils.

Private Sub Commande90_Click()
On Error GoTo Err_Commande90_Click

Dim stDocName As String
Dim strFilter As String
DoCmd.RunCommand acCmdSaveRecord

strFilter = "Date=#" & Format(DMax("Date", "Réclamations"),
"mm/dd/yyyy") & "#"
stDocName = "Réclamations"
DoCmd.OpenReport stDocName, acPreview, , strFilter

Exit_Commande90_Click:
Exit Sub

Err_Commande90_Click:
MsgBox Err.Description
Resume Exit_Commande90_Click

End Sub

"Eric" a écrit dans le message de news:
%23qJOru%
Bonsoir,

Et si tu mets
DoCmd.RunCommand acCmdSaveRecord
sur la ligne précédant la définition de strFilter="Date=#" & ...

quelquechose comme :

Private Sub Commande88_Click()

On Error GoTo Err_Commande88_Click
Dim stDocName As String
Dim strFilter As String
DoCmd.RunCommand acCmdSaveRecord ' <------- Ici
strFilter = "Date=#" &
Format(DMax("leChampDate","laTable"),"mm/dd/yyyy") & "#"
stDocName = "Réclamations"
DoCmd.OpenReport stDocName, acPreview, , strFilter
' suite du code

Re Thierry,
Super ! Merci, c'est exactement ce que je voulais, mais j'ai encore un
petit problème.
Le bouton que j'ai créé est situé sur le formulaire et quand je clique
dessus, l'enregistrement que je viens de réaliser n'apparaît pas car
mon formulaire n'est pas fermé, même si je clique sur la disquette pour
l'enregistrer.
Par contre, si je le referme puis clique sur le bouton la c'est bon, je
l'ai bien est uniquement lui.
As tu une petite astuce pour contourner se problème ?
Merci encore

"Thierry (ze Titi)" a écrit dans le
message de news:
Bonjour chris74 !

Private Sub Commande88_Click()

On Error GoTo Err_Commande88_Click
Dim stDocName As String
Dim strFilter As String

strFilter = "Date=#" &
Format(DMax("leChampDate","laTable"),"mm/dd/yyyy") & "#"
stDocName = "Réclamations"
DoCmd.OpenReport stDocName, acPreview, , strFilter

Exit_Commande88_Click:
Exit Sub

Err_Commande88_Click:
MsgBox Err.Description
Resume Exit_Commande88_Click
End Sub

Remplace "leChampDate" par le nom du champ contenant la date dans la
table alimentant l'état
Remplace "laTable" par le nom de la table alimentant l'état.

--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info


--


A+
Eric
http://www.mpfa.info/
Archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr


--

A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr





--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






1 2