Einzelne Felder in einem Bericht einfärben

27/04/2010 - 12:53 von Erik Schober | Report spam
Hallo alle miteinander,

Ich habe folgendes Problem
Ich habe einen Bericht mit Hilfe einer Kreuzabfrage erstellt und gebe ihn
wie eine Excel-Tabelle aus. Ich möchte jedoch einige Felder einfàrben, die er
sich aus einer anderen Abfrage holt. Wenn ein Feld gleich ist, dann soll er
es blau fàrben, sonst bleibt die Hintergrundfarbe. mit einem bekomme ich es
hin, aber wenn mehrere Felder in der Spalte sind bekomme ich es nicht hin,
das einzelne Felder eingefàrbt sind.
Den Code habe ich bei Detailbereich-Format eingefügt.

Wer kann mir dabei helfen??

Code:

Dim DB As DAO.Database
Dim rs As DAO.Recordset

Set DB = CurrentDb
Set rs = DB.OpenRecordset("50_qry_Union_Zuordnung_ZF_WT") 'Meine
Vergleichsabfrage'


rs.AbsolutePosition = rs.BOF
Do While Not rs.EOF
If Me.Donnerstag = rs("ZeitfensterDefinition") Then 'Wenn das Feld
Donnerstag einen Wert findet, soll er ihn blau fàrben
Me.Donnerstag.BackStyle = 1
Me.Donnerstag.BackColor = RGB(130, 20, 230)
Me.Donnerstag.Visible = True
MsgBox (rs("ZeitfensterDefinition")) 'Kontrolle für mich


Else
Me.Donnerstag.Visible = False
Me.Donnerstag.BackStyle = 0
Me.Donnerstag.BackColor = RGB(130, 20, 230)


End If
rs.MoveNext

Loop
rs.Close
Set rs = Nothing
DB.Close
Set DB = Nothing
 

Lesen sie die antworten

#1 Peter Doering
27/04/2010 - 14:10 | Warnen spam
Hallo,

Erik Schober wrote:

Ich habe einen Bericht mit Hilfe einer Kreuzabfrage erstellt und gebe ihn
wie eine Excel-Tabelle aus. Ich möchte jedoch einige Felder einfàrben, die er
sich aus einer anderen Abfrage holt. Wenn ein Feld gleich ist, dann soll er
es blau fàrben, sonst bleibt die Hintergrundfarbe. mit einem bekomme ich es
hin, aber wenn mehrere Felder in der Spalte sind bekomme ich es nicht hin,
das einzelne Felder eingefàrbt sind.



Deiner Beschreibung ist schwer zu folgen. Vielleicht hilft es, wenn du ein
Beispiel mit Daten machst.

Eine Pivotabfrage zeichnet sich normalerweise dadurch aus, dass sie mehrere
Spalten enthaelt. Welche davon spielen denn fuer die Einfaerbung eine
Rolle?

Code:

Dim DB As DAO.Database
Dim rs As DAO.Recordset

Set DB = CurrentDb
Set rs = DB.OpenRecordset("50_qry_Union_Zuordnung_ZF_WT") 'Meine
Vergleichsabfrage'


rs.AbsolutePosition = rs.BOF
Do While Not rs.EOF
If Me.Donnerstag = rs("ZeitfensterDefinition") Then 'Wenn das Feld
Donnerstag einen Wert findet, soll er ihn blau fàrben
Me.Donnerstag.BackStyle = 1
Me.Donnerstag.BackColor = RGB(130, 20, 230)
Me.Donnerstag.Visible = True
MsgBox (rs("ZeitfensterDefinition")) 'Kontrolle für mich


Else
Me.Donnerstag.Visible = False
Me.Donnerstag.BackStyle = 0
Me.Donnerstag.BackColor = RGB(130, 20, 230)


End If



If Me.Freitag = rs("ZeitfensterDefinition") Then
...
Else
...
End If

If Me.Samstag 'usw.

Ist es das, was du suchst?

Gruss - Peter

Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen