[Resolvido]Condição If com horas

Caros Amigos

Tenho um controle de horas com os seguintes campos [HoraIni] e [HoraFim].
Para facilitar o trabalho de quem lança as horas eu gostaria de criar uma condição aonde;

Se a Hora Inicial for igual a 08:30 então a Hora Final é igual a 12:00
Se a Hora inicial for igual a 13:30 então a Hora Final é igual a 18:00

Tenho dificuldade no tratamento de Horas e as tentativas que fiz não deram certo.

Alguém pode me dar a melhor maneira de fazer essa condição funcionar?

Talvez, dependendo do caso...

No evento após atualizar

If me.HoraIni= 8:30 then
me.HoraFim.value = 12:00
End IF

Experimente, pois não testei.

Abraços

Olá..

Se for em formulário, então na Fonte de controle do campo HoraFim cole:
=SeImed(ÉNulo([HoraIni]);"";SeImed([HoraIni]=#08:30:00#;#12:00:00#;#18:00:00#))


Se for em consulta, então no campo HoraFim Cole:
HoraFim: SeImed(ÉNulo([HoraIni]);"";SeImed([HoraIni]=#08:30:00#;#12:00:00#;#18:00:00#))

então ao digitar 8:30 o camo HoraFim assume 12:00, se digitar qualquer hora diferente de 8:30 assume 18:00

Espero que seja isto

Abraços

Olá...

Desculpe Silvio, estava preparando o Exemplo e não percebi que tinha postado

Abraços

Tardesssss

Sem problemas Celso, esse é o espírito desse fórum......partilha !!

Abraços.

Caro Silvio e Celso Roberto

Testei as duas opções e a que solucionou meu caso de forma melhor foi a do Silvio com alterações que ví no exemplo do Celso.

O exemplo do Celso funciona também, porém, pode alterar dados já existentes e como ter acesso ao campo HoraFim para eventuais valores diferentes essa solução
não foi adotada.

No exemplo do Silvio ficou assim:

Private Sub HoraIni_AfterUpdate()

If Me.HoraIni = #8:30:00 AM# Then
Me.HoraFim.Value = #12:00:00 PM#
End If

If Me.HoraIni = #1:30:00 PM# Then
Me.HoraFim.Value = #6:00:00 PM#
End If

End Sub

Mais uma vez obrigado aos mestres Silvio e Celso Roberto.

BOM NATAL E UM PROSPERO ANO NOVO!!!

É isso ai mesmo, que bom que funcionou.

O fórum agradece o retorno.


Boas festas e feliz 2017.

Não consegui encerrar o post.

Vou tentar de novo.

Olá..

O importante é que deu certo.

Abraços