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

    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Inserir datas do ano todo Empty [Resolvido]Inserir datas do ano todo

    Mensagem  thiagonsilvaa em Qui 17 Jan 2019, 10: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 : 106
    Registrado : 21/08/2012

    [Resolvido]Inserir datas do ano todo Empty Re: [Resolvido]Inserir datas do ano todo

    Mensagem  FabioGO em Qui 17 Jan 2019, 10: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 : 267
    Registrado : 12/01/2017

    [Resolvido]Inserir datas do ano todo Empty Re: [Resolvido]Inserir datas do ano todo

    Mensagem  thiagonsilvaa em Qui 17 Jan 2019, 10:52

    Bom dia !

    Perfeito, vou adaptar e utilizar !

    Muito obrigado novamente !!!

    Conteúdo patrocinado

    [Resolvido]Inserir datas do ano todo Empty Re: [Resolvido]Inserir datas do ano todo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Ter 21 Maio 2019, 10:14