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]Registar em tabela dados dos Meses do Ano

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3954
    Registrado : 06/11/2009

    [Resolvido]Registar em tabela dados dos Meses do Ano Empty [Resolvido]Registar em tabela dados dos Meses do Ano

    Mensagem  Assis em 16/10/2019, 10:50

    Bom dia Amigos

    No exemplo que anexo tem:

    2 Tabelas
    - Feriados
    - Meses

    1 Formulário
    - Menu

    1 Módulo
    - ModFeriados (Autor Alexandre Neves)

    No formulário menu ao clicar no botão "Executar", são logo registados todos os feriados de Portugal do Ano em curso na tabela "Feriados".

    '----------------------------------------------------------------------------------

    Pretendia que ao clicar no botão "Executar", que a tabela "Meses" fosse preenchida com:

    - Meses do Ano de janeiro a dezembro.
    - Total (Número) de dias no mês do respetivo mês. (Ter em atenção o Ano Bixesto)
    - Total (Número) de feriados do respetivo mês.
    - Total (Número) de sábados e domingos respetivo mês.

    Alguém ???

    Obrigado
    Anexos
    [Resolvido]Registar em tabela dados dos Meses do Ano AttachmentFeriados.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (36 Kb) Baixado 12 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Registar em tabela dados dos Meses do Ano Empty Re: [Resolvido]Registar em tabela dados dos Meses do Ano

    Mensagem  JPaulo em 16/10/2019, 12:35

    Minha contribuição apenas para os meses e total de dias em cada mês;

    Código:
    Private Sub SeuBotão_Click()
    'By JPaulo ® Maximo Access
    Dim sMesSomado As String
    Dim IntQtdMeses As Integer
    Dim i As Integer
    Dim sAno As Date
    Dim TotalDiasNoMes As Integer
    Dim TotalDiasNoMesAnoBisexto As Integer

    'Inicia em 1 de janeiro do ano atual
    sAno = CDate("1/1/" & Year(Date))
        'quantidade de meses do ano
        IntQtdMeses = 12
        'monta o loop á quantidade de meses
        For i = 0 To IntQtdMeses
        sMesSomado = DateAdd("m", i, sAno)
        'obtem o total de dias em cada mês
        'se for ano bisexto, obtem o total de dias
        If TotalDiasNoMesAnoBisexto = Month(DateSerial(Year(Date), 2, 29)) = 2 = True Then
            TotalDiasNoMes = TotalDiasNoMesAnoBisexto
        Else
        'se não for bisexto, obtem o total dias
            TotalDiasNoMes = Day(DateSerial(Year(sMesSomado), Month(sMesSomado) + 1, 0))
        End If
        'altera o sMesSomado para o mês por extenso
        sMesSomado = MonthName(Month(sMesSomado))
        'insere na tabela cada mês
        If Me.Dirty Then Me.Dirty = False
        CurrentDb.Execute "INSERT INTO Meses (Mes, DiasNoMes) VALUES ('" & sMesSomado & "'," & TotalDiasNoMes & ");"
        Next i
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Registar em tabela dados dos Meses do Ano Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Registar em tabela dados dos Meses do Ano Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Registar em tabela dados dos Meses do Ano Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3954
    Registrado : 06/11/2009

    [Resolvido]Registar em tabela dados dos Meses do Ano Empty Re: [Resolvido]Registar em tabela dados dos Meses do Ano

    Mensagem  Assis em 16/10/2019, 12:54

    Obrigado JPaulo

    É um bom começo

    Very Happy


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3954
    Registrado : 06/11/2009

    [Resolvido]Registar em tabela dados dos Meses do Ano Empty Re: [Resolvido]Registar em tabela dados dos Meses do Ano

    Mensagem  Assis em 16/10/2019, 14:41

    Amigos

    Os feriados já estão.

    Uma ideia para os sábados e domingos ?

    Obrigado


    [Resolvido]Registar em tabela dados dos Meses do Ano Sem_t114


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6379
    Registrado : 15/03/2013

    [Resolvido]Registar em tabela dados dos Meses do Ano Empty Re: [Resolvido]Registar em tabela dados dos Meses do Ano

    Mensagem  ahteixeira em 16/10/2019, 14:46

    Olá a todos,

    Assis, não será a mesma questão:
    http://www.maximoaccess.com/t11173-resolvidocontar-sabados-entre-duas-datas

    ... e na mesma a resposta do nosso grande JPaulo Very Happy

    cheers
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3954
    Registrado : 06/11/2009

    [Resolvido]Registar em tabela dados dos Meses do Ano Empty Re: [Resolvido]Registar em tabela dados dos Meses do Ano

    Mensagem  Assis em 16/10/2019, 18:29

    Olá Teixeira.
    Até certo é. Na tabela feriados tenho o primeiro dia do ano, mas como ter o dia 31 dez .
    E preciso de os contar por mês

    Uma luz ....
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Registar em tabela dados dos Meses do Ano Empty Re: [Resolvido]Registar em tabela dados dos Meses do Ano

    Mensagem  IvanJr. em 16/10/2019, 23:55

    Código:
    Private Sub fncPopulaTabela()

        Dim objRS As DAO.Recordset
        Dim bytMes As Byte

        Call CurrentDb.Execute("delete * from Meses;")
       
        Set objRS = CurrentDb.OpenRecordset("Meses", , 8)
       
        For bytMes = 1 To 12
       
            objRS.AddNew
                objRS!Mes.Value = MonthName(bytMes)
                objRS!DiasNoMes.Value = Day(DateSerial(Year(Date) + IIf(bytMes = 12, 1, 0), IIf(bytMes = 12, 1, bytMes + 1), 0))
                objRS!FeriadosNoMes.Value = DCount("*", "Feriados", "month(DataFeriado)=" & bytMes)
                objRS!SabadosEDomingos.Value = fncCSD(bytMes, objRS!DiasNoMes.Value)
            objRS.Update
       
        Next bytMes
       
        Call objRS.Close: Set objRS = Nothing
       
    End Sub

    'função Conta Sabados e Domingos
    Private Function fncCSD(bytMes As Byte, bytTotalDias As Byte) As Byte

        Dim bytTotal As Byte
        Dim bytDia As Byte
       
        For bytDia = 1 To bytTotalDias
            If Eval(Weekday(DateSerial(Year(Date), bytMes, bytDia)) & " in(1,7)") Then bytTotal = bytTotal + 1
        Next bytDia
       
        fncCSD = bytTotal

    End Function


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Registar em tabela dados dos Meses do Ano Empty Re: [Resolvido]Registar em tabela dados dos Meses do Ano

    Mensagem  JPaulo em 17/10/2019, 11:34

    Gostei Ivan, parabens.
    Uma excelente compilação.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Registar em tabela dados dos Meses do Ano Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Registar em tabela dados dos Meses do Ano Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Registar em tabela dados dos Meses do Ano Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3954
    Registrado : 06/11/2009

    [Resolvido]Registar em tabela dados dos Meses do Ano Empty Re: [Resolvido]Registar em tabela dados dos Meses do Ano

    Mensagem  Assis em 17/10/2019, 11:48

    Grande Ivan

    Obrigado, vai ser muito útil.

    [Resolvido]Registar em tabela dados dos Meses do Ano Sem_t115
    Anexos
    [Resolvido]Registar em tabela dados dos Meses do Ano AttachmentFeriadosPT.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (129 Kb) Baixado 8 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Registar em tabela dados dos Meses do Ano Empty Re: [Resolvido]Registar em tabela dados dos Meses do Ano

    Mensagem  JPaulo em 18/10/2019, 12:52

    Esses subtotais são virtuais, não dá;

    FYI;

    Download


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Registar em tabela dados dos Meses do Ano Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Registar em tabela dados dos Meses do Ano Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Registar em tabela dados dos Meses do Ano Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3954
    Registrado : 06/11/2009

    [Resolvido]Registar em tabela dados dos Meses do Ano Empty Re: [Resolvido]Registar em tabela dados dos Meses do Ano

    Mensagem  Assis em 18/10/2019, 18:58

    Obrigado JPaulo


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado

    [Resolvido]Registar em tabela dados dos Meses do Ano Empty Re: [Resolvido]Registar em tabela dados dos Meses do Ano

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2019, 22:42