Olá
Na pesquisa aqui no forum consegui encontrar este código abaixo que funciona perfeito, mas eu gostaria que fechasse todos os formulários abertos e retornasse ao frmLogin
Fecha somente o formulário em questão
Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.lblTempo.Caption = "00:00:00"
End Sub
Private Sub Form_Timer()
'By JPaulo Maximo Access
Static strHora As Integer
Static strMinutos As Integer
Static strSegundos As Integer
If Trim(lblTempo.Caption) = "00:00:00" Then
strHora = 0
strMinutos = 0
strSegundos = 0
End If
strSegundos = strSegundos + 1
If strSegundos = 60 Then
strSegundos = 0
strMinutos = strMinutos + 1
If strMinutos = 60 Then
strMinutos = 0
strHora = strHora + 1
If strHora = 24 Then
strHora = 0
End If
End If
End If
lblTempo.Caption = Format(strHora, "00") & ":" & _
Format(strMinutos, "00") & ":" & _
Format(strSegundos, "00")
'tempo de inatividade do banco para encerramento, aqui o exemplo são de 1 minuto
If lblTempo.Caption = "00:01:00" Then
'Dim Msg As String
' Msg = "Sem usuário ativo detectado," & vbCrLf & "Tempo expirado"
' MsgBox Msg, vbInformation
DoCmd.Close
DoCmd.OpenForm "formulário1"
'DoCmd.Quit acQuitSaveAll
End If
End Sub
Na pesquisa aqui no forum consegui encontrar este código abaixo que funciona perfeito, mas eu gostaria que fechasse todos os formulários abertos e retornasse ao frmLogin
Fecha somente o formulário em questão
Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.lblTempo.Caption = "00:00:00"
End Sub
Private Sub Form_Timer()
'By JPaulo Maximo Access
Static strHora As Integer
Static strMinutos As Integer
Static strSegundos As Integer
If Trim(lblTempo.Caption) = "00:00:00" Then
strHora = 0
strMinutos = 0
strSegundos = 0
End If
strSegundos = strSegundos + 1
If strSegundos = 60 Then
strSegundos = 0
strMinutos = strMinutos + 1
If strMinutos = 60 Then
strMinutos = 0
strHora = strHora + 1
If strHora = 24 Then
strHora = 0
End If
End If
End If
lblTempo.Caption = Format(strHora, "00") & ":" & _
Format(strMinutos, "00") & ":" & _
Format(strSegundos, "00")
'tempo de inatividade do banco para encerramento, aqui o exemplo são de 1 minuto
If lblTempo.Caption = "00:01:00" Then
'Dim Msg As String
' Msg = "Sem usuário ativo detectado," & vbCrLf & "Tempo expirado"
' MsgBox Msg, vbInformation
DoCmd.Close
DoCmd.OpenForm "formulário1"
'DoCmd.Quit acQuitSaveAll
End If
End Sub