MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Problema com DLookup

    avatar
    PCAMARAL
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 16/02/2012

    [Resolvido]Problema com DLookup Empty Problema com DLookup

    Mensagem  PCAMARAL 18/7/2012, 13:08

    Bom dia Galera,

    Estou começando com VBA e estou com um problema que está me quebrando a cabeça. Estou usando a função DLookup para buscar a data do feriado na tabela FERIADOS caso ela seja igual a data de vencimento do formulário e estou usando o código abaixo:

    F = DLookup("[DtFeriado]", "FERIADOS", "[DtFeriado] = #" & Me.Vencimento & "#")

    O que acontece é que tenho nos registros da tabela FERIADOS um feriado com data 09/07/12 e outro com data 07/09/12. Quando a data de vencimento no fromulário é 09/07/12 a função teima em me trazer como resultado a data 07/09/12. Alguma sugestão para a função retornar somente se a data for exatamente igual a data do formulário?

    Abs
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves 18/7/2012, 17:12

    Boa tarde, amaral, e bem-vindo ao fórum
    Nomeie o controlo de forma convencionada: TxtVencimento
    Utilize também a função Format:
    F = DLookup("[DtFeriado]", "FERIADOS", "[DtFeriado] = #" & Format(Me.Vencimento,"dd-mm-yyyy") & "#")
    ou
    F = DLookup("[DtFeriado]", "FERIADOS", "[DtFeriado] = #" & Format(Me.Vencimento,"mm-dd-yyyy") & "#")
    avatar
    PCAMARAL
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 16/02/2012

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

    Mensagem  PCAMARAL 18/7/2012, 18:57

    Valeu Alexandre, me quebrou um galhão. O comando ficou assim:

    Nome do Controle: TxtVencimento

    F = DLookup("[DtFeriado]", "FERIADOS", "[DtFeriado] = #" & Format(Me.Vencimento, "mm/dd/yyyy") & "#")

    Abs
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves 18/7/2012, 19:40

    Tema resolvido, botão Resolvido premido.
    Agora, marco eu

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 11:35