MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Movimentos automáticos

    Compartilhe

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Movimentos automáticos

    Mensagem  Assis em Qua 01 Jun 2016, 18:41

    Boa tarde Amigos

    Tenho o código abaixo que sempre que abrir o formulário "Movimentos" da minha BD, e não tiver registos do mês actual, faz os respectivos registos, mediante os dados que estão na tabela "Entidades":
    Seria possível que quando o Mês da Data for "Maio" e "Dezembro", colocar uma msgbox "Registar o Valor do Seguro" ?
    Obrigado

    '------------------------------------------------------
    Sub MovimentosAutomaticos()
    'código Alterado por Cláudio Más
    Dim D As Byte, DataComparacao As Date, M As Byte

    For M = 1 To Month(Date)
       Forms!Movimentos.Tag = Format$(M, "00") & Format(Now, "-yyyy")
       If DCount("*", "qry_MovimentosAutomaticos") = 0 Then
       'ainda não há registos do mês/ano
     
       For D = 1 To 10

                DataComparacao = DateSerial(Year(Date), M, D)
               
               If Weekday(DataComparacao) <> 1 And Weekday(DataComparacao) <> 7 And Feriado(DataComparacao) = False Then
                CurrentDb.Execute "INSERT INTO MovimentosAutomaticos SELECT Format(DateSerial(Year(Now), " & M & ", " & D & "), 'dd-mm-yyyy') as DataM, Entidade, ValorEntrada FROM Entidades;"
                MsgBox "Movimentos do Mês " & Format(Date, "mmmm") & " Registados ", vbInformation, "     Administrador do Sistema !"
                   
                   Exit For
       
               End If
           Next
     
       End If
    Next M

    Exit Sub

    End Sub


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

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Movimentos automáticos

    Mensagem  Assis em Qui 02 Jun 2016, 21:45

    up


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

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Movimentos automáticos

    Mensagem  Assis em Sab 04 Jun 2016, 14:09

    Boa tarde

    Consegui resolver .....

    Seria para os meses de "Maio" e "Dezembro", mas alterei para Abril (4) e Novembro (11)

    Sub MovimentosAutomaticos()
    'código Alterado por Cláudio Más
    Dim D As Byte, DataComparacao As Date, M As Byte

    For M = 1 To Month(Date)
       Forms!Movimentos.Tag = Format$(M, "00") & Format(Now, "-yyyy")
       If DCount("*", "qry_MovimentosAutomaticos") = 0 Then
       'ainda não há registos do mês/ano
     
       For D = 1 To 10

               DataComparacao = DateSerial(Year(Date), M, D)
               
               If Weekday(DataComparacao) <> 1 And Weekday(DataComparacao) <> 7 And Feriado(DataComparacao) = False Then
                CurrentDb.Execute "INSERT INTO MovimentosAutomaticos SELECT Format(DateSerial(Year(Now), " & M & ", " & D & "), 'dd-mm-yyyy') as DataM, Entidade, ValorEntrada FROM Entidades;"
                   MsgBox "Movimentos do Mês " & Format(DataComparacao, "mmmm") & " Registados ", vbInformation, "Administrador do Sistema !"
                   
              If Month(DataComparacao) = "4" Or Month(DataComparacao) = "11" Then
                 CurrentDb.Execute "INSERT INTO MovimentosAutomaticos SELECT Format(DateSerial(Year(Now), " & M & ", " & D & "), 'dd-mm-yyyy') as DataM, Entidade, ValorEntrada FROM TabSeguro;"
                   MsgBox "Seguro do Mês " & Format(DataComparacao, "mmmm") & " Registado ", vbInformation, "Administrador do Sistema !"

               Else
               End If
               
                 Exit For
       
               End If
                 Next
               End If
                     Next M
                            Exit Sub
               End Sub


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

      Data/hora atual: Sab 03 Dez 2016, 15:38