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]Movimentos automáticos

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2960
    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 ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Movimentos automáticos

    Mensagem  Assis em Qui 02 Jun 2016, 21:45

    up


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2960
    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: Sex 20 Out 2017, 09:55