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

    Buscar em outra tabela intervalo de dados.

    Compartilhe

    jowfs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 16/04/2012

    Buscar em outra tabela intervalo de dados.

    Mensagem  jowfs em Sex 06 Jan 2017, 10:20

    Pessoal, bom dia!

    Preciso de ajuda com a seguinte situação:

    Tenho uma tabela onde constam vencimentos por data de corte, por exemplo, Faturas emitidas entre 01/01/2017 e 04/01/2017 devem ser programadas para vencer em 25/01/2017, faturas emitidas entre 05/01/2017 e 11/01/2017 devem ser programadas para vencer em 01/02/2017:

    [CorteData Inicial] [CorteData Final] [CorteVencimento]
    01/01/2017 04/01/2017 25/01/2017
    05/01/2017 11/01/2017 01/02/2017
    12/01/2017 18/01/2017 08/02/2017
    19/01/2017 25/01/2017 15/02/2017
    26/01/2017 26/01/2017 22/02/2017

    E tenho um formulário onde serão criadas as faturas. Preciso que ao emitir a fatura, seja feita uma pesquisa na tabela de cortes e já seja fixado o vencimento correspondente. Por exemplo, se a fatura for criada em 03/01/2017, o vencimento deverá ser automaticamente preenchido com o vencimento 25/01/2017.
    Acho que a função Dlookup seria a mais indicada, mas não tenho experiência na utilização da função para pesquisa num intervalo de dados. Podem me ajudar?

    Me.FaturamentoFaturaVencimento = DLookup("[CorteVencimento]", "TabCorte", "(Entre[CorteDataInicio]e[CorteDataFim])=[FaturamentoFaturaVencimento]")

    Na verdade eu preciso saber como monto essa parte: (Entre[CorteDataInicio]e[CorteDataFim])

    Desde já agradeço!

    jowfs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 16/04/2012

    Re: Buscar em outra tabela intervalo de dados.

    Mensagem  jowfs em Qui 19 Jan 2017, 17:01

    Alguém? Crying or Very sad

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 134
    Registrado : 16/11/2012

    Re: Buscar em outra tabela intervalo de dados.

    Mensagem  ilvecchio em Qui 19 Jan 2017, 18:40

    Buenas!

    Acho que você precisa carregar para o formulário (ao abrir) a data de vencimento( [CorteVencimento]) correspondente à maior data (máx([CorteData Final]) menor ou igual a data atual.
    Faça uma consulta SQL no formulário para obter a informação e depois coloque-a num campo (invisível) do formulário. Ou, se preferir, numa variável.
    Ao gerar uma fatura, o vencimento seria carregado a partir do campo, ou da variável.

    jowfs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 16/04/2012

    Re: Buscar em outra tabela intervalo de dados.

    Mensagem  jowfs em Sex 10 Fev 2017, 14:18

    Olá Ivecchio, boa tarde!

    Em primeiro lugar, muito obrigado por se dispor a me ajudar neste caso e em segundo, peço desculpas pela demora ao te responder.
    Na verdade tenho outras funções na empresa e só consigo mexer nesse projeto em meu tempo livre.
    Bem... Eu até entendi o que você propôs e acho mesmo que pode funcionar.
    A minha dúvida é: Como eu desenvolvo este comando no VBA?
    Você consegue me enviar um script para este caso?

    Valeu!

      Data/hora atual: Seg 20 Nov 2017, 05:55