[Resolvido]Duplicidade em campo de telefone mas são tres campos

boa tarde sou novo em access
to criando um formulário para cadastra telefones e fornecedores o problema tenho os campos tel1 tel2 e tel3 .queria que ao digitar ele buscasse duplicidade ne tabela nos e campos,  se o  consegui fazer compara um campo


Private Sub tel1_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.tel1.Value
stLinkCriteria = "tel1= '" & Busca & "'"
If DCount("tel1", "Frm_Telefone", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção o " _
& Busca & " registo já existe." _
& vbCr & vbCr & "Mostrar o Registo.", vbInformation _
, "Duplicado"
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
End Sub

queria que ao digitar el ja executasse essa função

Seja bem Vindo ao Forum!

Faça assim:

No evento apos atualizar do Tel1 Coloque:

Código:

Private Sub Tel1_AfterUpdate()
'-------------------------------------------------------------'
'                     Criado por Fabio Paes                   '
'                                                             '
'                 Em 22/01/2017 para o MaximoAccess           '
'                                                             '
'-------------------------------------------------------------'
Dim F As String
Dim rs As Recordset
    
    F = "Tel1 = '" & Me.Tel1 & "' OR Tel2 = '" & Me.Tel1 & "' OR Tel3 = '" & Me.Tel1 & "'" 'Controi o Filtro no Campo Login
    Set rs = Me.RecordsetClone 'Clona a Fonte de Dados do Subformulario (SFrm_Permissao) para realizar a pesquisa
    rs.FindFirst F 'Realiza a Pesquisa com FindFirst
    If Not rs.EOF Then
    MsgBox "Tel Ja cadastrado...!"
    Me.Undo
    Me.Bookmark = rs.Bookmark 'Move o Subformulario para o Registro filtrado, se localizar!
    End If
End Sub


Agora no Evento apos atualizar do Tel2 Repita o código, mudando apenas o Me.Tel1...

Repita para o Tele3

Veja que comparamos o mesmo valor nos tres campos, Tel1, Tel2 e Tel3.

Olá Fernando,
Os utilizadores do forum merecem e agradecem o retorno.
Como ficou a situação?
Abraço