pb chrono

[reno2a]

salut a tous
j’ai un petit pb avec un chrono
voila le code que j’ai rentre et cela marche

Public chrono
_______________________
Private Sub cmbgo_Click()
chrono = Now() - [b2]
Do
[b2] = Now() - chrono
DoEvents
Loop
End Sub
_______________________________
Private Sub cmbraz_Click()
[b2] = 0
End Sub
_________________________________
Private Sub cmbstop_Click()
chrono = [b2]
End
End Sub
_______________________________
mais ce que je n’arrive pas a faire c’est que le chrono s’arrête au bout de 3 minutes.
si qu’elqu’un a la solution cela m’arrangerais
merci d’avance

 

[BERRACHED said]

Re : pb chrono

Salut,reno2a

Voir ce Lien il pourra répondre a votre question :
Ce lien n'existe plus

Aussi si tu nous avais donner un fichier exemple tu ne sera que mieux servi

Cordialement

 

[kjin]

Re : pb chrono

Bonsoir,
Peut être comme ceci

Private Sub cmbgo_Click()
chrono = Now() - [b2]
Do While [b2] < TimeValue("00:03:00")
[b2] = Now() - chrono
DoEvents
Loop
End Sub

A+
kjin

 

[reno2a]

Re : pb chrono

salut a tous
kjin merci pour la réponse c'est ce que je voulais
ca marche bien
a+ et encore merci a tous