MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Tipo de dados incompativel com dados de critério.

    Compartilhe

    marciospoli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 30/12/2013

    Tipo de dados incompativel com dados de critério.

    Mensagem  marciospoli em Seg 30 Dez 2013, 20:01


    Erro em tempo de execução 3464

    Tipo de dados incompativel com dados de critério.

    Pretendo realizar uma consulta onde a pessoa digite o número do processo que tem 18 caracteres aproximadamente para isso usei o campo texto porém está dando a mensagem a cima. utilizando o tipo inteiro funciona perfeita mente mas com texto da problema alguém ajuda?

    Private Sub Num_Processo_Acomp_LostFocus()

    Dim rs As DAO.Recordset

    Dim Num_Processo_Acomp As String



    Set rs = Me.RecordsetClone
    Num_Processo_Acomp = Me![Num_Processo_Acomp]
    rs.FindFirst "[Num_Processo_Acomp]=" & Num_Processo_Acomp


    If rs.NoMatch Then
    Erro em tempo de execução 3464
    Tipo de dados incompativel com a expressão do cretério


    DoCmd.RunCommand acCmdUndo
    DoCmd.GoToRecord , , acNewRec

    Me![Num_Processo_Acomp] = Num_Processo_Acomp
    Me![Num_Processo_Acomp].SetFocus

    Else

    If Me.Dirty Then
    Me.Undo
    End If

    'DoCmd.RunCommand acCmdUndo
    Me.Bookmark = rs.Bookmark


    End If
    End Sub

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: Tipo de dados incompativel com dados de critério.

    Mensagem  Avelino Sampaio em Seg 30 Dez 2013, 20:34

    Seja benvindo!

    Experimente utilizando a função VAL(). Exemplo:

    ...
    rs.FindFirst "[Num_Processo_Acomp]=" & val(Me![Num_Processo_Acomp])
    ...

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    marciospoli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 30/12/2013

    Erro em tempo de execução 3464

    Mensagem  marciospoli em Ter 31 Dez 2013, 10:15

    Olá agradeço a ajuda. mas infelizmente não deu certo a mensagem permanece. na mesma linha em que fiz a alteração. Em anexo formato zip para quem quiser ver o cadastro o primeiro campo ponho o número para consulta dai ele da pau. Alguém pode ajudar?
    Anexos
    darfsold.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (165 Kb) Baixado 3 vez(es)

      Data/hora atual: Seg 05 Dez 2016, 04:24