[Resolvido]Formatação Condicional para Verificar Campos(registro) Cadastrado

Tem como fazer essa rotina na formatação condicional para verificar campo jpa cadastrado. Tenho BD com uma TB com telefones que podem repetir. Se tiver poderia me passar a rotina. Gostaria de mudar a cor do campo assim que verificasse que registro já existe como no excel. Desde já agradeço.

Detalhe a sua duvida.

Nome da tabela, nome do campo e qual a formatação (se texto ou numero).

E como está o formulario, (simples ou continuo).

Se possivel, qual a versão do seu Office.

Não sei se fui claro no pedido, por isso escrevo de novo preciso de uma formatção condicional em um campo de telefone para controle de ligações telefonicas, que permiti telefones repetidos, apenas marcar o campo com uma cor para o usuário saber que foi cadastrado. Sempre que for cadastrar o campo muda a cor. Consigo fazer isso no Excel, mas no acess não estou conseguindo. Uso acess 2003, grato.

Vamos supor que você pressiona um botão para efectuar a chamada telefonica, depois de introduzir o numero de telefone numa caixa de texto:

Private Sub BotaoChamada_Click()
If Me.NewRecord Then
Me.SeuCampoNumeroTelefone.BackColor = vbWhite
ElseIf DCount("*", "SuaTabela", "SeuCampoNumeroTelefone =" & Me.SeuCampoNumeroTelefone & "") > 0 Then
Me.SeuCampoNumeroTelefone.BackColor = vbRed
Else
Me.SeuCampoNumeroTelefone.BackColor = vbWhite
End If
End Sub


Private Sub Form_Current()
If Me.NewRecord Then
Me.SeuCampoNumeroTelefone.BackColor = vbWhite
ElseIf DCount("*", "SuaTabela", "SeuCampoNumeroTelefone =" & Me.SeuCampoNumeroTelefone & "") > 0 Then
Me.SeuCampoNumeroTelefone.BackColor = vbRed
Else
Me.SeuCampoNumeroTelefone.BackColor = vbWhite
End If
End Sub

Tentei fazer desta forma. Funciona após inclusão, tá quase perfeito, não estou conseguindo o aviso de mudança de cor logo após o campo perder o foco. De uma olhada.
Ele inclui. Depois ao navegar muda a cor, tem como ser ao mudar de campo (perder o foco). Sei que tá meio arcaico.

Private Sub Form_BeforeInsert(Cancel As Integer)
'Private Sub BotaoChamada_Click()
If Me.NewRecord Then
Me.TELEFONE.BackColor = vbWhite
ElseIf DCount("*", "Doacoes", "Telefone =" & Me.TELEFONE & "") > 1 Then
MsgBox "Telefone já Cadastrado !!!", vbExclamation, "Informação"
Me.TELEFONE.BackColor = vbRed
Else
Me.TELEFONE.BackColor = vbWhite
End If
'End Sub
End Sub


Private Sub Form_Current()
If Me.NewRecord Then
Me.TELEFONE.BackColor = vbWhite
ElseIf DCount("*", "Doacoes", "Telefone =" & Me.TELEFONE & "") > 1 Then


Me.TELEFONE.BackColor = vbRed
Else
Me.TELEFONE.BackColor = vbWhite
End If
End Sub



Private Sub TELEFONE_BeforeUpdate(Cancel As Integer)
Call Form_Current
End Sub

Private Sub TELEFONE_LostFocus()
Call Form_Current
End Sub

Grato, pela ajuda até o momento, esse banco tá muito bagunçado, vou ter que reanalizar e estruturar os cadastros.

Agradeço pelo ajuda, mesmo que não tenha resolvido plenamente. Tópico resolvido[b]