Try this code behind form2. After 2 minutes, all open forms will be closed and form1 opened.
Code:
Option Compare Database
Option Explicit
'form (module) level counter
Private mlMins As Long
Private Sub Command0_Click()
DoCmd.OpenForm "Form3", acNormal
End Sub
Private Sub Form_Timer()
mlMins = mlMins + 1
If mlMins = 2 Then
'DoCmd.Close
Call CloseAllForms
DoCmd.OpenForm "Form1", acNormal
End If
End Sub
Public Sub ResetTimer()
Me.TimerInterval = 0
Me.TimerInterval = 60000
mlMins = 0
End Sub
Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ResetTimer
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
ResetTimer
End Sub
Private Sub CloseAllForms()
Dim obj As AccessObject
For Each obj In CurrentProject.AllForms
If obj.IsLoaded Then DoCmd.Close acForm, obj.Name
Next
End Sub