[Resolvido]Tipos Incompativeis

Galera,

Estou tentando fazer uma consulta com o Dcount atráves do criterio de CPF e CódigoSelecao

CPF = Texto
CodSelecao = Numerico

If DCount("*", "TbHistoricoSelecao", "CPF ='" & CPF & "'" And "CodNomeSelecao =" & Me!CodSelecao & "") > 0 Then

Já tentie mudar mais nada, aparece Tipos Incompatíveis.

Olá Murilo,

A mensagem de erro já dizendo tudo. Verifique os tipos de dados que você está trabalhando. Se CodSelecao for realmente numerico, faça assim para rodar o código

CPF = Texto
CodSelecao = Numerico

If CInt(DCount("*", "TbHistoricoSelecao", "CPF ='" & CPF & "' And "CodNomeSelecao =" & Me!CodSelecao & "") > 0) Then

Ou

If CStr(DCount("*", "TbHistoricoSelecao", "CPF ='" & CPF & "' And "CodNomeSelecao =" & Me!CodSelecao & "") > 0) Then

Meu caro good guy,

Muito obrigado pela ajuda. Funcionou perfeitamente.

a Cint pega oresultado como Inteiro e a Cstr como texto?

Muito Grato.

Olá Murilo,

Geralmente quando lido com Tipos Incompatíveis, faço alguns testes modificando o tipo de dados na tabela, um campo do tipo número mudo para texto e a variável para String. O que eu quero é ver o código funcionar. Como você já deu o tópico como resolvido. Estava tentando por outros meios, já que não sei bem como você está trabalhando o seu código aí. Se for com formulário:

Tente assim:

Private Sub cmdCalcular_Click()
Dim CPF As String
Dim CodSelecao As Integer
Dim info As Integer
Dim teste As Boolean

CPF = CPF
CodSelecao = CodNomeSelecao

info = DCount("Nome", "TbHistoricoSelecao", "[CPF] = '" & CPF & "' And [CodNomeSelecao] = " & CodSelecao)

teste = CBool(info >= 0)

If teste = True Then
MsgBox "OK!!!"
Else
Exit Sub
End If
End Sub

É só um palpite.

"O temor do Senhor é o princípio do conhecimento..."(Sl 111.10); Disse Jesus: "Eu sou a luz do mundo. Quem me segue não andará em trevas,..."(Jo 8.12); "Provai e vede que o Senhor é bom..."(Sl 34.