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
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