Caixa de Seleção quando ativo mudar cor de Campo.

Boa noite, gostaria que alguem me ajudasse se possivel.

Tenho esse codigo:

Private Sub MARCADO_AfterUpdate()
If MARCADO.Value = -1 Then
Me.NOME.BackColor = RGB(236, 240, 254)

End If

End Sub

Que quando eu ativo a caixa de seleção o campo nome fica na cor roxo claro, so que eu queria q essa cor so ficasse no campo do registro q marquei, pois quando eu vou cadastrar mais uma pessoa o campo ja se encontra roxo, e eu queria q ao criar um novo a cor desse campo ficasse normal e ao pesquisar o registro que a caixa de seleção foi ativado, o campo nome ai sim estaria roxo.

Bem espero q eu tenha conseguido explicar oq eu gostaria.

Vlw galera,, grande abraço

crie uma function e faça a chamada na propriedade "No Atual" do form e na "Após alterar" da Caixa de Seleção

Seu código vai ficar mais ou menos assim

Código:

Private Sub Form_Current()
  AlteraCor
end sub

Código:

Private Sub MARCADO_AfterUpdate()
  AlteraCor
End Sub

Código:

Function AlteraCor()

If MARCADO.Value = -1 Then
    Me.NOME.BackColor = RGB(236, 240, 254)
else
    Me.NOME.BackColor = RGB(255, 255, 255)
End If

end function
end sub

Muitoooooo obrigado.. funcionou como eu gostaria.... muito agradecido..



abraços

Boa tarde,
Dê a assunto por "Resolvido"
Lembre-se de acompanhar, pelo menos, as suas dúvidas (http://maximoaccess.forumeiros.com/t18263-importar-campo-de-site#135568)

Opa boa tarde, desculpe ... e q restou uma duvida que tenho q tirar aki ainda.... o codigo q ele me passou foi show deu tudo certo...

Minha duvida e a seguinte, quando coloco o formulario dividido o campo Nome em baixo n fica em vermelho so na parte de cima, tem algum codigo que tb faça a parte da listagem no campo nome fique colorido??

Aguardo Retorno, vlw