🚀 go-pugleaf

On Sat, 11 Oct 1997 22:52:42 +0100, "Juergen Modre" <xxx@abc.abc.abc>
wrote:

> Access 2.0
>How can you change the font-color of all textfields in a form,
>when the form is opened and it is dependend of a calculation
>of the content of one of the fields in the form????
>Acutally the font color should be set for all fields, where the
>calculation function is true, when opening it in the datasheet view.

This code is used in the OnCurrent-Event of a form to change the
forecolor of textboxes depending on several values:

Private Sub Form_Current()
    Dim frm As Form, ctl As Control
    Set frm = Me
    For Each ctl In frm.Controls
        If TypeOf ctl Is TextBox Then
            If Me("Austritt") = True Then
                If ctl.ForeColor <> RGB(255, 0, 0) Then ctl.ForeColor
= RGB(255, 0, 0)
            ElseIf Me("Unterbruch") = True Then
                If ctl.ForeColor <> RGB(0, 120, 0) Then ctl.ForeColor
= RGB(0, 120, 0)
            Else
                If ctl.ForeColor <> Me("Anrede").ForeColor Then
ctl.ForeColor = Me("Anrede").ForeColor
            End If
        End If
    Next ctl
End Sub

Hope this gives you an idea how to solve your problem...

Regards

Marc