Bericht

27/10/2008 - 09:37 von Christoph Natterer | Report spam
Guten Morgen. Hab mal wieder eine Frage:
Ich habe einen Bericht in dem ein Textfeld steht das ich per VBA Befüllen
möchte.
Habe beriets einen Code an dem nicht mehr viel Fehlen kann, entdecke aber
meinen Fehler nicht.

DoCmd.OpenReport "Bericht", acViewPreview

Reports("Bericht").[Text27].Caption = "hallo"

DoCmd.Close "Bericht", , acSaveYes


(Der Bericht heißt Bericht und Text27 ist mein Textfeld) Als Ausgabe z.B
Hallo.)

Vielen Dank für eure HilfeChristoph
Trainee
 

Lesen sie die antworten

#1 Gunter Avenius
27/10/2008 - 09:59 | Warnen spam
Hallo Christoph,

Christoph Natterer schrieb folgendes:
Ich habe einen Bericht in dem ein Textfeld steht das ich per VBA Befüllen
möchte.
Habe beriets einen Code an dem nicht mehr viel Fehlen kann, entdecke aber
meinen Fehler nicht.

DoCmd.OpenReport "Bericht", acViewPreview

Reports("Bericht").[Text27].Caption = "hallo"

DoCmd.Close "Bericht", , acSaveYes


(Der Bericht heißt Bericht und Text27 ist mein Textfeld) Als Ausgabe z.B
Hallo.)



DoCmd.OpenReport "Bericht", acViewDesign
Reports("Bericht").Text27.ControlSource ="='hallo'"
DoCmd.Close acReport, "Bericht", acSaveYes

... Du solltest aber Deine Felder im Ergeignis "Beim Formatieren" des
Bereiches füllen in den das Textfeld im Bericht liegt.

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As
Integer)
Me!Text27 = "Hallo"
End Sub

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com
11. Access-Entwickler-Konferenz http://donkarl.com/?AEK
Nürnberg, 11./12.10. + 18./19.10. + 25./26.10.2008

home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

Ähnliche fragen