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


4 participantes

    [Resolvido]Registar em tabela dados dos Meses do Ano

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    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 Qua 16 Out 2019, 06: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


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    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 Qua 16 Out 2019, 08: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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    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 Qua 16 Out 2019, 08:54

    Obrigado JPaulo

    É um bom começo

    Very Happy


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    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 Qua 16 Out 2019, 10: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 ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    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  Alvaro Teixeira Qua 16 Out 2019, 10:46

    Olá a todos,

    Assis, não será a mesma questão:
    https://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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    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 Qua 16 Out 2019, 14: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 ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 21/11/2016

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

    Mensagem  DamascenoJr. Qua 16 Out 2019, 19: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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    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 Qui 17 Out 2019, 07: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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    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 Qui 17 Out 2019, 07:48

    Grande Ivan

    Obrigado, vai ser muito útil.

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


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    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 Sex 18 Out 2019, 08: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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    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 Sex 18 Out 2019, 14: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: Qui 28 Mar 2024, 23:09