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]Duvida com DLookup

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4153
    Registrado : 06/11/2009

    [Resolvido]Duvida com DLookup Empty [Resolvido]Duvida com DLookup

    Mensagem  Assis em Sex 25 Out 2019, 10:15

    Bom dia

    Aonde estou a errar

    Código:
    If Not IsNull(DLookup("Opera", "Encomenda", "Opera = '" & Me.Opera & "' And encomenda = " & Encomenda & "")) Then


    Campo "Opera" é texto

    Campo "Encomenda" é numero


    Obrigado


    Última edição por Assis em Sex 25 Out 2019, 11:54, editado 1 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 189
    Registrado : 26/11/2013

    [Resolvido]Duvida com DLookup Empty Re: [Resolvido]Duvida com DLookup

    Mensagem  delsonk em Sex 25 Out 2019, 10:56

    Bom dia.

    Veja a explicação do JPaulo, aqui no Fórum:

    Complementando aqui para não se perder a noção da utilização da função DLookup;


    Para valores numericos: (sem aspas)


           DLookup("Campo" , "Tabela" , "CampoFiltro = 123")


    Para Texto: (aspas simples)


           DLookup("Campo" , "Tabela" , "CampoFiltro= 'abcd'")


    Para datas: (cardinal)


           DLookup("Campo" , "Tabela" , "CampoFiltro= #01-08-2012#")





    Referencia a um Controle:

    Para valores numéricos: (sem aspas)


           DLookup("Campo", "Tabela", "CampoFiltro = " & forms!NomeDoFormulario!NomeDoCampo)


    Para Texto: (aspas simples)


           DLookup("Campo", "Tabela", "CampoFiltro = '" & forms!NomeDoFormulario!NomeDoCampo & "'")


    Para datas:


           DLookup("Campo", "Tabela", "CampoFiltro = #" & forms!NomeDoFormulario!NomeDoCampo & "#")


    Abraço, Delson
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4153
    Registrado : 06/11/2009

    [Resolvido]Duvida com DLookup Empty Re: [Resolvido]Duvida com DLookup

    Mensagem  Assis em Sex 25 Out 2019, 11:08

    Obrigado delsonk

    A minha duvida é que são dois campos a comparar.


    .................................................................................
    *** Só sei que nada sei ***
    leoni_dias
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 14/08/2011

    [Resolvido]Duvida com DLookup Empty Re: [Resolvido]Duvida com DLookup

    Mensagem  leoni_dias em Sex 25 Out 2019, 15:02

    Boa tarde, Assis.

    Não faltou no seu código apenas colocar o Me. no campo Encomenda (Me.Encomenda) pra diferenciar o campo da tabela/consulta do campo do form?
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 334
    Registrado : 25/02/2016

    [Resolvido]Duvida com DLookup Empty Re: [Resolvido]Duvida com DLookup

    Mensagem  FranklinJSP em Sex 25 Out 2019, 15:04

    Bom día Assis

    Aparentemente, parece que está certo. Recebe algum tipo de mensagem de erro?

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6623
    Registrado : 15/03/2013

    [Resolvido]Duvida com DLookup Empty Re: [Resolvido]Duvida com DLookup

    Mensagem  ahteixeira em Sex 25 Out 2019, 16:28

    Olá a todos,

    Assis, ao compilar deve dar erro, parece que falta o IF antes dos Isnull..

    Teste se é isso.

    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4153
    Registrado : 06/11/2009

    [Resolvido]Duvida com DLookup Empty Re: [Resolvido]Duvida com DLookup

    Mensagem  Assis em Sex 25 Out 2019, 18:10

    Franklin

    Funciona, mas :

    Se tirar o "On Error Resume Next"


    Teixeira
    O If está lá

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 189
    Registrado : 26/11/2013

    [Resolvido]Duvida com DLookup Empty Re: [Resolvido]Duvida com DLookup

    Mensagem  delsonk em Sex 25 Out 2019, 19:33

    Boa tarde!

    Tente assim: If Not IsNull(DLookup("Opera", "Encomenda", "Opera = '" & Me!Opera & "' And encomenda = " & me!Encomenda & "")) Then

    Boa sorte!

    Delson
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4153
    Registrado : 06/11/2009

    [Resolvido]Duvida com DLookup Empty Re: [Resolvido]Duvida com DLookup

    Mensagem  Assis em Sex 25 Out 2019, 20:36

    Delson

    Assim consigo remover o " On Error Resume Next ", e funciona

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 189
    Registrado : 26/11/2013

    [Resolvido]Duvida com DLookup Empty Re: [Resolvido]Duvida com DLookup

    Mensagem  delsonk em Sex 25 Out 2019, 20:49

    Obrigado pelo retorno!

    Grande abraço!

      Data/hora atual: Seg 25 Maio 2020, 05:44