Choisir l'enregistrement du formulaire
Résolu/Fermé
Esil
-
12 avril 2012 à 21:59
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 - 21 avril 2012 à 07:47
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 - 21 avril 2012 à 07:47
A voir également:
- Choisir l'enregistrement du formulaire
- Quelle console choisir - Guide
- Enregistrement vidéo écran - Guide
- Formulaire de réclamation facebook - Guide
- Enregistrer le son du pc - Guide
- Quel mini pc choisir - Guide
2 réponses
Bonjour
Je te mets ce code d'un bouton qui imprime l'enregistrement en cours à partir d'un formulaire.
Il te faut un état dans access. Dans l'exemple, celui-ci se nome: E_CalculPoidsSemaine.
Access choisit l'état à imprimer par son N° Identité.
Dans l'exemple, celui-ci est N°Sem.
Pour réaliser ce code, en mode creation de ton formulaire, tu créais un bouton pour imprimer un etat puis tu ajoutes cette partie de code en remplaçant N°Sem.
Tu n'oublie pas les 2 vergules espacées.
Voire l'exemple.
, , "[NomDuChampId ]=" & Me![NomDuChampId]
Private Sub Cde_Form_Journ_Click()
On Error GoTo Err_Cde_Form_Journ_Click
Dim stDocName As String
stDocName = "E_CalculPoidsSemaine"
DoCmd.OpenReport stDocName, acNormal, , "[N°Sem]=" & Me![N°Sem]
Exit_Cde_Form_Journ_Click:
Exit Sub
Err_Cde_Form_Journ_Click:
MsgBox Err.Description
Resume Exit_Cde_Form_Journ_Click
End Sub
Je te mets ce code d'un bouton qui imprime l'enregistrement en cours à partir d'un formulaire.
Il te faut un état dans access. Dans l'exemple, celui-ci se nome: E_CalculPoidsSemaine.
Access choisit l'état à imprimer par son N° Identité.
Dans l'exemple, celui-ci est N°Sem.
Pour réaliser ce code, en mode creation de ton formulaire, tu créais un bouton pour imprimer un etat puis tu ajoutes cette partie de code en remplaçant N°Sem.
Tu n'oublie pas les 2 vergules espacées.
Voire l'exemple.
, , "[NomDuChampId ]=" & Me![NomDuChampId]
Private Sub Cde_Form_Journ_Click()
On Error GoTo Err_Cde_Form_Journ_Click
Dim stDocName As String
stDocName = "E_CalculPoidsSemaine"
DoCmd.OpenReport stDocName, acNormal, , "[N°Sem]=" & Me![N°Sem]
Exit_Cde_Form_Journ_Click:
Exit Sub
Err_Cde_Form_Journ_Click:
MsgBox Err.Description
Resume Exit_Cde_Form_Journ_Click
End Sub
castours
Messages postés
2955
Date d'inscription
lundi 18 septembre 2006
Statut
Membre
Dernière intervention
31 août 2019
217
19 avril 2012 à 10:17
19 avril 2012 à 10:17
Bonjour
Si tu as fait a partir du formulaire, un bouton imprimer, tu fais la meme chose avec un bouton visualiser.
Ce qui change dans le code entre les 2 boutons un mot:
AcNormal , imprime
AcPreview, visualise
Si tu as fait a partir du formulaire, un bouton imprimer, tu fais la meme chose avec un bouton visualiser.
Ce qui change dans le code entre les 2 boutons un mot:
AcNormal , imprime
AcPreview, visualise
Bonjour,
Merci, grâce à ton aide, je peux imprimer ou afficher l'état, mais tout ça se fait dans ACCESS. Mon besoin maintenant est que le formulaire s'affiche dans WORD. Auparavant, je faisais l'affichage dans WORD par une macro intégré qui «EXPORTE avec Mise en forme» vers WORD, tout ça passait par une requête pour le choix de l'enregistrement.
Merci encore, je conserve précieusement les exemples pour les utiliser dans d'autres parties de ma base de données et tout doucement tu enrichies mes connaissances pour le VBA.
Merci, grâce à ton aide, je peux imprimer ou afficher l'état, mais tout ça se fait dans ACCESS. Mon besoin maintenant est que le formulaire s'affiche dans WORD. Auparavant, je faisais l'affichage dans WORD par une macro intégré qui «EXPORTE avec Mise en forme» vers WORD, tout ça passait par une requête pour le choix de l'enregistrement.
Merci encore, je conserve précieusement les exemples pour les utiliser dans d'autres parties de ma base de données et tout doucement tu enrichies mes connaissances pour le VBA.
castours
Messages postés
2955
Date d'inscription
lundi 18 septembre 2006
Statut
Membre
Dernière intervention
31 août 2019
217
19 avril 2012 à 15:01
19 avril 2012 à 15:01
Cela fonctionne en access 2003 pour les autres , je ne sais pas
Comme convenu, voici la commande VBA pour faire un «EXPORTE avec Mise en forme» vers WORD, =
DoCmd.OutputTo acOutputReport, stDocName, "RichTextFormat(*.rtf)", "", True, "", , acExportQualityPrint
La commande fonctionne mais elle exécute toute ma table. Reste à trouver comment faire pour qu'elle exécute par VBA un seul enregistrement.
DoCmd.OutputTo acOutputReport, stDocName, "RichTextFormat(*.rtf)", "", True, "", , acExportQualityPrint
La commande fonctionne mais elle exécute toute ma table. Reste à trouver comment faire pour qu'elle exécute par VBA un seul enregistrement.
castours
Messages postés
2955
Date d'inscription
lundi 18 septembre 2006
Statut
Membre
Dernière intervention
31 août 2019
217
21 avril 2012 à 07:47
21 avril 2012 à 07:47
Bonjour
Si tu fais impression depuis un formulaire pour imprimer l'enregistrement en cours, il faut triuver le moyen d'inclure le N°Id de l'enregistrement comme je l'ai fait pour imprimer avec access.
Peut etre juste avant acExportQualityPrint
, , "[N°Sem]=" & Me![N°Sem]
N°Sem etant Id de l'enregistrement.
Essai et moi au courant pour info
Si tu fais impression depuis un formulaire pour imprimer l'enregistrement en cours, il faut triuver le moyen d'inclure le N°Id de l'enregistrement comme je l'ai fait pour imprimer avec access.
Peut etre juste avant acExportQualityPrint
, , "[N°Sem]=" & Me![N°Sem]
N°Sem etant Id de l'enregistrement.
Essai et moi au courant pour info
18 avril 2012 à 22:13