Discussion :

[denis88]

Bonjour ou re

Comment svp imprimer les données d'un sous_formulaire dans un etat, j'ai essayé en m'inspirant des tutos, ceci semble fonctionner avce un formulaire, en ce qui concerne donc le sous formulaire par contre cela me renvoit frm introuvable.

Code :

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

1
2
3
Private Sub Report_Open(Cancel as integer) 
Me.RecordSource=Forms.Item("MonFormulaire").recordsource 
End Sub

Est-ce différent pour un sous formulaire ??

Merci par avance.
Bonne journée

[Khab']

Normalement c'est exactement la meme chose, tu créé un nouveau formulaire et tu défini la table en question en source de controle dans les propriétés...Et t'as plus qu'à creer une macro qui ouvre ton état et qui l'imprime...ou tu peux faire ca avec du code...A toi de voir!
C'est tout simple

Khab'

[denis88]

Effcetivement cela parait simple, quand je réalise ceci à partir de données provenant d'un formulaire tout fonctionne, dès que je tente de réaliser la même chose avec un sous formulaire, cela me répond impossible de trouver le formulaire auquel il est fait référence, y a t'il une astuce qui m'échappe ??

Merci.

[Khab']

J'ai eu a faire ce que tu me dis pas plus tard que cet après midi, et j'ai procédé de la manière que je t'ai décrite...au pire fait avec l'assistant!

[denis88]

Je reprends si vous voulez bien.

J'ai crééé un formulaire de consultation basé sur une requête et flitré grace au tuto trouvé sur développez.com. (restriction)

Les réponses correspondantes sont affichées donc sur un sous - formulaire lié au formulaire consultation, j'aimerai grace toujours au tuto trouvé ici , imprimer les données du sous formulaire dans un état

Code :

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

1
2
3
4
Private Sub BTImprimer_Click()
Dim Noim_Etat as string
Nom_Etat = "MonEtat"
DoCmd.OpenReport Nom_Etat, acPreview

Sur l'evenement open etat

Code :

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

1
2
3
Private Sub report_Open (Cancel as Integer)
Me.RecordSource = Forms.Item("frm_multi").RecordSource
End sub

Quand je lance la procedure, j'ai comme retour frm_multi introuvable

Avez vous une piste