Discussion :

[nemog]

Bonjour à tous,

Je veux que ma base se ferme toute seule au bout d'un certain temps
J'ai donc co(pié-coller)dé une fermeture automatique sur le formulaire d' accueil de la base (qui est toujours ouvert en usage normal)

Ca marche ! (évènement sur Timer et inscription de la valeur du timer dans les propriétés du formulaire)

Mais : je voudrais que , dans un autre formulaire de la base, l'utilisateur puisse régler ce timer
J'ai donc codé sur un bouton/clic, puis inputbox une entrée de valeur et ça se termine par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Forms!FormAccueil.TimerInterval=rep

(rep étant la nouvelle valeur)

le problème, c'est que ça n’écrit pas la nouvelle valeur dans les propriétés du formulaire
Ca marche donc une fois, la base se ferme et au redémarrage le timer reprend la valeur inscrite dans les propriétés du formulaire

Peut-on corriger ça ?

Merci d' avance

Nemog

[User]

Bonjour,

Il faudrait sauvegarder cette valeur dans une table :

Tu récupères la valeur de l'input que tu copies dans une table à l'aide d'une requête mise à jour ou insertion, ou en utilisant un recordset.

Ensuite, après ouverture de la base tu récupères la valeur contenue dans la table, par exemple en utilisant à nouveau un recordset ou une fonction de domaine.

Cordialement.

[User]

Bonjour,

Je te donne un exemple..

I. Eléments du système

On a donc dans le formulaire de paramétrage de l'intervalle de minuterie :

• une zone de texte zdtIntervalleMinuterie
• un bouton btnValider pour valider la saisie

On a également une table T_IntervalleMinuterie avec un champ IntervalleMinuterie de type entier long. Cette table contient une valeur par défaut (ex. 1000 (ms))


II. Code sur le formulaire de paramétrage

Sur l'événement clic du bouton btnValider :

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
Private Sub btnValider_Click()
    Dim rst As DAO.Recordset
    'ouvre le recordset basé sur la table T_IntervalleTimer : 1 enregistrement contenant la valeur de l'intervalle de minuterie
    Set rst = CurrentDb.OpenRecordset("T_IntervalleMinuterie")
 
    rst.Edit ' enregistrement dans la table de la valeur saisie dans la zone de texte
    rst!IntervalleMinuterie = Nz(Me.zdtIntervalleMinuterie, 0)
    rst.Update
 
    ' paramétrage de l'intervalle de minuterie du formulaire d'accueil
    Forms!FormAccueil.TimerInterval = Nz(Me.zdtIntervalleMinuterie, 0)
 
    ' fermeture et libération de la variable
    rst.Close
    Set rst = Nothing
 
End Sub

Sur ouverture du formulaire de paramétrage, on copie la valeur de la table dans la zone de texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Form_Open(Cancel As Integer)
    ' copie de la valeur dans la zone de texte du formulaire
    Me.zdtIntervalleMinuterie =  DLookup("IntervalleMinuterie", "T_IntervalleMinuterie")
End Sub

III. Code au niveau du formulaire d'accueil

Sur ouverture du formulaire d'accueil FormAccueil, on met à jour sa propriété TimerInterval :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Form_Open(Cancel As Integer)
    ' copie de la valeur de la table sur la propriété TimerInterval du formulaire d'accueil
    Me.TimerInterval = DLookup("IntervalleMinuterie", "T_IntervalleMinuterie")
End Sub

Cordialement.

[nemog]

Merci @user !

Effectivement, des solutions que tu me proposes, la plus simple (pour moi) est
de mettre la nouvelle valeur dans une table (que je vide au préalable) et d'inscrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.TimerInterval = Dfirst("Nouvelle Valeur","TableTimer")

dans le load() de FormAccueil ( je n'ai pas saisi la différence avec "Open()"

Lequel doit être fermé et rouvert pour prendre en compte la nouvelle valeur (si on ne veut pas fermer et rouvrir la base)

Merci encore