Bom dia a todos,
preciso fazer um controle para agendamento de sala de reunião para uso das secretárias (Sec1, Sec2 e Sec3), e no formulário, eu gostaria de inserir "Botões de alternância (Ativado/Desativado)".
Na tabela, possuo os campos [Data], [Responsável], [Autenic] que concatena o campo Data + Responsável e preciso que haja o campo de [Hora], onde está uma das dúvidas.
Como as horas vão de 07 hs às 17 hs, pensei em inserir na tabela, 01 campo para cada hora, Ex.: Campos [07:00], [08:00], ..., [17:00] e deixá-los como Sim/Não ou Verdadeiro/Falso, mas não sei se este seria o melhor método, Gostaria de sugestões.
Após, quando uma secretária, agendar uma reunião no dia 25/10/2011 às 08:00hs, eu bloquearia o Botão de alternância de tal Hora para as demais secretárias, e somente a responsável pelo registro poderia alterar e assim por diante, todas teriam acesso a fazer inclusão em uma referida data, mas caso haja lançada alguma Hora em tal Data, o programa buscaria a responsável (Autentic) e autenticaria ou não o registro.
Logo [Sec1], [25/10/2011], [25/10/2011-Sec1] [08:00].
Agora como eu faria tal busca na tabela usando o SELECT e que ele buscasse tal Data com todas as Horas agendadas, e após encontrar um valor verdadeiro, ele bloquearia para as Secretárias não autenticadas.
25/10/2011, Sec1, 07:00=False, 08:00=True, 09:00=False, 10:00=False
25/10/2011, Sec2, 07:00=False, 08:00=False, 09:00=True, 10:00=False
25/10/2011, Sec3, 07:00=True, 08:00=False, 09:00=False, 10:00=True
Mesma Data com Secretárias e Horas diferentes.
Encontrei um exemplo e que funciona perfeitamente, mas não sei como buscar e autenticar campo Data com Hora por hora.
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim strData As String
strData = Me!txtDT '(data Formulario)
strSQL = "Select * FROM [tbl_Agenda] WHERE [Data] Like '*" & strData & "*'"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
Gostaria de algumas sugestões, se alguém puder ajudar eu agradeço.
Sds.
preciso fazer um controle para agendamento de sala de reunião para uso das secretárias (Sec1, Sec2 e Sec3), e no formulário, eu gostaria de inserir "Botões de alternância (Ativado/Desativado)".
Na tabela, possuo os campos [Data], [Responsável], [Autenic] que concatena o campo Data + Responsável e preciso que haja o campo de [Hora], onde está uma das dúvidas.
Como as horas vão de 07 hs às 17 hs, pensei em inserir na tabela, 01 campo para cada hora, Ex.: Campos [07:00], [08:00], ..., [17:00] e deixá-los como Sim/Não ou Verdadeiro/Falso, mas não sei se este seria o melhor método, Gostaria de sugestões.
Após, quando uma secretária, agendar uma reunião no dia 25/10/2011 às 08:00hs, eu bloquearia o Botão de alternância de tal Hora para as demais secretárias, e somente a responsável pelo registro poderia alterar e assim por diante, todas teriam acesso a fazer inclusão em uma referida data, mas caso haja lançada alguma Hora em tal Data, o programa buscaria a responsável (Autentic) e autenticaria ou não o registro.
Logo [Sec1], [25/10/2011], [25/10/2011-Sec1] [08:00].
Agora como eu faria tal busca na tabela usando o SELECT e que ele buscasse tal Data com todas as Horas agendadas, e após encontrar um valor verdadeiro, ele bloquearia para as Secretárias não autenticadas.
25/10/2011, Sec1, 07:00=False, 08:00=True, 09:00=False, 10:00=False
25/10/2011, Sec2, 07:00=False, 08:00=False, 09:00=True, 10:00=False
25/10/2011, Sec3, 07:00=True, 08:00=False, 09:00=False, 10:00=True
Mesma Data com Secretárias e Horas diferentes.
Encontrei um exemplo e que funciona perfeitamente, mas não sei como buscar e autenticar campo Data com Hora por hora.
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim strData As String
strData = Me!txtDT '(data Formulario)
strSQL = "Select * FROM [tbl_Agenda] WHERE [Data] Like '*" & strData & "*'"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
Gostaria de algumas sugestões, se alguém puder ajudar eu agradeço.
Sds.