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]Aparecendo erro de critério

    Compartilhe

    Samy_Souza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 5
    Registrado : 28/07/2016

    [Resolvido]Aparecendo erro de critério

    Mensagem  Samy_Souza em Qua 03 Ago 2016, 17:55

    Boa tarde,

    Fiz no formulario duas caixas de textos.

    E um botão consulta

    O meu objetivo é que quando pegasse a caixa de texto Re (número de matricula do funcionario) aparecesse o nome do funcionário.


    Private Sub Consultar_Click()

    Me.Nomefato.Value = DLookup("[nome]", "Funcionario", "[re]=" & Me.Refato)
    Me.Nomefato.Requery
    End Sub

    Esta dando erro
    Tipo de dados incopativeis com a expressão de critério.


    Na tabela funcionario re está como texto curto e nome também.

    O que eu devo fazer?


    Última edição por Samy_Souza em Qui 04 Ago 2016, 12:56, editado 1 vez(es)
    avatar
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    Registrado : 30/07/2012

    Re: [Resolvido]Aparecendo erro de critério

    Mensagem  wellingtoneo em Qui 04 Ago 2016, 01:16

    Verifica seu campo Re. Veja se é texto, em caso afirmativo tente o código a baixo:

    Código:

    Me.Nomefato = DLookup("[nome]", "Funcionario", "[re]='" & Me.Refato & "'")

    Samy_Souza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 5
    Registrado : 28/07/2016

    Re: [Resolvido]Aparecendo erro de critério

    Mensagem  Samy_Souza em Qui 04 Ago 2016, 12:54

    Muito obrigada pela ajuda deu certo!!!! cheers Very Happy

      Data/hora atual: Qua 23 Ago 2017, 03:14