Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Timer

Timer

4 réponses
Avatar
TOF
Bonjour,

J'ai unepetite application en couors ! !

J'ai besoin de réaliser un chronomètre. Je voudrai simplement ouvrir dans un
premier temps un formulaire ou apparait une "zone de texte" dans laquelle je
verrai un décompte du temps sur 60 secondes.

Pourriez vous me donner quelques billes pour commencer à réaliser cette
opération !

Merci !
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Charles ERNST
Private Sub Form_Activate()
Me.TimerInterval = 1000
Me("Zone de texte") = 60
End Sub


Private Sub Form_Timer()
Me("Zone de texte") = Me("Zone de texte") - 1
If Me("Zone de texte") = 0 Then Me.TimerInterval = 0
End Sub



"TOF" a écrit dans le message de news:

Bonjour,

J'ai unepetite application en couors ! !

J'ai besoin de réaliser un chronomètre. Je voudrai simplement ouvrir dans
un
premier temps un formulaire ou apparait une "zone de texte" dans laquelle
je
verrai un décompte du temps sur 60 secondes.

Pourriez vous me donner quelques billes pour commencer à réaliser cette
opération !

Merci !


Avatar
TOF
Merci, cela marche très bien ! !

A+


Private Sub Form_Activate()
Me.TimerInterval = 1000
Me("Zone de texte") = 60
End Sub


Private Sub Form_Timer()
Me("Zone de texte") = Me("Zone de texte") - 1
If Me("Zone de texte") = 0 Then Me.TimerInterval = 0
End Sub



"TOF" a écrit dans le message de news:

Bonjour,

J'ai unepetite application en couors ! !

J'ai besoin de réaliser un chronomètre. Je voudrai simplement ouvrir dans
un
premier temps un formulaire ou apparait une "zone de texte" dans laquelle
je
verrai un décompte du temps sur 60 secondes.

Pourriez vous me donner quelques billes pour commencer à réaliser cette
opération !

Merci !







Avatar
TOF
Si je veux maintenant que le compteur se remmette à 60s quand il atteind 0.
Faire une boucle en somme !?







Private Sub Form_Activate()
Me.TimerInterval = 1000
Me("Zone de texte") = 60
End Sub


Private Sub Form_Timer()
Me("Zone de texte") = Me("Zone de texte") - 1
If Me("Zone de texte") = 0 Then Me.TimerInterval = 0
End Sub



"TOF" a écrit dans le message de news:

Bonjour,

J'ai unepetite application en couors ! !

J'ai besoin de réaliser un chronomètre. Je voudrai simplement ouvrir dans
un
premier temps un formulaire ou apparait une "zone de texte" dans laquelle
je
verrai un décompte du temps sur 60 secondes.

Pourriez vous me donner quelques billes pour commencer à réaliser cette
opération !

Merci !







Avatar
Charles ERNST
Private Sub Form_Activate()
Me.TimerInterval = 1000
Me("Zone de texte") = 60
End Sub


Private Sub Form_Timer()
Me("Zone de texte") = Me("Zone de texte") - 1
If Me("Zone de texte") = -1 Then Me("Zone de texte") = 60
End Sub


"TOF" a écrit dans le message de news:

Si je veux maintenant que le compteur se remmette à 60s quand il atteind
0.
Faire une boucle en somme !?







Private Sub Form_Activate()
Me.TimerInterval = 1000
Me("Zone de texte") = 60
End Sub


Private Sub Form_Timer()
Me("Zone de texte") = Me("Zone de texte") - 1
If Me("Zone de texte") = 0 Then Me.TimerInterval = 0
End Sub



"TOF" a écrit dans le message de news:

Bonjour,

J'ai unepetite application en couors ! !

J'ai besoin de réaliser un chronomètre. Je voudrai simplement ouvrir
dans
un
premier temps un formulaire ou apparait une "zone de texte" dans
laquelle
je
verrai un décompte du temps sur 60 secondes.

Pourriez vous me donner quelques billes pour commencer à réaliser cette
opération !

Merci !