Impression
Résolu
nsauve
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
amidfki Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
amidfki Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis très débutante dans Access. Je n'arrive pas à imprimer un enregistrement à la fois. Je m'explique : j'ai créé un formulaire d'entrée de données pour des autorisations d'accès à des locaux. J'ai aussi créé un état basé sur une requête. Je désire imprimer l'enregistrement en cours dans le formulaire, sans avoir à passer par la requête à chaque fois, car c'est beaucoup de "taponnage". Y a-t-il une façon d'imprimer l'enregistrement en cours dans un état sans avoir à passer par la requête ?
Merci à l'avance de votre aide.
Je suis très débutante dans Access. Je n'arrive pas à imprimer un enregistrement à la fois. Je m'explique : j'ai créé un formulaire d'entrée de données pour des autorisations d'accès à des locaux. J'ai aussi créé un état basé sur une requête. Je désire imprimer l'enregistrement en cours dans le formulaire, sans avoir à passer par la requête à chaque fois, car c'est beaucoup de "taponnage". Y a-t-il une façon d'imprimer l'enregistrement en cours dans un état sans avoir à passer par la requête ?
Merci à l'avance de votre aide.
A voir également:
- Impression
- Spouleur d'impression - Guide
- Impression livret a5 - Guide
- Impression ecran samsung - Guide
- Impression miroir ✓ - Forum MacOS
- Impression miroir word - Guide
4 réponses
Bonjour
Voici le code d'un bouton qui imprime une facture depuis un formulaire
Tu fais un bouton avec l'aide d'access puis tu ajoutes ceci:
"[N°Clients]=" & Me![N°Clients]
C' est La clé primaire de la table clients, a toi de l'adapter avec tes données.
Private Sub Commande14_Click()
On Error GoTo Err_Commande14_Click
Dim stDocName As String
stDocName = "E_Factures"
DoCmd.OpenReport stDocName, acNormal, , "[N°Clients]=" & Me![N°Clients]
Exit_Commande14_Click:
Exit Sub
Err_Commande14_Click:
MsgBox Err.Description
Resume Exit_Commande14_Click
End Sub
Private Sub Commande14_Click()
On Error GoTo Err_Commande14_Click
Dim stDocName As String
stDocName = "E_Factures"
DoCmd.OpenReport stDocName, acNormal,Private Sub Commande14_Click()
On Error GoTo Err_Commande14_Click
Dim stDocName As String
stDocName = "E_Factures"
DoCmd.OpenReport stDocName, acNormal, , "[N°Clients]=" & Me![N°Clients]
Exit_Commande14_Click:
Exit Sub
Err_Commande14_Click:
MsgBox Err.Description
Resume Exit_Commande14_Click
End Sub
Exit_Commande14_Click:
Exit Sub
Err_Commande14_Click:
MsgBox Err.Description
Resume Exit_Commande14_Click
End Sub
Voici le code d'un bouton qui imprime une facture depuis un formulaire
Tu fais un bouton avec l'aide d'access puis tu ajoutes ceci:
"[N°Clients]=" & Me![N°Clients]
C' est La clé primaire de la table clients, a toi de l'adapter avec tes données.
Private Sub Commande14_Click()
On Error GoTo Err_Commande14_Click
Dim stDocName As String
stDocName = "E_Factures"
DoCmd.OpenReport stDocName, acNormal, , "[N°Clients]=" & Me![N°Clients]
Exit_Commande14_Click:
Exit Sub
Err_Commande14_Click:
MsgBox Err.Description
Resume Exit_Commande14_Click
End Sub
Private Sub Commande14_Click()
On Error GoTo Err_Commande14_Click
Dim stDocName As String
stDocName = "E_Factures"
DoCmd.OpenReport stDocName, acNormal,Private Sub Commande14_Click()
On Error GoTo Err_Commande14_Click
Dim stDocName As String
stDocName = "E_Factures"
DoCmd.OpenReport stDocName, acNormal, , "[N°Clients]=" & Me![N°Clients]
Exit_Commande14_Click:
Exit Sub
Err_Commande14_Click:
MsgBox Err.Description
Resume Exit_Commande14_Click
End Sub
Exit_Commande14_Click:
Exit Sub
Err_Commande14_Click:
MsgBox Err.Description
Resume Exit_Commande14_Click
End Sub
Merci beaucoup Castours, cela a en partie réglé mon problème. Cela fonctionne bien avec des enregistrements déjà créés. Mais pour un nouvel enregistrement, un état vide s'imprime. Je dois revenir en arrière dans le formulaire, puis retourner au dernier enregistrement créé, et là ça fonctionne. Mais c'est déjà une grosse amélioration.
J'ai aussi utilisé le code "AcPreview" pour l'aperçu avant impression. Voici le code que j'ai associé au bouton :
Private Sub btnApercu_Click()
On Error GoTo Err_btnApercu_Click
Dim stDocName As String
stDocName = "Accès autres état"
DoCmd.OpenReport stDocName, acPreview, , "[N°]=" & Me![N°]
Exit_btnApercu_Click:
Exit Sub
Err_btnApercu_Click:
MsgBox Err.Description
Resume Exit_btnApercu_Click
End Sub
En te remerciant pour tes bons conseils,
Cordiales salutations.
J'ai aussi utilisé le code "AcPreview" pour l'aperçu avant impression. Voici le code que j'ai associé au bouton :
Private Sub btnApercu_Click()
On Error GoTo Err_btnApercu_Click
Dim stDocName As String
stDocName = "Accès autres état"
DoCmd.OpenReport stDocName, acPreview, , "[N°]=" & Me![N°]
Exit_btnApercu_Click:
Exit Sub
Err_btnApercu_Click:
MsgBox Err.Description
Resume Exit_btnApercu_Click
End Sub
En te remerciant pour tes bons conseils,
Cordiales salutations.
bonjour
pour l'etat vide regarde, la mise en pagede ton etat, la largeur des marges.Reduit l'es au minimum de 5mm en tous sens. Par Defaut elles sont a 2,5 cm. Enfin, en mode creation regarde les dimension de ton.Elle ne doit pas depasser 19,5 cm de large et 28,5 cm de haut.
pour l'etat vide regarde, la mise en pagede ton etat, la largeur des marges.Reduit l'es au minimum de 5mm en tous sens. Par Defaut elles sont a 2,5 cm. Enfin, en mode creation regarde les dimension de ton.Elle ne doit pas depasser 19,5 cm de large et 28,5 cm de haut.
Bonjour,
J'ai vérifié tous les paramêtres de mise en page de l'état, en vérifiant bien les dimentions que tu m'énumères et je ne vois rien qui cloche.
Par contre le problème est facilement contournable en reculant à l'enregistrement précédent puis en revenant au dernier enregistrement créé. L'important était de pouvoir imprimer un enregistrement à la fois avec un bouton, et ton aide m'a été précieuse en ce sens.
Merci beaucoup pour ton aide.
Bonne journée.
J'ai vérifié tous les paramêtres de mise en page de l'état, en vérifiant bien les dimentions que tu m'énumères et je ne vois rien qui cloche.
Par contre le problème est facilement contournable en reculant à l'enregistrement précédent puis en revenant au dernier enregistrement créé. L'important était de pouvoir imprimer un enregistrement à la fois avec un bouton, et ton aide m'a été précieuse en ce sens.
Merci beaucoup pour ton aide.
Bonne journée.
