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

    [Resolvido]Inserir datas do ano todo

    Compartilhe
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 12/01/2017

    [Resolvido]Inserir datas do ano todo

    Mensagem  thiagonsilvaa em 17/1/2019, 12:38

    Bom dia a todos !

    Gostaria saber se existe alguma maneira de eu adicionar todas as datas do ano todo via vba, ou tenho que fazer isso manualmente.

    Andei procurando aqui no fórum mas não encontrei nada parecido.

    Se alguém puder me orientar, ficarei grato.

    Abraços.
    avatar
    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 22/08/2012

    Re: [Resolvido]Inserir datas do ano todo

    Mensagem  FabioGO em 17/1/2019, 12:41

    Eu te respondi no seu outro tópico, segue aqui também:

    Sobre o que você perguntou sobre gerar os dias do ano, esse código simples pode te ajudar.
    Mas faça adaptações conforme suas tabelas e objetos

    Em um botão de comando, no evento ao clicar

    Código:
    Dim i As Date, DtIn As Date, DtFim As Date

    If DCount("[CampoComAsDatas]", "SuaTabela", "Year([CampoComAsDatas])='" & Me.CaixaDeTextoDoFormularioComAnoDigitado & "'") > 0 Then
        MsgBox "Ja existem dias para esse ano..."
    Else
        DtIn = DateSerial(Me.CaixaDeTextoDoFormularioComAnoDigitado, 1, 1)
        DtFim = DateSerial(Me.CaixaDeTextoDoFormularioComAnoDigitado, 12, 31)
       
        For i = DtIn To DtFim
            CurrentDb.Execute "INSERT INTO SuaTabela (CampoComAsDatas) VALUES (#" & Format(i, "MM/DD/YYYY") & "#)"
        Next
    End If
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 12/01/2017

    Re: [Resolvido]Inserir datas do ano todo

    Mensagem  thiagonsilvaa em 17/1/2019, 12:52

    Bom dia !

    Perfeito, vou adaptar e utilizar !

    Muito obrigado novamente !!!

      Data/hora atual: 23/3/2019, 13:28