... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Gerar dias automaticamente, excluindo os Domingos

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

Envie seu comentário: