Registros duplicado formulário access

Tenho um formulário de cadastro de clientes, onde, os registros iniciais são, celular 1 e celular 2.

Gostaria de criar uma validação pra impedir registros duplicados, uma maneira que no formulário tenha a checagem nos dois campos. De maneira que, ao cadastrar um celular ele faça a busca no campo celular 1 e celular 2 e impeça o cadastro se já estiver cadastrado no banco de dados.

Tentei o código abaixo:

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


Funcionou, porém, fez a checagem apenas no input celular1 e preciso que faça a checagem nos celular 1 e celular 2.

Espero ter sido claro

Olá Anderson,

Para ficar mais rápido e fácil, compartilhe uma cópia do seu banco de dados.

Valeu

Att,

Alexandre Fim

Grande Alexandre, obrigado pela ajuda.

Estou compartilhando um modelinho do banco, o meu mesmo é impossível enviar em função do tamanho.

https://mega.nz/folder/VrEj0JRA#vw0fd66LBMAlWA6iLGaOVw

desde já, obrigado pela ajuda

Anderson,

elaborei um pequeno exemplo onde existem validações de preenchimentos dos campos, validação de celular já cadastrado e etc.
Ficou assum:


NOTA: Verifique os comentários no código para voce entender o que cada rotina realiza.

Segue versão.

Espero ter ajudado

Att,

Alex Fim