Supportnet / Forum / Datenbanken
Farbiger Hintergrund mehrerer Textfelder in einem Formular in Abhängigkeit vom Inhalt eines Textfeldes
Frage
Hallo,
habe ein Access 2003-Formular mit mehreren Textfeldern:
Funktion: Geschäftsführer
Anrede: Herr
Name: Maier
Vorname: Hans
Jetzt will ich, je nach dem was im Funktion(sfeld) steht, bei allen Feldern eine einheitliche Hintergrundfarbe haben!
Bsp.: Funktion = Geschäftsführer alle Textfelder Hintergrund rot sonst grün.
Ich habe auch schon Code gefunden der mir einzelne Hintergründe einfärbt, aber leider schert der sich nicht um die If anweisung und prüft auch anscheinend nicht den Textfeldinhalt.
Private Sub Form_Load()
Dim lngRot, lngGrün As Long
lngRot = RGB(255, 0, 0)
lngGrün = RGB(0, 255, 0)
If me.Funktion = "Geschäftsführer" Then
Me.Funktion.BackColor = lngRot
Me.Anrede.BackColor = lngRot
Me.Name.BackColor = lngRot
Else
Me.Anrede.BackColor = lngGrün
Me.Name.BackColor = lngGrün
Me.Funktion.BackColor = lngGrün
End If
End Sub
Tja, irgendwo ist ein kleiner fehler.
Danke im Voraus
Antwort 1 von Roadrunner90
Hi,
ist denn das Feld "Funktion" beim laden des Formulares schon gefüllt oder füllst du das erst aus?
Gruß Rudolf
ist denn das Feld "Funktion" beim laden des Formulares schon gefüllt oder füllst du das erst aus?
Gruß Rudolf
Antwort 2 von P@N
Hi Roadrunner 90,
das Feld ist grundsätzlich gefüllt-fals leer soll es auch weiss bleiben.
PS.: Habe auch vergessen zu sagen das bei meinem Code oben wird bei der abfrage des feldes "Funktion" (If.me.Funktion.....) immer mukiert das das Feld kein Fokus hat
Danke P@N
das Feld ist grundsätzlich gefüllt-fals leer soll es auch weiss bleiben.
PS.: Habe auch vergessen zu sagen das bei meinem Code oben wird bei der abfrage des feldes "Funktion" (If.me.Funktion.....) immer mukiert das das Feld kein Fokus hat
Danke P@N
Antwort 3 von Risatara2
Du hast "Beim Laden" eingesetzt, besser währe wohl "Beim Anzeigen". Probier das doch mal.
Antwort 4 von P@N
Danke für den Tip Risatara2,
vielleicht kannst du mir die entsprechende Prozedur sagen.
Ist mein erster Ausflug ins VBA vom Access
"Private Sub Form_Show()" oder wie?
Danke P@N
vielleicht kannst du mir die entsprechende Prozedur sagen.
Ist mein erster Ausflug ins VBA vom Access
"Private Sub Form_Show()" oder wie?
Danke P@N
Antwort 5 von Risatara2
Private Sub Form_Current()
zumindest müsste es das sein, aber probiers einfach mal. Wenn nicht frage einfach nochmal an :)
zumindest müsste es das sein, aber probiers einfach mal. Wenn nicht frage einfach nochmal an :)
Antwort 6 von P@N
Vielen Dank an Risatara2,
für den kleinen aber feinen Tip mit Form_Current() !!!
Funktioniert volltrefflich!!
P@N
für den kleinen aber feinen Tip mit Form_Current() !!!
Funktioniert volltrefflich!!
P@N