Kod ile tüm textboxlarda dolaşarak renklendiriyor.
if ile istenilen controls larda yapılabilir.

Belki faydalı olur insanlarımıza.

Option Compare Database





Private Sub Form_Load()

    With Form_Form1

        For Each ctr In .Controls

            If ctr.ControlType = acTextBox Then

                ctr.FormatConditions.Delete

                strCtr = ctr.Name

                ctr.FormatConditions.Add (acFieldHasFocus)

                With ctr.FormatConditions(0)

                    .BackColor = vbGreen

                End With

            End If

        Next

    End With

End Sub