[Resolvido]Aviso de Duplicidade

Amigos bom dia! Tenho um form não acoplado onde faço o cadastramento de clientes, nele uso no botão ao clicar, exemplo:


Dim MBD As Database
Dim MC0 As Recordset
Dim Cont As Integer


Set MBD = CurrentDb()
Set MC0 = MBD.OpenRecordset("Clientes") 'abre tbl Clientes

MC0.AddNew

MC0![Cpf] = Me.Cpf
MC0![Cliente] = Me.Cliente

MC0.Update
MC0.Close
MBD.Close

Na Tabela Clientes o campo Cpf está como indexado = Sim (Duplicação não autorizada) Access2007.

Está perfeito para mim, mas gostaria que quando fosse cliente em duplicidade, o access me desse o retorno. Do jeito que está ela não duplica, porém não dá mensagem nenhuma. Alguma dica?

Abraços.

Olá!

Aqui tava normal.

Coloquei o tratador de erro só para ficar mais personalizado.

Olha aí.

Perfeito, era isso mesmo que eu precisava. Muito obrigado!!!

Obrigado mesmo pela atenção.

Valeu brother, tamu junto! Esse site é excelente todos nós cooperando uns com os outros.
Fico satisfeito em tê-lo ajudado.

Amigo,

qualquer coisa tente esse código.

If DCount("SeuCampoCPF", "SuaTabela", "SeuCampoCPF'" & Me!SeuCampoCPF & "'") >= 1 Then 'Verifica se o CPF já se encontra cadastrado.
MsgBox "CPF já cadastrado no sistema.", vbInformation, "ATENÇÃO!"
Cancel = True
Exit Sub
End If

no evento antes de atualizar.