[Resolvido]Registos Automaticos

Boa noite

Tenho uma tabela "MovimentosAutomaticos" com os campos:
DataM: Tipo de dados Data
NomeEntidade: Tipo de dados Texto - Campo alimentados por uma tabela "Entidades" com 1 ou vários nomes
ValorEntrada: Tipo de dados Moeda. Este valor também estará na tabela "Entidades"

Queria fazer uma rotina para registar automáticamente, para cada "NomeEntidade" e o repectivo "ValorEntrada" com a mudança de Mês.
Só que não deve fazer registos aos sábados, domingos e feriados nacionais, e só fazia um registo por nome e respectivo valor no mesmo Mês.
Obrigado

Boa noite, Assis

Explique melhor, com exemplo se possível.
Cumprimentos,

Boa tarde

Alexandre, desde já obrigado pela atenção.
A minha ideia era fazer uma rotina para fazer esta movimentação automaticamente uma vez em cada mês para cada entidade.

Neste caso faria um movimento para o:

Assis no valor de 150€ e outro para o
Ribeiro no valor de 200€, por exemplo no dia 01-04-2011.

No próximo mês de maio faria os movimentos 02-05-2011 para evitar fazer aos Domingos e feriados
No próximo mês de junho faria os movimentos 01-06-2011... etc

Ou seja faria os movimentos no primeiro dia útil de cada mês.

A altura de fazer os registos seria na minha opinião ao abrir a BD se possivel

http://dl.dropbox.com/u/8169944/Automaticos.mdb

Boa noite, Assis

Veja no
Cumprimentos.meu esnips

Boa noite Alexandre

Obrigado pelo automatismo.
Era mesmo isto

Desde ontem, Assis

Esqueci-me de limitar os Sábados e Domingos.
Substitua

Sub MovimentosAutomaticos()
Dim D As Byte
If DCount("*", "MovimentosAutomaticos", "Format(DataM,'mm-yyyy')=Format(Now,'mm-yyyy')") = 0 Then
'ainda não há registos do mês/ano
For D = 1 To 10
If Feriado(DateSerial(Year(Date), Month(Date), D)) = False Then
CurrentDb.Execute "INSERT INTO MovimentosAutomaticos SELECT Format(DateSerial(Year(Now), Month(Now)," & D & "), 'dd-mm-yyyy') as DataM, Entidade, ValorEntrada FROM Entidades;"
Exit For
End If
Next
End If
End Sub

por


Sub MovimentosAutomaticos()
Dim D As Byte, DataComparacao As Date
If DCount("*", "MovimentosAutomaticos", "Format(DataM,'mm-yyyy')=Format(Now,'mm-yyyy')") = 0 Then
'ainda não há registos do mês/ano
For D = 1 To 10
DataComparacao = DateSerial(Year(Date), Month(Date), D)
If Weekday(DataComparacao) <> 1 And Weekday(DataComparacao) <> 7 And Feriado(DataComparacao) = False Then
CurrentDb.Execute "INSERT INTO MovimentosAutomaticos SELECT Format(DateSerial(Year(Now), Month(Now)," & D & "), 'dd-mm-yyyy') as DataM, Entidade, ValorEntrada FROM Entidades;"
Exit For
End If
Next
End If
End Sub

Cumprimentos,

Obrigado Alexandre

O que quer dizer ?

For D = 1 To 10

Se me explicar agradeço
Bom fim de semana

Novamente, Assis

O código foi feito à pressa e apenas criei o ciclo entre o dia 1 e o dia 10 porque existe sempre um dia útil neste período.
Cumprimentos,

Obrigado Alexandre

Boa tarde caros amigos!

esta rotina vai-me dar um jeitaço.

se ela fizesse os lançamentos entre duas datas escolhidas, por exêmplo entre Fevereiro e Outubro (uma por mês), como seria?

Obrigado

Boa noite, Mendes

Utilize este código

Sub MovimentosAutomaticos()
Dim D As Byte, DataComparacao As Date, Mes As Byte

For Mes = 2 To 10
If DCount("*", "MovimentosAutomaticos", "Format(DataM,'mm-yyyy')='" & Format(Mes, "00") & "-" & Year(Now) & "'") = 0 Then
'ainda não há registos do mês/ano
For D = 1 To 10
DataComparacao = DateSerial(Year(Date), Mes, D)
If Weekday(DataComparacao) <> 1 And Weekday(DataComparacao) <> 7 And Feriado(DataComparacao) = False Then
CurrentDb.Execute "INSERT INTO MovimentosAutomaticos SELECT #" & Format(DataComparacao, "mm-dd-yyyy") & "# as DataM, Entidade, ValorEntrada FROM Entidades;"
Exit For
End If
Next
End If
Next
End Sub

Cumprimentos,

Obrigado Alexandre!

As datas que eu mencionei seriam só um exêmplo, o que pretendia era poder escolher as datas de acordo com a minha vontade

Se eu pretende-se escolher as datas através do formulário seria assim?: ou terá de se introduzir sempre directamente no código?

Sub MovimentosAutomaticos()
Dim D As Byte, DataComparacao As Date, Mes As Byte

For Mes = me.campodata1 To me.campodata2
If DCount("*", "MovimentosAutomaticos", "Format(DataM,'mm-yyyy')='" & Format(Mes, "00") & "-" & Year(Now) & "'") = 0 Then
'ainda não há registos do mês/ano
For D = 1 To 10
DataComparacao = DateSerial(Year(Date), Mes, D)
If Weekday(DataComparacao) <> 1 And Weekday(DataComparacao) <> 7 And Feriado(DataComparacao) = False Then
CurrentDb.Execute "INSERT INTO MovimentosAutomaticos SELECT #" & Format(DataComparacao, "mm-dd-yyyy") & "# as DataM, Entidade, ValorEntrada FROM Entidades;"
Exit For
End If
Next
End If
Next
End Sub