Access97 Textfarbe in Abhängigkeit vom Inhalt

Computer: Software & Programmierung Microsoft Access
1

Hi,
ich möchte die Textfarbe eines Fomularfeldes in Abhängigkeit von dessen Inhalt ändern.

Beispiel:
Alle Daten eines Feldes welche mit „RN“ losgehen sollen in rot angezeigt werden. Die nachfolgende Procedure zerlegt den Text, das funktioniert, aber es werden dann alle Daten des Endlosformulars in rot angezeigt und nicht nur die welche mit RN losgehen.

Dim F
F = Left(Me!RNr, 2)
If F = „RN“ Then Me!RNr.ForeColor = 255

Hat jemand eine Idee?

Gruß Ortwin09

2

Hallo,

ich möchte die Textfarbe eines Fomularfeldes in Abhängigkeit
von dessen Inhalt ändern.

Beispiel:
Alle Daten eines Feldes welche mit „RN“ losgehen sollen in rot
angezeigt werden. Die nachfolgende Procedure zerlegt den Text,
das funktioniert, aber es werden dann alle Daten des
Endlosformulars

das ist der Knackpunkt. Dowas geht in einem Endlosform nicht.

Dort MUSS die „Bedingte Formatierung“ für solche Sachen benutzt werden.

in rot angezeigt und nicht nur die welche mit
RN losgehen.

Dim F
F = Left(Me!RNr, 2)
If F = „RN“ Then Me!RNr.ForeColor = 255

Hat jemand eine Idee?

ja,

in der Bedingten Formatierung:

Ausdruck ist Left([RNr]; 2) = „RN“

und dafür Textfarbe Rot einstellen

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

3

Hi,

ich möchte die Textfarbe eines Fomularfeldes in Abhängigkeit
von dessen Inhalt ändern.

ich würde auch - wie Franz - die Bedingte Formatierung empfehlen, nur ist diese imho noch nicht in Access 97 enthalten

Daher würde ich Trick17 anwenden:
lege über dein Feld ein weiteres mit gleichem Inhalt, nur mit roter Schrift. Nur verstecke es, mache es unsichtbar.
Per VBA kannst du nun dieses Feld sichtbar, oder unsichtbar machen.

Beispiel:

 Dim F
 F = Left(Me!RNr, 2)
 If F = "RN" Then 
 Me!RNr\_rot.visible = true
 else
 Me!RNr\_rot.visible = false
 endif

oder kürzer:
Me!RNr\_rot.visible = iif(Left(Me!RNr, 2)="RN",true,false)

Grüße aus Rostock
Wolfgang
(Netwolf)

4

Es waren einige gute Tips, aber wie ich sehe ist das Endlosformular das Problem. Also Dank erst mal an alle ich werde noch etwas probieren.

Gruß Ortwin09

5

Hallo,

ja, A97 habe ich ignoriert… ;-(

siehe hier:
www.donkarl.com/?FAQ4.1

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!