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

    Inserir automaticamente os dias do ano em tabela

    avatar
    drcaiocatalani
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 08/02/2016

    Inserir automaticamente os dias do ano em tabela Empty Inserir automaticamente os dias do ano em tabela

    Mensagem  drcaiocatalani 4/6/2021, 03:09

    Srs. boa noite. O meu problema deve ser muito simples de resolver mas o cérebro não está ajudando kkk. Na verdade acredito estar com problema com a sintaxe de datas em SQL Sad
    Preciso popular uma tabela ("tblCalendario") de um único campo ("DiaDoAno") com os 365 dias a partir de uma data inicial a ser solicitada para o usuário ([DataInicial]) em uma inputbox. Trabalhei com INSERT INTO em um loop FOR NEXT somando 01 dia ao dia anterior mas já aconteceu de tudo! Agora ao invés de somar 1 ao dia, está somando aos meses!
    Poderiam sugerir algum código para isso?
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 22/11/2016

    Inserir automaticamente os dias do ano em tabela Empty Re: Inserir automaticamente os dias do ano em tabela

    Mensagem  DamascenoJr. 4/6/2021, 04:27

    Código:
    Sub fncBotaData()

        Dim booSair As Integer
        Dim dtBase As Date
       
        dtBase = #1/1/2021#
       
        Do
       
            Call CurrentDb.Execute("insert into tblCalendario " & _
                                  "values (""" & dtBase & """);")
       
            If booSair Then Exit Do
            dtBase = DateAdd("d", 1, dtBase)
            If Month(dtBase) = 12 And Day(dtBase) = 31 Then booSair = True
       
        Loop

    End Sub

    Não esqueça o resolvido do tópico.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 16/6/2021, 20:59