Bonjour,
Je me permets de vous demander une aide sur le sujet de la minuterie sur Barre de Progression.
Comme je suis très novice, après quelques recherches j’ai fait une barre de progression qui semble fonctionner.
Sauf que j’ai des doutes sur le fonctionnement de la minuterie.
Car si je mets 250 sur Intervalle Minuterie Et Const Durée Inactivité = 10
Cà se déclenche à 1 mn environ OK
Mais si je mets Const Durée Inactivité = 300 et 250 sur Intervalle Minuterie
La base ne semble pas se refermer ou parfois vers 17 mn
Par contre si je mets : 1000 sur Intervalle Minuterie, et Const Durée Inactivité = 300
La base ne semble pas se refermer ?
Comment être sûre que la Base puisse se Fermer correctement à 30 Mn, car c’est le Temps d’inactivité que je souhaiterais avant que la Barre de progression se déclenche.
Si vous avez une idée pour améliorer ma Base
Screenshot ci-joint :
Cordialement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Option Compare Database Const Cadence_saisie = 5000 '1000 = 1 seconde - 5000 = 5 secondes Const Durée_Inactivité = 200 'en minutes
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub Form_Timer() 'Vérifier qu'il y a eu une saisie depuis la dernière seconde If IsNull(Me.NOM) Then 'on déclenche le chrono Chrono = Chrono + Cadence_saisie End If 'au bout de 10 minutes sans saisie If Chrono / 1000 / 60 > Durée_Inactivité Then DoCmd.OpenForm "F_TimerMaintenance" End If End Sub
Sur Module variable
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Option Compare Database Global Chrono As Long
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 Option Compare Database Option Explicit Dim I As Integer Private Sub Annuler_Click() Me.TimerInterval = 0 DoCmd.Close acForm, "F_TimerMaintenance" Chrono = 0 End Sub Private Sub Form_Current() Me.time = 20 Me.boite.Caption = "|" I = 0 End Sub Private Sub Form_Timer() Me.boite.Caption = Me.boite.Caption & "|" If Me.time > 0 Then If I = 4 Then Me.time = Me.time - 1 I = 0 Else I = I + 1 End If Else QUITTER_Click End If End Sub Private Sub QUITTER_Click() DoCmd.Quit End Sub
Partager