Hallo Zusammen,
ich habe folgendes Problem.
Ich habe ein Formular, in dem die Daten von Kindern eingegeben werden. Wenn sich Änderungen ergeben, werden diese ebenfalls in dem Formular eingetragen. Nun habe ich es so gemacht, dass, wenn eine Änderung eingetragen wird, sich die Hintergrundfarbe ändert. Soweit so gut.
Nun habe ich in dem Formular noch einen Button eingebaut, der einen Bericht drucken soll.
Der Bericht hat die selben Felder wie das Formular.
Nun mein Problem:
Wenn ich auf Bericht drucken gehe werden die zwar alle Felder angezeigt und auch gedruckt, aber die Änderungen sind nicht farbig hinterlegt.
Wie schaffe ich es, dass diese farbliche Hervorhebung auch im Bericht auftaucht?
Die farbliche Hervorhebung im Formular habe ich so gemacht (nur ein Beispiel, diese Prozedur hab ich für alle 32 Felder gemacht):
Private Sub Abgabedatum_Change()
Me.Abgabedatum.BackColor = RGB(190, 190, 190)
End Sub
Den Bericht drucken habe ich so gemacht:
Private Sub Daten_drucken_Click()
On Error GoTo Err_Daten_drucken_Click
DoCmd.RunCommand acCmdSaveRecord
Dim stDocName As String
stDocName = "Anmeldedaten"
DoCmd.OpenReport stDocName, acPreview, , "Name='" & Me!Name & "'"
Exit_Daten_drucken_Click:
Exit Sub
Err_Daten_drucken_Click:
MsgBox Err.Description
Resume Exit_Daten_drucken_Click
End Sub
Das Formular heißt: Anmeldedaten
Vielen herzlichen Dank im Voraus für Eure Hilfe
Hi,
ich sehe da nur den Weg, dass sich der Bericht die Hintergrundfarben aus dem Formular holt.
Geeignetes Ereignis wäre da wohl das Format-Ereignis des zugehörigen Berichtsbereichs.
Hallo MaggieMay,
das sehe ich auch so, aber die Frage ist ja wie ich das mache.
Hi,
das bisher gelesene verstehe ich so, dass das Anfärben nur funktionieren wird, solange Du den Datensatz, der geändert worden ist, nicht verlassen hast.
Ist das so geplant?
Hallo,
so dachte ich mir das:Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
Me.Abgabedatum.BackColor = Forms!formularname.Abgabedatum.BackColor
End Sub
Hallo bahasu,
ja so hatte ich mir das gedacht.