[Resolvido]Movimentos automáticos

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

up

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