Discussion :

[Icamstudent]

Bonjour à tous,

Je fais suite à la création d'un minuteur sur un formulaire. Aujourd'hui mon problème concerne l'enregistrement de la valeur du minuteur lorsque j'appuie sur un bouton. J'aimerai simplement que lorsque je clique sur ce bouton, cela m'enregistre la valeur de mon étiquette "Minuteur" en temps réel.

Tout d'abord lorsque je clique sur ce fameux bouton un code VBA s’exécute pour reset le timer à 0.
Puis je cherchais à passer par une requête pour enregistrer la valeur du minuteur. Je vous joints une image de ma requête et l'option "minuteur" se situe dans la colonne surlignée en jaune. La cellule mise à jour pose problème puisqu'une fois que je clique sur le bouton rien ne change. Voici l'expression que j'ai inséré :

[Formulaires]![4-Gestion Commande]![Minuteur]

J'ai essayé de remplacer cette ligne par "1" et une fois que je clique sur le bouton ça se mets bien à jour avec la donnée "1" dans ma table Données Sources.

Peut-être que mon problème vient du fait que j'utilise une étiquette au lieu d'une zone de texte mais cela me paraît trop approximatifs, j'ai besoin de votre avis.

Je vous remercie par avance !

[bertiny]

Bonjour.
As-tu essayé de remplacer ton étiquette minuteur par une zone de texte ?
Peux-tu nous montrer le code VBA dont tu parles ?

[Icamstudent]

Bonjour bertiny,

Oui je viens d'essayer pour la zone de texte, pareil je n'obtiens aucun résultat...
Bien sur voici mon code ; la requête "R_Terminé" correspond à l'image mentionné dans mon premier message. Aussi, Loops remet mon compteur à 0 (CF précédent poste)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Btn_terminé_Click()
 
    If (MsgBox("Confirmer la commande ?", 4) = 6) Then
        Me.TimerInterval = 0
        DoCmd.OpenQuery "R_Terminé", acViewNormal, acEdit
        DoCmd.RefreshRecord
        Loops = 0
    End If
 
End Sub

Peut-être que je pourrais une fois encore jouer avec le paramètre Loops mais d'un premier regard je n'ai aucune idée de comment faire...

[Icamstudent]

Rebonjour,

Je viens d'avoir un début de réponse en créant une zone de texte dans lequel la valeur affichée est celle de Loops (et donc j'obtiens mon décompte à l'envers). La requête fonctionne bien cette fois-ci ! Maintenant j'aurai quand même bien aimé savoir pourquoi cela n'a pas marché avec mon étiquette (test 1) ou ma zone de texte (test 2) Minuteur... Cela me paraît quand même très étrange...
Merci ! Très bonne journée

[tee_grandbois]

bonsoir,

Maintenant j'aurai quand même bien aimé savoir pourquoi cela n'a pas marché avec mon étiquette

avec une étiquette le texte se trouve dans la Légende (Caption en US)

Code :

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

Formulaires]![4-Gestion Commande]![Minuteur].Légende