Lukke Access ved inaktivitet
Jeg har søgt og afprøvet nogle forskellige koder..Ønsker at Access skal selv lukke ned, når programmet ikke har været aktivt en angiven tid.
Den kode jeg prøvede med mindst fejlmeldinger var:
(Fejlmelding lyder på "Metod or data wrong or missing)
Private Sub Form_Load()
If TempVars!IdleTime <> "" Then
Me.Label1.Caption = "Access has been idle for " & TempVars!IdleTime & " minutes."
End If
End Sub
Private Sub Form_Timer()
' GRACEMINUTES determines how much idle time to count down once this form
' is opened before quitting the Access application.
Const GRACEMINUTES = 1
Static ElapsedTime As Integer
Dim TimeRemaining As Integer
Dim intMinutes As Integer
Dim intSeconds As Integer
Dim strTimePassed As String
Dim strOutput As String
On Error Resume Next
ElapsedTime = ElapsedTime + 1 ' Counts seconds instead of milliseconds.
ElapsedMinutes = ElapsedTime / 60
TimeRemaining = (GRACEMINUTES * 60) - ElapsedTime
' Has the countdown timer run out?
If TimeRemaining <= 0 Or Not IsNumeric(TimeRemaining) Then
' ...if so, then exit Access.
strOutput = "0:00"
Application.Quit acSaveNo
Else
intMinutes = Fix(TimeRemaining / 60)
intSeconds = TimeRemaining - (intMinutes * 60)
strOutput = Format(intMinutes, "0") & ":" & Format(intSeconds, "00")
End If
strTimePassed = Format(TempVars!IdleTime + Fix(ElapsedMinutes), "0")
Me.Label1.Caption = "Access has been idle for " & strTimePassed & " minutes."
Me.Label3.Caption = "Auto shutdown timer: " & strOutput
End Sub