Petit problème de timer (modification de ce dernier)

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:

---

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

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.

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:

---

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:

---

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:

---

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.

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:

---

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 :)