Zegar liczacy w tyl

Otrzymalem oto taki kod zegara liczacego w tyl.Ale nie iwdac aby sie odswiezal.To znaczy nie widac ze odlicza ten czas.Nie wiem czemu.Zna ktos odpowiedz.Pozdro i dzieki dla Panczo:

Dim start As Date
Dim teraz As Date
Dim roznica As Integer
'ustawienie daty poczatkowej
start = Now

'wejscie w petle wykonywana prze 1200 sekund = 20 minut

Do Until roznica = 1200
' pobranie aktualnergo czasu
teraz = Now
'przypisanie do zmiennej roznica - różnicy czasów w sekundach
roznica = DateDiff("s", start, teraz)
' wpisanie odliczonego czasu do pola tekstowego "timer"
Me.timer = roznica
' Ponowne odrysowanie formularza, bo przy pętlach użytkownik nie widzi zmian...
Me.Repaint
Loop

A odlicza się w ogóle? Może cos nie tak zrobiłeś.
Jaka wersja Accessa?
jak wklejasz kod w VBA to zaznacz linijke "start = now" klawiszem F9
Później wróć do formularza i kliknij przycisk do którego wstawiłeś kod.
Klawiszem F8 przechodzisz kolejno linijki i zobacz czy się wykonuje i czy masz pole tekstowe o nazwie "timer" na tym formulaarzu...

Oki działa ale liczy do przodu tzn. od zera do 1200.A jak zrobic zeby liczyl do tylu ??

krisby napisał(a)

Oki działa ale liczy do przodu tzn. od zera do 1200.A jak zrobic zeby liczyl do tylu ??

Krisby to matyka na poziomie podstawowym po prostu zmodyfikuj linijkę:

Me.timer = roznica

na:

Me.timer = 1200 - roznica