Aqui estou para mais um pedido de ajuda. rs
Tenho uma tabela "Alunos" onde tenho o cadastro da hora de entrada e saída contratada, mas agora surgiu uma nova necessidade dos pais.
Precisam de horas alternadas, por exemplo. Segunda, Terça e quinta entram as 7h00 e sai 12h00. Quarta e Sexta entram 9h00 e sai 15h00.
Os horarios e dias das semanas sao só exemplos, podem ser os mais variados.
ai começa meu problema. Tenho um formulario que seleciono o aluno e clico no botao "REGISTRAR". Esse botao pega o horario de entrada e saida na tabela aluno, mais a hora atual e manda para uma outra tabela que posteriormente faço o fechamento e cobrança se houver hora extra.
qual seria a melhor maneira para conseguir registrar a hora de entrada e saida de acordo com o dia da semana.(segunda, terça, quarta, quinta ou sexta)?
Exemplo. Hoje é quarta, quando eu estiver no formulario e selecionar o aluno e clicar em REGISTRAR, que pegue a hora de entrada e saida da tabela Aluno, referente a quarta-feira e mande para a outra tabela.
Evento ao Clicar
Forms![Aluno1]![Entra_saida_aluno Subformulário]!saida = Time()
Forms![Aluno1]![Entra_saida_aluno Subformulário]!data = Date
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_entrada = Forms![Aluno1].hora_entrada
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_saida = Forms![Aluno1].hora_saida
DoCmd.RunCommand acCmdRefresh
Forms![Aluno1]![Cons_Saida_bebe30min subformulário].Requery
Os dois ultimos inserts deveria verificar que dia é hoje e adicionar a hora_entrada e hora_saida do campo correspondente.
Exemplo:
Segunda-feira
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_entrada = Forms![Aluno1].hora_entrada
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_saida = Forms![Aluno1].hora_saida
Terça-feira
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_entrada = Forms![Aluno1].hora_entradaTer
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_saida = Forms![Aluno1].hora_saidaTer
Quarta-feira
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_entrada = Forms![Aluno1].hora_entradaQua
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_saida = Forms![Aluno1].hora_saidaQua
Quinta-feira
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_entrada = Forms![Aluno1].hora_entradaQui
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_saida = Forms![Aluno1].hora_saidaQui
Sexta-feira
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_entrada = Forms![Aluno1].hora_entradaSex
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_saida = Forms![Aluno1].hora_saidaSex
E caso algum dia estivesse em branco assumisse a hora_entrada e hora_saida da segunda-feira.
Tenho uma tabela "Alunos" onde tenho o cadastro da hora de entrada e saída contratada, mas agora surgiu uma nova necessidade dos pais.
Precisam de horas alternadas, por exemplo. Segunda, Terça e quinta entram as 7h00 e sai 12h00. Quarta e Sexta entram 9h00 e sai 15h00.
Os horarios e dias das semanas sao só exemplos, podem ser os mais variados.
ai começa meu problema. Tenho um formulario que seleciono o aluno e clico no botao "REGISTRAR". Esse botao pega o horario de entrada e saida na tabela aluno, mais a hora atual e manda para uma outra tabela que posteriormente faço o fechamento e cobrança se houver hora extra.
qual seria a melhor maneira para conseguir registrar a hora de entrada e saida de acordo com o dia da semana.(segunda, terça, quarta, quinta ou sexta)?
Exemplo. Hoje é quarta, quando eu estiver no formulario e selecionar o aluno e clicar em REGISTRAR, que pegue a hora de entrada e saida da tabela Aluno, referente a quarta-feira e mande para a outra tabela.
Evento ao Clicar
Forms![Aluno1]![Entra_saida_aluno Subformulário]!saida = Time()
Forms![Aluno1]![Entra_saida_aluno Subformulário]!data = Date
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_entrada = Forms![Aluno1].hora_entrada
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_saida = Forms![Aluno1].hora_saida
DoCmd.RunCommand acCmdRefresh
Forms![Aluno1]![Cons_Saida_bebe30min subformulário].Requery
Os dois ultimos inserts deveria verificar que dia é hoje e adicionar a hora_entrada e hora_saida do campo correspondente.
Exemplo:
Segunda-feira
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_entrada = Forms![Aluno1].hora_entrada
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_saida = Forms![Aluno1].hora_saida
Terça-feira
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_entrada = Forms![Aluno1].hora_entradaTer
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_saida = Forms![Aluno1].hora_saidaTer
Quarta-feira
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_entrada = Forms![Aluno1].hora_entradaQua
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_saida = Forms![Aluno1].hora_saidaQua
Quinta-feira
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_entrada = Forms![Aluno1].hora_entradaQui
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_saida = Forms![Aluno1].hora_saidaQui
Sexta-feira
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_entrada = Forms![Aluno1].hora_entradaSex
Forms![Aluno1]![Entra_saida_aluno Subformulário]!horacontr_saida = Forms![Aluno1].hora_saidaSex
E caso algum dia estivesse em branco assumisse a hora_entrada e hora_saida da segunda-feira.