[Resolvido]Erro em tempo de execução "3464" - Tipo de dados incompatível na expressão de critério

Boa tarde

Em uma tabela de cadastros tenho os campos pacNome (nome) e pacData (data de nascimento), na tentiva de evitar duplicação de cadastros, vi aqui no fórum um código disponibilizado pelo amigo JPaulo......, quando incluo um registro que tem o nome duplicado e a data de nascimento, o Access retorna o erro 3464.....

o campo pacnome é do tipo texto e o campo pacData tipo data......

O código que está sendo usado é este:

Public Sub DetetaDuplicidade()
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset
Dim strCriteria As String

strCriteria = "([pacNome] = '" & Me.pacNome & "') and ([pacData] = '" & Me.pacData & "')"

Set rst = Me.RecordsetClone
rst.FindFirst strCriteria

If rst.NoMatch Then
Exit Sub
Else
If MsgBox("Existe paciente cadastrado com este Nome!" & Chr(10) + Chr(13) & "Deseja encontra-lo?", vbYesNo + vbInformation, "Atenção") = vbYes Then
Cancel = True
Me.Undo
Me.Bookmark = rst.Bookmark
End If
End If
Set rst = Nothing
End Sub

Alguem tem alguma dica da melhor forma para que eu possa acertar o tipo de dados, pois estou tratando uma string e um campo data, para poder validar isto?

Att. Vinicius

Se a data for mesmo tipo data, tente alterar assim:

strCriteria = "([pacNome] = '" & Me.pacNome & "') and ([pacData] = #" & Me.pacData & "#")"

Muito obrigado Amigo,

Desculpe tomar seu tempo com falta de conhecimento.....

Att. Vinicius

Bom que resolveu. Grato pelo retorno.

Bom dia meus amigos,

Estou com a mesma dúvida, porém no meu caso é referente para declaração de campo com valor numérico.
Como ficaria?

no exemplo do colega foi resolvido para declaração de campo com valor Data.

Aguardo retorno,

Um abraço,

Raphael Barreto

Bom dia...

RaphaelBarreto, seja bem vindo ao fórum.

Observe as regras vigentes no fórum. O tópico aqui já está resolvido.

Então, nova duvida...novo tópico. Outros colegas podem estar passando pela mesma dificuldade que você está a enfrentar.

Abra um tópico com a tua duvida.


Grato pela compreensão.

RaphaelBarreto, é só retirar as #. Elas são usadas para campo Data. Se fosse campo String, substituiria elas por aspas simples mas sendo numérico, apenas retire elas.