[Resolvido]Inserir registros sem repetições direto em outra tabela

Prezados Colaboradores, tudo bem!

No projeto que estou desenvolvendo tenho um formulário (frm_Cad_Imóveis) que alimenta uma tabela (tab_Cad_Imóvel), com um botão que ao clicar insere diretamente alguns registros desta tabela em uma outra tabela (tab_Cad_Titular_DeDireito).

No botão inseri o seguinte código:

CurrentDb.Execute "INSERT INTO tab_Cad_Titular_DeDireito _ (ID_Cód_DoImóvel,ID_Cód_DoCliente,NomeCadastrado,CPF,Particip_DeDireito,Endereço_1,Endereço_2)" _
  & "VALUES('" & Cód_DoImóvel & "','" & Me.ID_Cadastrado.Column(0) & "','" & Me.ID_Cadastrado.Column(1) & "','" & Me.ID_Cadastrado.Column(3) & _ "','" & Particip_DeDireito & "','" & Imóvel_Endereço_1 & "','" & Imóvel_Endereço_2 & "')"

Este código está funcionando perfeitamente. Quando acionado insere os respectivos registros na tabela especificada.

Ocorre que o objetivo é que os registros sejam inseridos de forma que não haja repetições, isto é, se o “ID_Cód_DoImóvel” e “CPF” já estiverem cadastrados o registro em andamento seja cancelado (e seja emitida uma mensagem), o que não está sendo o caso. Da forma que está, sendo repetido a ação com determinados registros estes são inseridos repetidamente.

O objetivo que procuro é que esta verificação seja feita de forma associada com o “ID_Cód_DoImóvel” e “CPF”, isto por que, desta forma, o mesmo “CPF” poderá está associado a outros Imóveis (ID_Cód_DoImpovel) e não só a um.

Esta é minha dificuldade. Se possível, gostaria de um auxílio.

Desde já, obrigado pela oportunidade.

Código:

Function verificarId()
 
Dim verifica As Integer
verifica = DLookup("ID_Cód_DoImóvel", "Tabela1", "   txtId = " & Forms!Formulário1!txtId)

If Me.txtId = verifica Then
MsgBox " OPA!!! Esse código já está cadastrado"
    Me.txtId = ""
    Me.txtCpf.SetFocus
    Me.txtId.SetFocus
    End If
End Function


Código:

Function verificaCPF()
Dim verifica
verifica = DLookup("CPF", "Tabela1", "  txtCpf = " & Forms!Formulário1!txtCpf)
If Me.txtCpf = verifica Then
MsgBox " OPA!!! Esse CPF já está cadastrado"
    Me.txtId = ""
    Me.txtCpf.SetFocus

    End If
End Function

Código:

Private Sub txtId_AfterUpdate()
verificarId
End Sub


Código:

Private Sub txtId_AfterUpdate()
verificaCPF
End Sub

Obrigado Crysostomo.

Desculpe-me pela demora em responder. Infelizmente o tempo tem andado curto para dedicação ao aplicativo que construo, mas funcionou perfeitamente.

Mais uma vez, Muito Obrigado!!!

Tudo de bom ai!!!!

Sei como é a correria.
Vlw pelo retorno.
Sucesso!!