[Resolvido]Função Cor da Fonte Controles Do formulario

Existe como eu criar uma função para buscar uma determinada condição de um campo do formulario e a partir dai, no evento "no atual" do mesmo alterar a cor da fonte de todos os controles? Ex:
CampoX = Aberto, cor da fonte dos controles, Azul
CampoX = Pendente, cor da fonte dos controles, vermelho
Preciso que seja uma função para ser usado em qualquer formulario no bd.

Ola;

Num modulo;

Código:

Public Sub PintaCampos(frm As Form)
'By JPaulo ® Maximo Access
Dim strCor1 As String, strCor2 As String
Dim strValor1, strValor2
Dim ctl As Control

strCor1 = vbBlue
strCor2 = vbRed

          strValor1 = "Aberto"
          strValor2 = "Pendente"
         
For Each ctl In frm.Controls
        If ctl.ControlType = acTextBox Then
          On Error Resume Next
          If (ctl.Value) = strValor1 Then
              ctl.ForeColor = strCor1
          ElseIf (ctl.Value) = strValor2 Then
              ctl.ForeColor = strCor2
          Else
              ctl.ForeColor = vbBlack
          End If
      End If
Next ctl
Set ctl = Nothing
End Sub

Se for para pintar em formulario contínuo, tem de chamar a função em dois eventos;

Código:

Private Sub Detail_Paint()
    Call PintaCampos(Me)
End Sub

Private Sub Form_Current()
    Call PintaCampos(Me)
End Sub

Se for para chamar em formulario simples, apenas deve chamar num evento;

Código:

Private Sub Form_Current()
    Call PintaCampos(Me)
End Sub


A função ficou assim:

Public Sub PintaCampos(frm As Form, ctrPar As control)
'By JPaulo ® Maximo Access
Dim StrCor1 As String, StrCor2 As String, StrCor3 As String, StrCor4
Dim strValor As String
Dim ctl As control

StrCor1 = vbBlue
StrCor2 = vbRed
StrCor3 = vbBlack
StrCor4 = vbGreen

strValor = ctrPar.Value

For Each ctl In frm.Controls
If ctl.ControlType = acTextBox Then
On Error Resume Next
If strValor = "Pendente" Then
ctl.ForeColor = StrCor2
ElseIf strValor = "Concluido" Then
ctl.ForeColor = StrCor1
ElseIf strValor = "PG" Then
ctr.ForeColor = StrCor3
ElseIf strValor = "Programado" Then
ctr.ForeColor = StrCor3
Else
ctl.ForeColor = StrCor4
End If
End If
Next ctl
Set ctl = Nothing
End Sub


Sendo assim, resolvido!!!

Fico feliz.

Obrigado pelo retorno o forum agradece.