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

Gerar dias automaticamente, excluindo os Domingos

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

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: