[Resolvido]Abrir formulário em horas programadas

Olá, bom dia a todos..

Estou com um probleminha em um sistema que estou criando.
Pois bem, nesse sistema tem um formulário de cadastro de protocolo.
Tudo está funcionando perfeitamente, só que eu quero que esse formulário (Cad_Protocolo) só abra em determinada horas.

coloquei no "ao abrir" procedimento de evento, as opções para o formulário,
porém não consigo inserir essa condição de abertura em horas determinadas.

eu preciso que o formulário só abra nos horários: das 08:00:00 às 10:59:59 e das 13:00:00 às 16:59:59

e não abra o formulário das 17:00:00 até às 07:59:59.

se alguém puder me ajudar, agradeço muito.
Obrigado

Seja Bem vindo ao Forum!

No evento ao Carregar do Seu Formulario coloque isso em azul:


Private Sub Form_Load()
'Não abre das 11h as 12h
If Format(Now, "hh:mm:ss") >= #11:00:00 AM# And Format(Now, "hh:mm:ss") <= #12:00:00 PM# Then
DoCmd.Close
'Emite Mensagem de Alerta!
MsgBox "Não é permitido a abertura nesse Período!", vbInformation
End If
End Sub


Nesse Caso bloqueia das 11 as 12h... Alterar o Horario para o seu!

Desculpe ter que reabrir o tópico, mas vou ter que incluir também o horário das 17:00:00 horas até às 7:59:59 - horário esses que não poderão abrir o formulário.
Já tentei incluir esse horário usando o elseif mas sem solução.

coloquei no "ao carregar" do formulário (Cad_Produto), a seguinte condição:


If Format(Now, "hh:mm:ss") >= #11:00:00 AM# And Format(Now, "hh:mm:ss") <= #1:00:00 PM# Then

ElseIf Format(Now, "hh:mm:ss") >= #5:00:00 PM# And Format(Now, "hh:mm:ss") <= #7:59:59 AM# Then

DoCmd.Close (Cad_Protocolo)
DoCmd.OpenForm "MenuDeControle", acNormal


*desde já agradeço a bom intenção dos colegas em me ajudar.

Mudando apenas esta linha:

If Format(Now, "hh:mm:ss") >= #11:00:00 AM# And Format(Now, "hh:mm:ss") <= #12:59:59# Or Format(Now, "hh:mm:ss") >= #17:00:00# And Format(Now, "hh:mm:ss") <= #07:59:59# Then

Com essa situação também não abre hora nenhuma.

tentei usando

If Format(Now, "hh:mm:ss") >= #11:00:00 AM# And Format(Now, "hh:mm:ss") <= #12:59:59 PM# And Format(Now, "hh:mm:ss") >= #17:00:00 PM# And Format(Now, "hh:mm:ss") <= #07:59:59 AM# Then

mas também não funciona...

Obrigado meus caros colegas:
Fábio Paes e Avelino,

Situação resolvida dessa maneira:

If Format(Now, "hh:mm:ss") >= #8:00:00 AM# And Format(Now, "hh:mm:ss") < #11:00:00 AM# Or Format(Now, "hh:mm:ss") >= #1:00:00 PM# And Format(Now, "hh:mm:ss") < #5:00:00 PM# Then


... ao invés de eu colocar a proibição dos horários eu coloquei os horários que o formulário poderia abrir.
Não sei se tem alguma coisa haver, mas funcionou, testado várias vezes e em vários horários.

Mais uma obrigado.

Paulo