[Resolvido]Alterar código

Boa tarde Amigos

Tenho este código num botão e funciona bem.

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(Now), 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 - yyyy") & " Registados ", vbInformation, "     Administrador do Sistema !"
               
               Exit For
                       
           End If
       Next
 
   End If
Next M

MsgBoxTimer 1, "Tudo Registado Até " & Format(Date, "mmmm - yyyy") & "  ", vbInformation, "Administrador do Sistema!"
Exit Sub

End Sub


Queria acrescentar que quando o mês for Maio ou Novembro este comando, no esmo botão.

If Month(DataComparacao) = 5 And Month(DataComparacao) = 11 Then
            CurrentDb.Execute "INSERT INTO MovimentosAutomaticos SELECT Format(DateSerial(Year(Now), " & M & ", " & D & "), 'dd-mm-yyyy') as DataM, Seguro, ValorEntrada FROM Seguros;"
            MsgBox "Seguro do Mês " & Format(Date, "mmmm") & " Registado ", vbInformation, "     Administrador do Sistema !"
End If


Obrigado

No caso quer add antes desse For:
For D = 1 To 10

E mesmo sendo mes 05 ou 11 ele execute também as instruçoes do FOr  For D = 1 To 10 ?


Basta Add verificação
If Month(DataComparacao) = 5 OR Month(DataComparacao) = 11 Then

faça isso
+
isso

else
faça apena isso

end if

Obrigado FabioPaes
Bom final de semana

Grato pelo retorno amigo, até a próxima se Deus Quiser!