Impression d'un etat access 2010
Fermé
obicoa
Messages postés
1
Date d'inscription
mardi 29 avril 2014
Statut
Membre
Dernière intervention
29 avril 2014
-
29 avril 2014 à 10:28
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 - 29 avril 2014 à 16:35
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 - 29 avril 2014 à 16:35
A voir également:
- Impression d'un etat access 2010
- Spouleur d'impression - Guide
- Clé activation office 2010 gratuit - Télécharger - Sécurité
- Fracture 2010 film complet youtube - Forum TV & Vidéo
- Telecharger word 2010 - Télécharger - Traitement de texte
- L'état actuel de votre sim ne requiert aucune activation ✓ - Forum Mobile
1 réponse
castours
Messages postés
2955
Date d'inscription
lundi 18 septembre 2006
Statut
Membre
Dernière intervention
31 août 2019
217
29 avril 2014 à 16:35
29 avril 2014 à 16:35
bonjour
Avec cette procedure exemple, on visualise l'état en cours du formulaire.
Pour imprimer, on remplace acPreview par aNormal
A toi de modiffier le nom de l'état et le champ N°ListDevis par le tien
Cette procedure a mettre dans un bouton dans ton formulaire
Private Sub Commande62_Click()
On Error GoTo Err_Commande62_Click
Dim stDocName As String
stDocName = "E_DevisClientsTransferts"
DoCmd.OpenReport stDocName, acPreview, , "[N°ListDevis]=" & Me![N°ListDevis]
Exit_Commande62_Click:
Exit Sub
Err_Commande62_Click:
MsgBox Err.Description
Resume Exit_Commande62_Click
End Sub
Avec cette procedure exemple, on visualise l'état en cours du formulaire.
Pour imprimer, on remplace acPreview par aNormal
A toi de modiffier le nom de l'état et le champ N°ListDevis par le tien
Cette procedure a mettre dans un bouton dans ton formulaire
Private Sub Commande62_Click()
On Error GoTo Err_Commande62_Click
Dim stDocName As String
stDocName = "E_DevisClientsTransferts"
DoCmd.OpenReport stDocName, acPreview, , "[N°ListDevis]=" & Me![N°ListDevis]
Exit_Commande62_Click:
Exit Sub
Err_Commande62_Click:
MsgBox Err.Description
Resume Exit_Commande62_Click
End Sub