title image


Smiley Re: schriftfarbe für ein formular ändern wenn man werte ändert
Vielleicht hilft Dir folgende Funktion,musste Du evtl noch etwas anpassenOption Compare DatabaseOption ExplicitPublic Feldfarbe As LongPublic Textfarbe As LongPrivate Const conAktivesTextfeldFarbe = 8454143Public Function aktives_Eingabefeld(Status As Boolean)On Error GoTo Err_aktives_Eingabefeld Dim Steuerelement1 As Control Set Steuerelement1 = Screen.ActiveControl If Status Then Feldfarbe = Steuerelement1.BackColor Textfarbe = Steuerelement1.ForeColor Steuerelement1.ForeColor = 0 Steuerelement1.BackColor = conAktivesTextfeldFarbe Else Steuerelement1.ForeColor = Textfarbe Steuerelement1.BackColor = Feldfarbe End IfExit_aktives_Eingabefeld: Exit FunctionErr_aktives_Eingabefeld: Select Case Err Case 0 Resume Next Case Else Resume Exit_aktives_Eingabefeld End Select Resume 0End FunctionNun kannst Du z.B. beim Fokuserhalt einbauen '=aktives_Eingabefeld(Wahr)' die Hintegrundfarbe auf gelb setzten und beim Fokusverluste mit '=aktives_Eingabefeld(Falsch)' die Hintergrundfarbe wieder zurücksetzen.Thomas

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: