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]Ferias da empresa numa consulta

    jfrc1994
    avatar
    jfrc1994
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 22
    Registrado : 25/10/2016
    • Mensagem nº1

    [Resolvido]Ferias da empresa numa consulta Empty [Resolvido]Ferias da empresa numa consulta

    Mensagem  jfrc1994 22/11/2016, 11:04

    Bom tarde pessoal,
    Tenho uma BD em que ja me conta os feriados e os fins-de-semana, so que tentei adicionar os dias de ferias e para os meses em que os dias de ferias se dividem, por exemplo dia 2 e dia 9 de Dezembro ele so considera o primeiro que tenho na consulta. Fica aqui o código que tenho para as ferias
    Código:

     Set vrDB = CurrentDb()
        Set rs = vrDB.OpenRecordset("select * from FeriasEmpresa")
        DI = DLookup("[datainicio]", "FeriasEmpresa")
        DF = DLookup("[datafim]", "FeriasEmpresa")
        If (dtData >= DI And dtData <= DF) Then Feriado = True
        DI = DateAdd("d", 1, DI)
    • Ir para o topo
    Alexandre Neves
    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
    • Mensagem nº2

    [Resolvido]Ferias da empresa numa consulta Empty Re: [Resolvido]Ferias da empresa numa consulta

    Mensagem  Alexandre Neves 26/11/2016, 21:07

    Boa noite,
    Marcou resolvido por engano?
    Se sim, pressione o botão resolvido e ficará a dúvida em aberto


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    • Ir para o topo
      Data/hora atual: 22/11/2024, 06:40