bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Gerar dias Automaticamente, tirando os Domingos

... 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

Antes de iniciar a sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

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: