Boa tarde!
Tenho um formulário de contagem regressiva que, assim que abre, começa a contar de '00:10:00' (10 minutos) até o '0' (zero), sendo que, ao chegar no '0' (zero), fecha o BD.
Até então perfeito, porém eu gostaria que, quando faltassem 2 minutos pra terminar a contagem, exibisse uma mensagem de aviso "O sistema irá encerrar em 2 minutos! Salve suas atividades."
______________________________________________________________________
No evento 'Ao carregar' do formulário tenho o código:
Me.Texto0 = "00:00:15"
Me.TimerInterval = 100
-----------------------------------------
No evento 'No timer' do formulário tenho o código:
Dim xHora, h As Integer
Dim xMinuto, m As Integer
Dim xSegundo, s As Integer
Dim x As Integer
xSegundo = Second(Texto0)
xMinuto = Minute(Texto0)
xHora = Hour(Texto0)
Me.TimerInterval = 1000
If xSegundo > 0 Then
xSegundo = xSegundo - 1
Else
xSegundo = 59
If xMinuto > 0 Then
xMinuto = xMinuto - 1
Else
xMinuto = 59
If xHora >= 0 Then
xHora = xHora - 1
End If
End If
End If
Me.Texto0 = Format(TimeSerial(xHora, xMinuto, xSegundo), "hh:mm:ss")
If xHora = 0 And xMinuto = 0 And xSegundo = 0 Then
Beep
Me.TimerInterval = 0
DoCmd.Close
DoCmd.OpenForm "Barra de Progresso Fechar Sistema"
End If
End Sub
----------------------------------------------------------------------------------------
Já tentei colocando, tanto no evento 'No timer' quanto no 'No atual' as duas opções de códigos abaixo:
1) Me.TimerInterval = "00:02:00"
'MsgBox "O sistema será encerrado em 2 minutos. Salve suas atividades!", vbExclamation + vbOKOnly, " Aviso"
2) If Me.Texto0 = "00:02:00" Then
'MsgBox "O sistema será encerrado em 2 minutos. Salve suas atividades!", vbExclamation + vbOKOnly, " Aviso"
... dentre outras várias outras formas, mas nenhuma funcionou!
Como fazer?
Tenho um formulário de contagem regressiva que, assim que abre, começa a contar de '00:10:00' (10 minutos) até o '0' (zero), sendo que, ao chegar no '0' (zero), fecha o BD.
Até então perfeito, porém eu gostaria que, quando faltassem 2 minutos pra terminar a contagem, exibisse uma mensagem de aviso "O sistema irá encerrar em 2 minutos! Salve suas atividades."
______________________________________________________________________
No evento 'Ao carregar' do formulário tenho o código:
Me.Texto0 = "00:00:15"
Me.TimerInterval = 100
-----------------------------------------
No evento 'No timer' do formulário tenho o código:
Dim xHora, h As Integer
Dim xMinuto, m As Integer
Dim xSegundo, s As Integer
Dim x As Integer
xSegundo = Second(Texto0)
xMinuto = Minute(Texto0)
xHora = Hour(Texto0)
Me.TimerInterval = 1000
If xSegundo > 0 Then
xSegundo = xSegundo - 1
Else
xSegundo = 59
If xMinuto > 0 Then
xMinuto = xMinuto - 1
Else
xMinuto = 59
If xHora >= 0 Then
xHora = xHora - 1
End If
End If
End If
Me.Texto0 = Format(TimeSerial(xHora, xMinuto, xSegundo), "hh:mm:ss")
If xHora = 0 And xMinuto = 0 And xSegundo = 0 Then
Beep
Me.TimerInterval = 0
DoCmd.Close
DoCmd.OpenForm "Barra de Progresso Fechar Sistema"
End If
End Sub
----------------------------------------------------------------------------------------
Já tentei colocando, tanto no evento 'No timer' quanto no 'No atual' as duas opções de códigos abaixo:
1) Me.TimerInterval = "00:02:00"
'MsgBox "O sistema será encerrado em 2 minutos. Salve suas atividades!", vbExclamation + vbOKOnly, " Aviso"
2) If Me.Texto0 = "00:02:00" Then
'MsgBox "O sistema será encerrado em 2 minutos. Salve suas atividades!", vbExclamation + vbOKOnly, " Aviso"
... dentre outras várias outras formas, mas nenhuma funcionou!
Como fazer?