MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Tipos Incompativeis

    Compartilhe

    Murilo Rosa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 04/06/2011

    Tipos Incompativeis

    Mensagem  Murilo Rosa em 15/8/2012, 20:12

    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.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Tipos Incompativeis

    Mensagem  good guy em 15/8/2012, 20:23

    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


    Murilo Rosa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 04/06/2011

    Re: [Resolvido]Tipos Incompativeis

    Mensagem  Murilo Rosa em 15/8/2012, 21:43

    Meu caro good guy,

    Muito obrigado pela ajuda. Funcionou perfeitamente.

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

    Muito Grato.



    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Tipos Incompativeis

    Mensagem  good guy em 15/8/2012, 22:00

    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.Cool

      Data/hora atual: 26/9/2018, 09:48