Bonjour,
J'ai créé une base de donnée access avec fermeture automatique àprés 2 minute si il y a inactivité, je souhaiterais y ajouter une message du type " La base de donnée va se fermer dans 30 seconde"....
voici mes codes:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Sub Form_Timer()
   ' IDLEMINUTES determines how much idle time to wait for before
   ' running the IdleTimeDetected subroutine.
   Const IDLEMINUTES = 2
 
   Static PrevControlName As String
   Static PrevFormName As String
   Static ExpiredTime
 
   Dim ActiveFormName As String
   Dim ActiveControlName As String
   Dim ExpiredMinutes
 
   On Error Resume Next
 
   ' Get the active form and control name.
 
   ActiveFormName = Screen.ActiveForm.Name
   If Err Then
      ActiveFormName = "No Active Form"
      Err = 0
   End If
 
   ActiveControlName = Screen.ActiveControl.Name
      If Err Then
      ActiveControlName = "No Active Control"
      Err = 0
   End If
 
   ' Record the current active names and reset ExpiredTime if:
   '    1. They have not been recorded yet (code is running
   '       for the first time).
   '    2. The previous names are different than the current ones
   '       (the user has done something different during the timer
   '        interval).
   If (PrevControlName = "") Or (PrevFormName = "") _
     Or (ActiveFormName <> PrevFormName) _
     Or (ActiveControlName <> PrevControlName) Then
      PrevControlName = ActiveControlName
      PrevFormName = ActiveFormName
      ExpiredTime = 0
   Else
      ' ...otherwise the user was idle during the time interval, so
      ' increment the total expired time.
      ExpiredTime = ExpiredTime + Me.TimerInterval
   End If
 
   ' Does the total expired time exceed the IDLEMINUTES?
   ExpiredMinutes = (ExpiredTime / 1000) / 60
   If ExpiredMinutes >= IDLEMINUTES Then
      ' ...if so, then reset the expired time to zero...
      ExpiredTime = 0
      ' ...and call the IdleTimeDetected subroutine.
      IdleTimeDetected ExpiredMinutes
   End If
 
 
 
End Sub
et le module:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub IdleTimeDetected(ExpiredMinutes)
 
   Application.Quit acSaveYes
 
End Sub
Je suis malheureusement débutant....


Merci de votre aide


Denis