[Resolvido]Trancar formulário entre horário determinado

boa tarde!
Gostaria de saber se existe como trancar um formulário entre 13:30 as 19:00hrs,
tentei algumas formulas no VB, porém foi sem sucesso.

Poderiam me ajudar?

seguem formulas que já tentei e foi tentativa falha: (não sei se estão certas) auehaueh
"'Dim msg As Integer
'Dim contador
'contador = txbHora.Value
'While contador >= "08:54"
'Me.btn_limpapesq.Enable = False
'msg = MsgBox("programação fechada")
'While contador >= "09:00"
'btn_limpapesq.enable = True
'Wend
'Wend

'If txbHora.Value > 11:00 Then
   'btn_limpapesq.Enabled = False
  ' Else
   'btn_limpapesq.Enabled = True
'End If

'If txbHora.Value > "13:59:00" Then
'MsgBox ("zzzz"), vbOKOnly
'btn_limpapesq.Enabled = True

'ElseIf txbHora.Value > "14:49" Then
'MsgBox ("xxxxx"), vbOKOnly
'btn_limpapesq.Enabled = False
'End If

'
'Select Case (txbHora.Value)
'Case > 14:00 to  19:00
'MsgBox ("1"), vbOKOnly

'End Select

Boa tarde;
No evento ao carregar do formulário

Código:

If txt_time >= "13:30" And txt_time <= "19:00" Then
MsgBox "Programação fechada"
Else
MsgBox "liberado"
End If

Um exemplo, a partir dai pode atribuir as ações que necessita.

Tenta usar da seguinte maneira:

if Time > "13:30" and time <= "19:00"

E para habilitar e desabilitar botões entre estes horários?
tentei:
btnbotao.enabled=false (funcionou)

o problema no geral é voltar o botão pra ativa depois do horário.

If txt_time >= "13:30" And txt_time <= "19:00" Then
btnbotao.enabled = false
Else
btnbotao.enabled = true
End If

ficaria assim? Pois tentei e não foi

Boa noite,

Coloque então o comando no evento No Timer

Código:

Private Sub Form_Timer()
Me.txt_time.Requery
If txt_time >= "13:30" And txt_time <= "19:00" Then
btnbotao.Enabled = False
Else
btnbotao.Enabled = True
End If
End Sub

Em intervalo do cronometro 1000

O código com o timer funcionou, agora verifiquei outro problema.

O meu projeto consiste em adicionar atividades no intervalo da semana,por exemplo entre os dias 6 a 10, porém apartir das 13 horas, não podemos mais adicionar nada para o dia seguinte.

O problema é que este codigo:
"Private Sub Form_Timer()
Me.txt_time.Requery
If txt_time >= "13:30" And txt_time <= "19:00" Then
btnbotao.Enabled = False
Else
btnbotao.Enabled = True
End If
End Sub"

é que bloqueia o botão em todos os dias, sendo que só precisamos bloquear para o dia seguinte, no caso de hoje (08/08) seria bloqueado as 13 horas o botão do dia (09/08), porém de todos os outros ainda estaria disponível.

Caso eu esteja embolando as coisas, pode falar que tento explicar melhor kkk

Obrigado a cada um pela ajuda!

obs:  tem como fazer resposta de post? eu não achei onde é kk

Tudo tem solução, mas depende muito de como é sua aplicação.

Onde está a data? Onde está botão?

Bom dia!
Data e hora estão no formulário principal e botão de adicionar no subformulário.

Tem como colocar esta parte do BD para verificarmos?

Tem sim, o problema é que não sei qual parte exatamente mandar.

Essa imagem já te ajuda?

Não tinha ido a imagem, segue abaixo.

Primeiramente: dá para tirar o <=19.

Sobre a data, pelo que eu entendi tem que colocar ela no if:

Código:

If txt_time >= "13:30" And txt_date <= Date+1 Then
  btnbotao.Enabled = False
Else
  btnbotao.Enabled = True
End If

Sendo que txt_date é o campo com a data que deseja verificar.

Da para retirar o 19hrs? dai ele vai bloquear até 00hrs?

Vou testar este método que me passou e volto com retorno. (meu pc no trabalho deu pau, jájá respondo vcs)

Não funcionou, com o comando:
If txt_time >= "13:30" And txt_date <= Date+1 Then
  btnbotao.Enabled = False
Else
  btnbotao.Enabled = True
End If

ele bloqueia de todos os registros e não somente do dia seguinte, o formulário é continuo, então quando eu coloco ao atualizar,ao modificar,ao clicar, ele bloqueia tudo.

Não sei mais o que fazer para bloquear

segue código utilizado no botão de salvar:

Código:

Private Sub btnTeste_Click()
'para nulo, não há como aplicar select case/switch
If IsNull(dataServ) Then
MsgBox "Favor preencher a data de solicitação", vbOKOnly
            dataServ.SetFocus
            ElseIf IsNull(newRequisitante) Then
                MsgBox "Favor preencher campo requisitante", vbOKOnly
                    newRequisitante.SetFocus
                        ElseIf dataProv <= txbdata_hoje Then
                        MsgBox "Não é possivel adicionar nesta data.", vbOKOnly
                        dataServ = Null
                        newRequisitante = Null
                                                      
Else

 Select Case (dataServ)
                  
    
    Case Is = dataBD.Value
    dataServ = Null
    newRequisitante = Null
    MsgBox "Atividade já na programação.", vbOKOnly
    
    Case Is <> dataBD.Value
    Cadastrar
    dataServ = Null
    newRequisitante = Null
    MsgBox "Atividade solicitada com sucesso", vbOKOnly
    

End Select

End If

End Sub


eu consigo fazer esse esquema do horario com o select case?

Alguem?

Eu não sou muito bom em formluários contínuos.

A minha sugestão é colocar o código no evento "Ao pintar" do formulário. Tenho algo aqui que funciona semelhante ao que vocÊ precisa.

Entendo, eu coloquei o primeiro código que falamos aqui.

Deixei o form fechado das 13:30 às 14:30 porém ele fecha geral, de todos os dias.

Vou por como Resolvido até então.

Obrigado a todos!

.