Boas Feras! Estou com uma dúvida e gostaria de esclarecer no fórum e se possível alguem me ajudar:
Estou criando um sistema para portaria de condomínio e tenho no caso de entrega (Mercadoria, Lanche, etc...) preencho um formulário que contem um campo (Hora_Entrada), (Hora_Saída) e neste mesmo tem um campo de permanência (Caixa de texto com a origem =[Hora_Entrada]-[Hora_Saida] todos com formato data geral. Até aqui beleza. Retorna o resultado ok. Agora queria ir mais além Obs: Todas as informações ficam visíveis em sub form dentro deste formulário computando todas as entregas. Vamos lá:
Queria que quando a Hora de Entrada menos a (Hora do sistema - =Now())fosse maior do que 00:05 (Cinco minutos) ficasse piscando (Alertando) esta Hora de Entrada em questão para que o porteiro verificasse porque a demora da entrega. Fiz desta maneira:
No Intervalo do Cronômetro
If (Me.Hora_Entrada)-Now())>Format("h:m","00:05")then
me.Hora_Entrada.Visible = Not Me.Hora_Entrada.Visible
End If
No Timer:
500
Funciona, mas ele pisca todos os lançamentos que tenho no subForm e queria que ficasse piscando somente o que ultrapassar o tempo e que a hora de saída esteja em branco.
Não tentei ainda, mas seria o fato de complementar a expressão abaixo?
If (Me.Hora_Entrada)-Now())>Format("h:m","00:05") And IsNull (Me.Hora_Saída)then
me.Hora_Entrada.Visible = Not Me.Hora_Entrada.Visible
End If
Fico no agaurdo de alguma ajuda...
Estou criando um sistema para portaria de condomínio e tenho no caso de entrega (Mercadoria, Lanche, etc...) preencho um formulário que contem um campo (Hora_Entrada), (Hora_Saída) e neste mesmo tem um campo de permanência (Caixa de texto com a origem =[Hora_Entrada]-[Hora_Saida] todos com formato data geral. Até aqui beleza. Retorna o resultado ok. Agora queria ir mais além Obs: Todas as informações ficam visíveis em sub form dentro deste formulário computando todas as entregas. Vamos lá:
Queria que quando a Hora de Entrada menos a (Hora do sistema - =Now())fosse maior do que 00:05 (Cinco minutos) ficasse piscando (Alertando) esta Hora de Entrada em questão para que o porteiro verificasse porque a demora da entrega. Fiz desta maneira:
No Intervalo do Cronômetro
If (Me.Hora_Entrada)-Now())>Format("h:m","00:05")then
me.Hora_Entrada.Visible = Not Me.Hora_Entrada.Visible
End If
No Timer:
500
Funciona, mas ele pisca todos os lançamentos que tenho no subForm e queria que ficasse piscando somente o que ultrapassar o tempo e que a hora de saída esteja em branco.
Não tentei ainda, mas seria o fato de complementar a expressão abaixo?
If (Me.Hora_Entrada)-Now())>Format("h:m","00:05") And IsNull (Me.Hora_Saída)then
me.Hora_Entrada.Visible = Not Me.Hora_Entrada.Visible
End If
Fico no agaurdo de alguma ajuda...
Última edição por APJesus em 13/7/2012, 19:21, editado 1 vez(es) (Motivo da edição : Complemento de código)