Hallo,
bei einem Report sollen vor Druck 2 Bezeichnungsfelder im Seitenkopf farblich geändert werden. Bei einem (Abteilung) funktioniert das auch...aber beidem anderen (TempAusgabe) macht er das nicht, obwohl die Befehle identisch sind....bzw. er macht nur die Textfarbe weiß, sodass nichts mehr zu lesen ist.
Private Sub Report_Open(Cancel As Integer)
...
Abteilung_Bezeichnungsfeld.BackColor = RGB(0, 0, 0)
Abteilung_Bezeichnungsfeld.ForeColor = RGB(255, 255, 255)
TempAusgabe_Bezeichnungsfeld(acPageHeader).BackColor = RGB(0, 0, 0)
TempAusgabe_Bezeichnungsfeld.ForeColor = RGB(255, 255, 255)
...
End Sub
Muss man das anders ansprechen?
Danke
gruß Christoph
Hallo,
Identisch?
Was soll das "acPageHeader" hier bedeuten?
Weiterhin solltest Du "Me!" den Steuerelementnamen voranstellen und das Format-Ereignis der jeweiligen Berichtsbereiche für solche Einstellungen verwenden.
Oh "....(acPageHeader)..." hatte ich vergessen wieder rauszulöschen. Habe halt alles möglich ausprobiert....
Probiere es aber mal im zugehörigen Format-Ereignis.
Danke
Gruß Christoph
Guten Morgen,
ich habe es jetzt wie folgt probiert:
(Anmerkungen hinter den Befehlen)
Private Sub Seitenkopfbereich_Format(Cancel As Integer, FormatCount As Integer)
If Me.OpenArgs <> "" Then
If Right(Me.OpenArgs, 6) = "APsort" Then
Me!Abteilung_Bezeichnungsfeld.BackColor = RGB(0, 0, 0) -->OK
Me!Abteilung_Bezeichnungsfeld.ForeColor = RGB(255, 255, 255) -->OK
Me!TempAusgabe_Bezeichnungsfeld.BackColor = RGB(0, 0, 0) -->macht er nicht !!!
Me!TempAusgabe_Bezeichnungsfeld.ForeColor = RGB(255, 255, 255) -->OK
End If
End If
End Sub
Ich habe den Fehler gefunden.
Bei dem Feld TempAusgabe war als Hintergrundart Transparent hinterlegt... Habe ich auf Normal geändert :-)
Gruß Christoph