Use the OnTimer event of the form. Set the Timer interval to 5000 (for 5
seconds -- the timer interval is in milliseconds). In the form's OnTimer
event, use this code:
VBA Code:
Private Sub Form_Timer()
Me.TimerInterval = 0
DoCmd.Close acForm, Me.Name, acSaveNo
End Sub
or
Macro:
Action: SetValue
Control Name: Forms!FormName.TimerInterval
Expression: 0
Action: Close
Object: Form
Object Name: FormName
Save: No