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]Listar todas as datas em um intervalor de data inicial e final

    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 811
    Registrado : 30/08/2010

    [Resolvido]Listar todas as datas em um intervalor de data inicial e final Empty [Resolvido]Listar todas as datas em um intervalor de data inicial e final

    Mensagem  gilberlanio 22/10/2023, 18:58

    Olá pessoal, pesquisei aqui no forum e não encontrei ajuda sobre a minha necessidades.

    É possivel fazer o Access listar através de uma consulta, uma lista de datas entre o intervalor de dadas de dois campos?

    Exemplo:
    Campo Data inicial = 28/10/2023
    Campo DataFinal = 02/11/2023

    Resultado da Consulta:
    28/10/2023
    29/10/2023
    30/10/2023
    31/10/2023
    01/11/2023
    02/11/2023

    Será que é possível fazer isso no Access?
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1078
    Registrado : 23/03/2010

    [Resolvido]Listar todas as datas em um intervalor de data inicial e final Empty Re: [Resolvido]Listar todas as datas em um intervalor de data inicial e final

    Mensagem  Finformática 23/10/2023, 04:10

    Olá Mestre,

    Veja se isso ajuda.

    Abraços
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1078
    Registrado : 23/03/2010

    [Resolvido]Listar todas as datas em um intervalor de data inicial e final Empty Re: [Resolvido]Listar todas as datas em um intervalor de data inicial e final

    Mensagem  Finformática 23/10/2023, 18:05

    Substitua o código do botão Visualizar por conteúdo abaixo (mais completo).


    Dim DataInicial As Date
    Dim DataFinal As Date
    Dim DataAtual As Date
    Dim i As Integer

    ' Verificar se campos estão preenchidos

    ' Verifique se o campo de DataInicial está vazio ou não é uma data válida
       If IsNull(Data_Inicial) Or Not IsDate(Data_Inicial) Then
           MsgBox "Por favor, insira uma data válida em Data Inicial.", vbExclamation
           Me.Data_Inicial.SetFocus
           Exit Sub
       End If

    ' Verifique se o campo de DataFinal está vazio ou não é uma data válida
       If IsNull(Data_Final) Or Not IsDate(Data_Final) Then
           MsgBox "Por favor, insira uma data válida em Data Final.", vbExclamation
           Me.Data_Final.SetFocus
           Exit Sub
       End If
    ' Obtenha as datas de DataInicial e DataFinal a partir dos controles do formulário
       DataInicial = Me.Data_Inicial.Value
       DataFinal = Me.Data_Final.Value

    ' Limpe a ListBox (ou outra lista) antes de adicionar as datas
       Me.LstDatas.RowSource = ""

    ' Inicialize a variável i
       i = 0

    ' Loop pelas datas entre DataInicial e DataFinal
       DataAtual = DataInicial
       Do While DataAtual <= DataFinal
    ' Adicione a data à lista
           Me.LstDatas.AddItem DataAtual
    ' Incremente a variável i
           i = i + 1
    ' Adicione 1 dia à DataAtual
           DataAtual = DateAdd("d", 1, DataAtual)
       Loop

    ' Se datas sequenciais invertidas
       If i = 0 Then
           MsgBox "Não há datas entre o intervalo fornecidos erradamente.", vbInformation
       End If


    Muito Grato

    Abraços
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 811
    Registrado : 30/08/2010

    [Resolvido]Listar todas as datas em um intervalor de data inicial e final Empty Re: [Resolvido]Listar todas as datas em um intervalor de data inicial e final

    Mensagem  gilberlanio 24/10/2023, 12:50

    Era isso mesmo, obrigado pela ajuda.
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1078
    Registrado : 23/03/2010

    [Resolvido]Listar todas as datas em um intervalor de data inicial e final Empty Re: [Resolvido]Listar todas as datas em um intervalor de data inicial e final

    Mensagem  Finformática 24/10/2023, 16:00

    Obrigado pelo retorno. Que bom que deu certo. Abraço.

    Conteúdo patrocinado


    [Resolvido]Listar todas as datas em um intervalor de data inicial e final Empty Re: [Resolvido]Listar todas as datas em um intervalor de data inicial e final

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/6/2024, 04:23