Não Permitir Gravar Cpf duplicado

Olá amigos, eu novamente pedindo socorro, kkk ...
tenho o seguinte código abaixo e não que que grave o mesmo cpf que já existe no banco de dados.
Alguma idéia pessoal?

Private Sub btnGravar_Click()

If Me.txtNome = Empty Then
MsgBox "Digite O Nome Do Cliente.", vbExclamation, "Atenção"
Me.txtNome.SetFocus
Exit Sub
End If

If Inc = True Then
rsOrçDetum.AddNew
Else

rsOrçGradum.Close
SqlOrçGradum = "DELETE FROM tbOrçamento_Grade1 WHERE Nro_Orçamento = " & NroOrçum 'Apaga os registros antigos
rsOrçGradum.Open SqlOrçGradum, cn, adOpenKeyset, adLockOptimistic 'pra incluir os dados atualizados
SqlOrçGradum = "SELECT * FROM tbOrçamento_Grade1"
rsOrçGradum.Open SqlOrçGradum, cn, adOpenKeyset, adLockOptimistic

End If

rsOrçDetum(1) = Date
rsOrçDetum(2) = Me.txtNome
rsOrçDetum(3) = Me.txtObservaçoes
rsOrçDetum(4) = Me.txtTelefone
rsOrçDetum(5) = Me.txt_contato
rsOrçDetum(6) = Me.txt_email
rsOrçDetum(7) = Me.txt_endereço
rsOrçDetum( = Me.txt_cnpj_cpf
rsOrçDetum(9) = Me.txt_ie
rsOrçDetum(10) = Me.TXT_NUMERO
rsOrçDetum(11) = Me.txt_bairro
rsOrçDetum(12) = Me.txt_cep
rsOrçDetum(13) = Me.txt_cidade
rsOrçDetum(14) = Me.txt_uf

rsOrçDetum.Update

For i = 1 To Me.lstvOrç.ListItems.Count
With Me.lstvOrç
rsOrçGradum.AddNew
rsOrçGradum(0) = NroOrçum
rsOrçGradum(1) = .ListItems(i)
rsOrçGradum(2) = .ListItems(i).ListSubItems(1)

rsOrçGradum.Update
End With
Next i
If Inc = True Then
rsNroum.AddNew
rsNroum(0) = NroOrçum
rsNroum.Update
End If

LimpaControles
rsNroum.MoveLast
NroOrçum = rsNroum(0).Value + 1
Me.stbOrç.Panels(1) = "Nro Orç.: " & NroOrçum
iCancel = 0
MsgBox "Registro Salvo Com Sucesso.", vbInformation, "Clientes"
Me.btnLer.Enabled = True

End Sub

Esse assunto já está mais que "batido" aqui no fórum. Por gentileza, realize uma busca que encontrará diversos exemplos.

Veja como se buscar no fórum:

https://www.maximoaccess.com/t1115-busca-no-forum-search

Bom dia marcelo, já rodei quase todo fórum e sites buscando o que preciso. Tem muitas opções porém sou um pouco leigo e não achei algum para adaptar ao que preciso.

meus formulários e em excel com banco no access.
Se poder ajudar-me ficaria grato amigo..

Deus abençoe.

Caros amigos, tentei esse código mas esta dando erro..
onde estou errando...alguém me ajude por favor!!!

erro em tempo de execução '3705'
operação não permitida quando o objeto está aberto.




Private Sub txt_cnpj_cpf_afterupdate()

'On Error Resume Next

rsOrçDetum.Open "SELECT * FROM tbOrç_Detalhe1", Db, 15, 15

Do Until rsOrçDetum.EOF
If rsOrçDetum( = "" & Me.txt_cnpj_cpf.Text Then

MsgBox "Este " & Me.txt_cnpj_cpf.Text & " É Existente!", vbInformation, "Aviso!"

rsOrçDetum.Close

txt_cnpj_cpf = Empty
Exit Sub
End If

rsOrçDetum.MoveNext
Loop
rsOrçDetum.Close

End Sub

Coloque o código abaixo, no evento após atualizar do campo de CPF... na minha tabela, o CPF é Tipo texto.

Private Sub CGC_CPF_AfterUpdate()

Dim NomeHospede
Dim CPF

NomeHospede = DLookup("Nome", "TblHospede", "CGC_CPF ='" & Me!CGC_CPF & "'")
CPF = DLookup("CGC_CPF", "TblHospede", "CGC_CPF ='" & Me!CGC_CPF & "'")

Me.RecordsetClone.FindFirst "CGC_CPF = '" & Me!CGC_CPF & "'"
If Not Me.RecordsetClone.NoMatch Then

MsgBox ("Este Hóspede já está Cadastrado:" & Chr(10) & Chr(13) & Chr(10) & Chr(13) & NomeHospede), vbInformation, "Controle Hoteleiro"

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Me.Bookmark = Me.RecordsetClone.Bookmark


End If

End Sub


Qualquer coisa, entre em contato: 62 99138-0784

Obrigado amigos....

Veja no link abaixo, a maneira correta de dar o tópico por resolvido
https://www.maximoaccess.com/t860-resolucao-de-topicos#5263

Aguardamos sua ação...

bom dia ...

lá na estrutura da tabela, defina que o campo não pode ter valores duplicados