PDA

Vollständige Version anzeigen : Hintergrundfarben


Pantay
09.07.2001, 18:22
Hi Leute, folgendes Problem: Wie kann man es realisieren, dass sich in einem Formular die Hintergrundfarbe in den Feldern ändert, in denen ein Eintrag erfolgt ist. Habe es über die Option Ereignisse probiert, habe es aber nicht geschafft. Im voraus Danke für Eure Tipps. Gruß Pantay

Phillip-Berlin
09.07.2001, 19:00
na beim verlassen des feldes überprüfst du
ob ein eintrag stattgefunden hat ...
also wenns nicht leer ist : ""
dann change backcolor
hier ein beispiel aus der hilfe
stichwort "backcolor"

Sub Form_Current()
Dim curFälligerBetrag As Currency, lngSchwarz As Long
Dim lngRot As Long, lngGelb As Long, lngWeiß As Long

If Not IsNull(Me!txtÜberfällig.Value) Then
curFälligerBetrag = Me!txtÜberfällig.Value
Else
Exit Sub
End If
lngRot = RGB(255, 0, 0)
lngSchwarz = RGB(0, 0, 0)
lngGelb = RGB(255, 255, 0)
lngWeiß = RGB(255, 255, 255)
If curFälligerBetrag > 100 Then
Me!txtÜberfällig.BorderColor = lngRot
Me!txtÜberfällig.ForeColor = lngRot

Me!txtÜberfällig.BackColor = lngGelb
Else
Me!txtÜberfällig.BorderColor = lngSchwarz
Me!txtÜberfällig.ForeColor = lngSchwarz
Me!txtÜberfällig.BackColor = lngWeiß
End If
End Sub