Afficher le temps qui s'écoule

[0_Azerty_0]

J"ai lu cette discussion.

@ jfontaine

J'ai essayé ton code , mais il ne fonctionne pas chez moi, une erreur a du s'y glisser, une idée ?
J'appelle la fonction à l'ouverture d'un formulaire, et elle est sensée mettre à jour un champ : car
Il me sort une erreur d'execution

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub car()
 
    Dim H As Date
 
    H = TimeValue("0:1:0")
    Me!car = Format(H, "HH:MM:SS")
 
    Do While Me!car <> "00:00:00"
        DoEvents
        Application.Wait Now + TimeValue("0:0:1")
        H = H - TimeValue("0:0:1")
        Me!car = Format(H, "HH:MM:SS")
        DoEvents
    Loop
End Sub

[jfontaine]

Il me sort une erreur d'execution

Quelle erreur ?

Tu es sous access non? (Me!car)
Es tu sur que "Format(H, "HH:MM:SS")" est le format de donnée attendu ?

[0_Azerty_0]

Code erreur 2501 : L'action OpenForm est annulée.

J'ai pas précisé parce que le problème vient pas de là.
La procédure "car" est appelée à l'ouverture d'un Formulaire, d'ou le code erreur inadéquat.

Oui, je suis effectivement sous Access 2007.
Quand au format attendu dans le champ, j'ai sélectionné Heure, complet de type : HH:MM:SS