Private Sub Hora_AfterUpdate()
If [Hora] >= "08:00" Then
[Turno] = "1"
Else
If [Hora] <= "19:59" Then
[Turno] = "1"
Else
If [Hora] >= "20:00" Then
[Turno] = "2"
Else
If [Hora] <= "07:59" Then
[Turno] = "2"
End If
End Sub
Private Sub Turno_GotFocus()
IIF([HORA]>="08:00"&<="07:59",1,2)
End Sub