[Resolvido]Evitar registro duplicado

Preciso evitar o inclusão de registros já existentes quando ele tiver o mesmo nome, RG, e Estado da Federação.
Somente pelo campo Nome eu consegui através do exemplo do mestre Avelino Sampaio, conforme segue:

Private Sub Nome_BeforeUpdate(Cancel As Integer)
'Autor Avelino Sampaio
If DCount("Nome", "tbldados", "Nome = '" & Me!Nome & "'") > 0 Then
   MsgBox "Pessoa já cadastrada.", vbExclamation, "Aviso"
   Cancel = True
   Me.Undo
   End If
End Sub

Porém, ao tentar implementá-lo com os três campos, não estou conseguindo:
Segue o que fiz:

Private Sub RG_Estado_BeforeUpdate(Cancel As Integer)
If DCount("Nome", "tblDados", "Nome = '" & Me!Nome & "'" And "RG", "tblDados", "RG= '" & Me!RG & "'" And "RG_Estado", "tblDados", "RG_Estado= '" & Me!RG_Estado & "'") > 0 Then
   MsgBox "Pessoa já cadastrada.", vbExclamation, "Aviso"
   Cancel = True
   Me.Undo
   End If
End Sub
Mensagem de erro:
" />

Já tentei com parenteses em cada expressão entre os "And" e também não deu certo.
Alguma idéia?

Boa tarde,

Você está usando errado o critério do DCount(). Substitua por:

Código:

If DCount("Nome", "tblDados", "Nome = '" & Me!Nome & "'" and RG= '" & Me!RG & "'" And RG_Estado= '" & Me!RG_Estado & "'") > 0 Then

Abraço.

Novo erro:

"Tipos incompatíveis"

Boa tarde,

No criterio do DCount() você espeficou que os tres campos na tabela são do tipo texto. Verifique se é isso mesmo e segue abaixo uma breve explicação de como especificar no criterio.

Quando for campo do tipo TEXTO, utiliza-se aspas simples (' ') entre o nome do campo/variável. Ex.: supondo que o campo Nome seja do tipo texto, vai colocar assim no criterio Nome = '" & me.Nome & "'

Quando for campo do tipo NUMÉRICO, não se utiliza as aspas simples, somente a dupla normal. Ex.: supondo que o campo RG seja do tipo numérico (e nao de texto como no criterio), você vai escrever RG = " & me.RG & " (aplica igual para todos os campos desse tipo).

Se for do tipo DATA, ao inves de aspas simples, utiliza-se a tralha (#). Ex: data_inicio = #" & me.txtDataInicio & "#

Abraço.

CassioFabre,
Já tentei várias combinações e nada!!!!
O campo Nome é texto;
O campo RG é número;
O campo RG_Estado é uma ComboBox com as siglas de todos os estados da federação.

Bom dia,

Tente:

Código:

If DCount("Nome", "tblDados", "Nome = '" & Me!Nome & "' and RG= " & Me!RG & " And RG_Estado= '" & Me!RG_Estado & "'") > 0 Then

Abraço.

CassioFabre,
Já havia tentado assim também.
Na verdade, tentei de todas as formas já, acho!!!! e nada ainda.

Boa tarde,

Mande um modelo reduzido do bd apenas com o formulário e as tabelas relacionadas.

Abraço.

CassioFabre,

Agradeço muito sua ajuda.

Consegui fazendo:

Private Sub RG_Estado_BeforeUpdate(Cancel As Integer)
If DCount("Nome", "tblDados", "Nome = '" & Me!Nome & "' and RG= '" & Me!RG & "' And RG_Estado= '" & Me!RG_Estado & "'") > 0 Then
MsgBox "Pessoa já cadastrada.", vbExclamation, "Aviso"
Cancel = True
Me.Undo
End If
End Sub

Mas isso, somente após seu exemplo.

abraços

Boa tarde,

Então todos os tres campos na tabela eram do tipo texto, e não numérico como dito anteriormente.

Mas que bom que conseguiu, agradecemos o retorno.

Abraço.