[Resolvido]Problema: O Código está sendo aplicado em todos os registros do Formulário.

Olá Galera!

Estou aprendendo a usar o Access, e inseri um código do qual, tenho um formulário onde ao ticar na CheckBox, ele formata o campo da legenda para acusar o assunto tratado. Porém ele deixa o campo formatado para todos os registros.

Segue um trecho do código:

Private Sub Ctl2°_Contato___Convite_Extra_AfterUpdate()

If Me.Ctl2°_Contato___Convite_Extra = -1 Then
Me.Rótulo27.ForeColor = RGB(127, 255, 0)
Else
Me.Ctl2°_Contato___Convite_Extra = 0
Me.Rótulo27.ForeColor = RGB(3, 3, 3)
 
  End If

End Sub

Private Sub Ctl2°_Contato___Informativo_AfterUpdate()

If Me.Ctl2°_Contato___Informativo = -1 Then
Me.Rótulo30.ForeColor = RGB(127, 255, 0)
Else
Me.Ctl2°_Contato___Informativo = 0
Me.Rótulo30.ForeColor = RGB(3, 3, 3)

End If
End Sub


Private Sub Ctl2°_Contato___Viagem_AfterUpdate()

If Me.Ctl2°_Contato___Viagem = -1 Then
Me.Rótulo33.ForeColor = RGB(127, 255, 0)
Else
Me.Ctl2°_Contato___Viagem = 0
Me.Rótulo33.ForeColor = RGB(3, 3, 3)

End If
End Sub

Fernando

Utilize a formatação condicional, é bem mai fácil.

Veja na ajuda do Access, se não entender, retorne !!


[ ]'s

Obrigado Noob!

Consegui fazer algo que resolveu minha necessidade, coloquei no formulário atual o seguinte código:

Private Sub Form_Current()

If Me.Ctl1°_Contato___Ausência_da_Reunião_Final = -1 Then
Me.Rótulo0.ForeColor = RGB(127, 255, 0)
Else
Me.Rótulo0.ForeColor = RGB(3, 3, 3)
End If
If Me.Ctl1°_Contato___Convite_Extra = -1 Then
Me.Rótulo3.ForeColor = RGB(127, 255, 0)
Else
Me.Rótulo3.ForeColor = RGB(3, 3, 3)
End If


....

OBRIGADO!

Ótimo que resolveu.

Valeu o retorno !

Boa sorte!