TextBox.ForeColor-Eigenschaft (Access)

Verwenden Sie die ForeColor-Eigenschaft , um die Farbe für Text in einem Steuerelement anzugeben. Long mit Lese-/Schreibzugriff.

Syntax

Ausdruck verwendet werden. ForeColor

Ausdruck Eine Variable, die ein TextBox-Objekt darstellt.

Hinweise

Verwenden Sie diese Eigenschaft für Steuerelemente in Formularen oder Berichten, um diese leicht lesbar zu machen oder um ihnen eine besondere Bedeutung zu vermitteln. Sie können z. B. die Farbe des Texts im Steuerelement "Lagerbestand" ändern, wenn der Wert unter das Nachbestellniveau fällt.

Sie können diese Eigenschaft für Berichte verwenden, um spezielle optische Effekte zu erzielen, wenn Sie mit einem Farbdrucker arbeiten. Bei Verwendung in einem Bericht gibt diese Eigenschaft die Druck- und Zeichnungsfarbe für die Methoden Drucken, Linie und Kreis an.

Die ForeColor-Eigenschaft enthält einen numerischen Ausdruck, der dem Wert der Textfarbe des Steuerelements entspricht.

Verwenden Sie den Farb-Generator, um diese Eigenschaft festzulegen, indem Sie die Schaltfläche "Erstellen " rechts neben dem Eigenschaftenfeld im Eigenschaftenblatt auswählen. Mithilfe des Farb-Editors können Sie benutzerdefinierte Rahmenfarben für Steuerelemente definieren.

Sie können den Standardwert für diese Eigenschaft festlegen, indem Sie den Standardsteuerelementstil eines Steuerelements oder die DefaultControl-Eigenschaft in Visual Basic verwenden.

Bei Berichten können Sie die Kreis-Eigenschaft nur mithilfe eines Makros oder einer Visual Basic-Ereignisprozedur festlegen, die in der OnPrint-Ereigniseigenschafteinstellung eines Abschnitts angegeben ist.

Beispiel

Im folgenden Beispiel werden die Eigenschaften BorderColor, BackColor und ForeColor mit der RGB-Funktion in Abhängigkeit vom Wert des txtPastDue-Textfelds festgelegt. Sie können diese Eigenschaften auch mit der QBColor -Funktion festlegen. Wenn Sie den folgenden Code in das Ereignis Form_Current( ) einfügen, werden die Merkmale der Steuerelementanzeige festgelegt, sobald der Benutzer ein Formular öffnet oder zu einem neuen Datensatz wechselt.

Sub Form_Current() 
 Dim curAmntDue As Currency, lngBlack As Long 
 Dim lngRed As Long, lngYellow As Long, lngWhite As Long 
 
 If Not IsNull(Me!txtPastDue.Value) Then 
 curAmntDue = Me!txtPastDue.Value 
 Else 
 Exit Sub 
 End If 
 lngRed = RGB(255, 0, 0) 
 lngBlack = RGB(0, 0, 0) 
 lngYellow = RGB(255, 255, 0) 
 lngWhite = RGB(255, 255, 255) 
 If curAmntDue > 100 Then 
 Me!txtPastDue.BorderColor = lngRed 
 Me!txtPastDue.ForeColor = lngRed 
 Me!txtPastDue.BackColor = lngYellow 
 Else 
 Me!txtPastDue.BorderColor = lngBlack 
 Me!txtPastDue.ForeColor = lngBlack 
 Me!txtPastDue.BackColor = lngWhite 
 End If 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.