Gerar dias automaticamente, excluindo os Domingos
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Usuário Marcelo:
Olá!
Estou com um sistema para geração de horários de aula de alunos. O problema é referente aos domingos que não tem aula. Gostaria de acrescentar um campo, onde o próprio usuário possa configurar a opção de selecionar ou não, o dia de domingo.
Meu código está assim:
Set db33 = CurrentDb()
Set Rs33 = db33.OpenRecordset("CalendarioCompromissos")
For i = 1 To Me.Texto53
Rs33.AddNew
Rs33("Aluno") = Me.Combinação2
Rs33("HoraCompromisso") = Me.Texto68
Rs33("DataCompromisso") = DateAdd("d", i - 1, Date)
Rs33.Update
Next
Rs33.Close
db33.Close
Me.CalendarioCompromissos.Requery 'Atualiza o SubForm
Você tem uma idéia que possa me ajudar?
Suporte:
Marcelo,
faça algo assim:
Set db33 = CurrentDb()
Set Rs33 = db33.OpenRecordset("CalendarioCompromissos")
For i = 1 To Me.Texto53
if weekday(dateadd("d", i - 1,date)) <> 1 then 'diferente de domingo
Rs33.AddNew
Rs33("Aluno") = Me.Combinação2
Rs33("HoraCompromisso") = Me.Texto68
Rs33("DataCompromisso") = DateAdd("d", i - 1, Date)
Rs33.Update
end if
Next
Rs33.Close
db33.Close
Me.CalendarioCompromissos.Requery 'Atualiza o SubForm
Usuário Marcelo:
Exato, Avelino.
E quanto a opção de pular ou não o Domingo?
Suporte:
Marcelo,
acrescente a parte em vermelho.
...
if (weekday(dateadd("d", i - 1,date)) <> 1) OR (me!SeuCampoSimNao = -1) then
...
Usuário Marcelo:
Muito bom mestre, ficou show!
Mais uma vez obrigado.
| Não há comentário |
