Discussion :

[Davik]

Voila tout est dans le titre j'aimerai imprimer les données d'un formulaire dans un état, donc jai consulté la faq et jai trouvé des infos mais jai encore quelques petits soucis.

Dans un premier temps j'ai donc créer mon état avec les memes champs que mon formulaire pour cela jai cliqué droit sur le formulaire, enregistrez sous... état comme cela jai exactement le formulaire en état ! est ce bon ?

mon formulaire se nomme "fiche2" et mon état se nomme également "fiche2" cela ne doit pas poser de problème


ensuite jai placé un bouton BTImprimer avec ce code sur l'événement clic

Code :

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

1
2
3
4
5
6
 
Private Sub BTImprimer_Click()
Dim Nom_Etat As String
Nom_Etat = "Fiche2"
DoCmd.OpenReport Nom_Etat, acPreview
End Sub

et sur l'ouverture de l'état jai placé celui ci

Code :

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

1
2
3
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = Forms.Item("Fiche2").RecordSource
End Sub

mais mon état s'ouvre vide...
où est mon erreur?

merci de votre aide

[loufab]

Bonjour,

Je procéderais comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub BTImprimer_Click()
 
Dim Nom_Etat As String
Nom_Etat = "Fiche2"
 
DoCmd.OpenReport Nom_Etat, acPreview
 
Report.item("Fiche2).RecordSource = me.RecordSource
Report.item("Fiche2).Requery
 
End Sub

Au niveau du nom équivalent il n'y a pas réels problèmes techniques mais c'est quand même déconseillé à cause des mélanges qui peuvent être fait entre les 2 objets lors de la programmation.
J'évite cela en respectant les conventions de nommage des objets (voir le tuto sur le sujet)
Exemple :
Formulaire = frm_Fiche2
Etat = rpt_Fiche2

C'est tout simple et ça évite des problèmes de relecture.

Cordialement,