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


4 participantes

    [Resolvido]Mostras todos os dias entre duas datas

    avatar
    mparnaldo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 04/08/2022

    [Resolvido]Mostras todos os dias entre duas datas Empty [Resolvido]Mostras todos os dias entre duas datas

    Mensagem  mparnaldo 27/9/2022, 17:56

    Boa tarde, estou tentando criar um BD para cadastrar as caixas que enviamos para o arquivo morto, na tabela tem os campos DATA INICIAL e DATA FINAL, o que eu gostaria de fazer é preencher em uma outra TABELA/CAMPO logo após o preenchimento da DATA FINAL todos os dias inclusive DATA INICIAL e DATA FINAL...

    EX:
    Data de inicio: 01/01/2022
    Data de fim: 07/01/2022

    Resultado:
    01/01/2022
    02/01/2022
    03/01/2022
    04/01/2022
    05/07/2022
    06/01/2022
    07/01/2022

    Desde já agradeço!


    Última edição por mparnaldo em 1/10/2022, 14:51, editado 3 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3940
    Registrado : 21/04/2011

    [Resolvido]Mostras todos os dias entre duas datas Empty Re: [Resolvido]Mostras todos os dias entre duas datas

    Mensagem  Marcelo David 27/9/2022, 18:38

    Boa tarde Marcos,
    disponha o que você já tem para a partir daí tentarmos ajudar.


    .................................................................................
    [Resolvido]Mostras todos os dias entre duas datas Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Mostras todos os dias entre duas datas Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Mostras todos os dias entre duas datas Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Mostras todos os dias entre duas datas Marcel11
    avatar
    mparnaldo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 04/08/2022

    [Resolvido]Mostras todos os dias entre duas datas Empty Re: [Resolvido]Mostras todos os dias entre duas datas

    Mensagem  mparnaldo 28/9/2022, 11:40

    Bom dia Marcelo, obrigado pela atenção, vou anexar o banco de dados pra você ter uma ideia de como está, realmente é um banco de dados bem simples, nada de complexo...

    Desde já agradeço sua atenção!
    Anexos
    [Resolvido]Mostras todos os dias entre duas datas AttachmentArquivoMorto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (62 Kb) Baixado 3 vez(es)
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    [Resolvido]Mostras todos os dias entre duas datas Empty Re: [Resolvido]Mostras todos os dias entre duas datas

    Mensagem  bigfill 28/9/2022, 13:22

    Bom dia!

    mparnaldo, coloquei um filtro no seu subformulario que filtra ao alterar a data final. Veja se seria isso
    Anexos
    [Resolvido]Mostras todos os dias entre duas datas AttachmentArquivoMorto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (68 Kb) Baixado 13 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3940
    Registrado : 21/04/2011

    [Resolvido]Mostras todos os dias entre duas datas Empty Re: [Resolvido]Mostras todos os dias entre duas datas

    Mensagem  Marcelo David 28/9/2022, 13:23

    Bom dia,
    no evento Após atualizar da caixa de texto DATA_FINAL do formulário frm_CAD_CAIXA, teste e nos retorne por favor:

    Código:
    Dim iD As Integer
       
        If IsNull(Me.N_CAIXA) Or IsNull(Me.TIPO_DOCUMENTO) Then
            MsgBox "Número da caixa e tipo de documento devem ser informados!", vbExclamation, "Atenção"
            Exit Sub
        End If
       
        If Not IsNull(Me.DATA_INICIAL) And Not IsNull(Me.DATA_FINAL) Then
            If Me.DATA_INICIAL > Me.DATA_FINAL Then
                MsgBox "A data inicial não pode ser posterior a data final!", vbExclamation, "Atenção"
                Exit Sub
            Else
                iD = DateDiff("d", Me.DATA_INICIAL, Me.DATA_FINAL)
               
                For i = 0 To iD
                    CurrentDb.Execute "INSERT INTO tbl_DETALHA_DATA (N_CAIXA,TIPO_DOC,DETALHA_DATA) " _
                                    & "VALUES ('" & Me.N_CAIXA & "','" & Me.TIPO_DOCUMENTO & "',#" _
                                    & Format(DateAdd("d", i, Me.DATA_INICIAL), "mm/dd/yyyy") & "#)"
                Next i
                Me.Refresh
            End If
        End If


    .................................................................................
    [Resolvido]Mostras todos os dias entre duas datas Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Mostras todos os dias entre duas datas Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Mostras todos os dias entre duas datas Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Mostras todos os dias entre duas datas Marcel11
    avatar
    mparnaldo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 04/08/2022

    [Resolvido]Mostras todos os dias entre duas datas Empty Re: [Resolvido]Mostras todos os dias entre duas datas

    Mensagem  mparnaldo 28/9/2022, 13:58

    Marcelo funcionou perfeitamente, realmente ficou maravilhoso  [Resolvido]Mostras todos os dias entre duas datas 1f64f , sem querer abusar da sua generosidade, de forma absurdamente leiga eu tentei adaptar sua solução para NUM_INICIAL e NUM_FINAL, porem sem sucesso... Será que conseguiria me ajudar com isso também?

    Novamente muito obrigado pela ajuda...


    [img]
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3940
    Registrado : 21/04/2011

    [Resolvido]Mostras todos os dias entre duas datas Empty Re: [Resolvido]Mostras todos os dias entre duas datas

    Mensagem  Marcelo David 28/9/2022, 15:41

    Eis:
    Código:
    If IsNull(Me.NUM_INICIAL) Or IsNull(Me.NUM_INICIAL) Or IsNull(Me.N_CAIXA) Or IsNull(Me.TIPO_DOCUMENTO) Then
            MsgBox "Número da caixa, tipo de documento, Nº Inicial e N° Final devem ser informados!", vbExclamation, "Atenção"
            Exit Sub
        End If
       
        If Me.NUM_INICIAL > Me.NUM_FINAL Then
            MsgBox "O Número inicial não pode ser maior que o número final!", vbExclamation, "Atenção"
            Exit Sub
        Else
            For i = Me.NUM_INICIAL To Me.NUM_FINAL
                CurrentDb.Execute "INSERT INTO tbl_DETALHA_NUMERO (N_CAIXA,TIPO_DOC,NUMERO) " _
                                & "VALUES ('" & Me.N_CAIXA & "','" & Me.TIPO_DOCUMENTO & "'," & i & ")"
            Next i
            Me.Refresh
        End If


    .................................................................................
    [Resolvido]Mostras todos os dias entre duas datas Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Mostras todos os dias entre duas datas Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Mostras todos os dias entre duas datas Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Mostras todos os dias entre duas datas Marcel11
    avatar
    mparnaldo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 04/08/2022

    [Resolvido]Mostras todos os dias entre duas datas Empty Re: [Resolvido]Mostras todos os dias entre duas datas

    Mensagem  mparnaldo 29/9/2022, 08:53

    Bom dia Marcelo, PERFEITO, realmente ficou top demais... Novamente muito obrigado pela ajuda!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mostras todos os dias entre duas datas Empty Re: [Resolvido]Mostras todos os dias entre duas datas

    Mensagem  Alexandre Neves 29/9/2022, 09:19

    Bom dia

    Faltou marcar o "Resolvido"


    .................................................................................
    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

    Conteúdo patrocinado


    [Resolvido]Mostras todos os dias entre duas datas Empty Re: [Resolvido]Mostras todos os dias entre duas datas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 4/11/2024, 18:34