Hallo Leute,
Ich möchte die Textfarbe in einer Listbox in Access 2003 auf einem Bericht abhängig von einem Wert in einer Spalte („Wiedevorlage“) in rot haben, den rest in schwarz.
In der Eigenschaft Textfarbe kann ich aber nur 255 oder 0 einsetzen. Gibt es die Möglichkeit die Textfarbe in der ListBox über eine Formel zu steuern ?
Dak für Eure Hilfe
Christian
Hallo,
Ich möchte die Textfarbe in einer Listbox in Access 2003 auf
einem Bericht abhängig von einem Wert in einer Spalte
(„Wiedevorlage“) in rot haben, den rest in schwarz.
In der Eigenschaft Textfarbe kann ich aber nur 255 oder 0
einsetzen.
Halte ich für ein Gerücht…
Welche Access-Version benutzt Du?
Handelt es sich um das Access-Standard-Listenfeld?
Gibt es die Möglichkeit die Textfarbe in der
ListBox über eine Formel zu steuern ?
Ja:
Me!lstListbox.Forecolor=rgb (0,255,0) 'für grün
Viele Grüße vom Bodensee
Franz, DF6GL
Hallo,
Ich möchte die Textfarbe in einer Listbox in Access 2003 auf
einem Bericht abhängig von einem Wert in einer Spalte
(„Wiedevorlage“) in rot haben, den rest in schwarz.
In der Eigenschaft Textfarbe kann ich aber nur 255 oder 0
einsetzen.Halte ich für ein Gerücht…
Stimmt ! - ich kann natürlich auch andere Farbcode eingeben !
Welche Access-Version benutzt Du?
…steht oben !
Handelt es sich um das Access-Standard-Listenfeld?
gibt es andere ?
Gibt es die Möglichkeit die Textfarbe in der
ListBox über eine Formel zu steuern ?
Ja:
Me!lstListbox.Forecolor=rgb (0,255,0) 'für grün
wenn ich das in die Eigenschaft der Textfarbe setze passiert gar nichts. Muß ich das in eine Ereignisprozedur basteln ? - oder kann ich das direkt in die Eigenschaft kopieren. Und wo ist die Verbindung zu dem Eintrag in der Spalte Wiedervorlage ?
=Wenn Datum()>[Wiedervorlage];255;0
Viele Grüße vom Bodensee
Franz, DF6GL
Viele Grüße zurück aus Büttenwarder
Christian
Handelt es sich um das Access-Standard-Listenfeld?
gibt es andere ?
es gibt jede menge anderer Steuerelemente Z. B. die aus VB Forms
Gibt es die Möglichkeit die Textfarbe in der
ListBox über eine Formel zu steuern ?
Ja:
Me!lstListbox.Forecolor=rgb (0,255,0) 'für grün
wenn ich das in die Eigenschaft der Textfarbe setze passiert
gar nichts.
Klar, das ist ja auch keine Eigenschaftseinstellung, sondern VBA-Code…
Muß ich das in eine Ereignisprozedur basteln ? -
Ja… siehe vorher
oder kann ich das direkt in die Eigenschaft kopieren.
Nein. Dort muß eine Zahl stehen. Aber die kannst Du doch mittels Klick auf die rechts stehenden Pünktchen durch eine Farbauswahl generieren…
Und wo
ist die Verbindung zu dem Eintrag in der Spalte Wiedervorlage
?
Nirgends. Im Access-Listenfeld ist die Textfarbe nur global einstellbar und nicht bezogen auf eine Spalte/Zeile oder Feld (Zelle)
Viele Grüße vom Bodensee
Franz, DF6GL
Hallo Franz,
ich nochmal !
Ich hab da noch ein bischen Schwierigkeiten was das aufgeben angeht.
Ich Ändere die Record-Source einer normalen Access2003 Listbox über den folgenden Code:
Dim StrSQL As String
StrSQL = „SELECT * FROM [Kunden Abfrage] ORDER BY [Wiedervorlage] DESC“
Me!Liste.RowSource = StrSQL
…
Wenn ich jetzt „Me!ListBox.ForeColor = RGB(0, 255, 0)“ setze, bekomme ich doch die Daten in rot angezeigt oder ?
Kann ich da nicht eingreifen und Textfarbe je nach Wiedervorlagedateum vorgeben ? - Wenn Ja - wie muss das aussehen ?
Christian
Hallo Christian,
ich nochmal !
na sowas!
Ich hab da noch ein bischen Schwierigkeiten was das aufgeben
angeht.
sehe ich 
Ich Ändere die Record-Source einer normalen Access2003
Listbox über den folgenden Code:Dim StrSQL As String
StrSQL = „SELECT * FROM [Kunden Abfrage] ORDER BY
[Wiedervorlage] DESC“Me!Liste.RowSource = StrSQL
Ja, wobei das Listenfeld die Daten auch gleich anzeigt.
…
Wenn ich jetzt „Me!ListBox.ForeColor = RGB(0, 255, 0)“ setze,
bekomme ich doch die Daten in rot angezeigt oder ?
ja, ALLE Daten (Sprich, die Textfarbe der gesamten angezeigten Daten wird rot).
Kann ich da nicht eingreifen und Textfarbe je nach
Wiedervorlagedateum vorgeben ? - Wenn Ja - wie muss das
aussehen ?
Nein , –
Viele Grüße vom Bodensee
Franz, DF6GL
Hallo,
Kann ich da nicht eingreifen und Textfarbe je nach
Wiedervorlagedateum vorgeben ? - Wenn Ja - wie muss das
aussehen ?
Nein , –
Nein??? Gibt es in VBA nicht so etwas wie eine If-Abfrage?
IF datum > 01.01.2011
THEN rot
ELSEIF datum > 15.01.2011
THEN grün
ENDIF
Oder sowas ähnliches?
Gruß Gaby
Hallo Gaby,
nein.
Es gibt zwar in VBA eine If-Bedingung (Abfrage ist etwas anderes),
die ist aber nicht im Zusammenhang mit dem Ausgangsproblem (Setzen der Textfarbe in einem individuellen Listenfeld-Element) anwendbar, schon gar nicht mit dieser absolut falschen Syntax und auch nicht so „ähnlich“.
Viele Grüße vom Bodensee
Franz, DF6GL
Danke. Gruß Gaby