Bom dia grupo!
Estou com uma pequena pendência realcionada a uma fórmula If, a qual desejo verificar as horas para liberar campos em um formulário.
O erri se dar no intervalo de horas.Exemplo do que desejo:
08:00hs as 10:00hs ou 20:00hs as 22:00hs liberar os campos desejados ao carregar formulário.
Estou com uma pequena pendência realcionada a uma fórmula If, a qual desejo verificar as horas para liberar campos em um formulário.
O erri se dar no intervalo de horas.Exemplo do que desejo:
08:00hs as 10:00hs ou 20:00hs as 22:00hs liberar os campos desejados ao carregar formulário.
- Código:
Dim hora As String
hora = Format(Me.txtHora, "hh:mm:ss AMPM")
If hora = #8:00:00 AM# <= #10:00:00 AM# Or hora = #8:00:00 PM# <= #10:00:00 PM# Then
Me.txt8P1.Enabled = True
Me.txt8P2.Enabled = True
ElseIf hora = #11:00:00 AM# <= #12:00:00 PM# Or hora = #11:00:00 PM# <= #12:00:00 AM# Then
Me.txt11P1.Enabled = True
Me.txt11P2.Enabled = True
Else
DoCmd.CancelEvent
End If
End Sub
Última edição por Fabrícia Lima em Sáb 18 Jun - 8:06, editado 1 vez(es)