Doorlopende tijd

[Nickdude]

Ik wil op een form een tijd hebben staan die doorloopt...dus niet een moment opnamen, maar de actuele tijd
Wie kan mij hiermee helpen?

 

[AB007]

Maak een nieuw teskstvak aan op formulier noem hem InvTd (invoeren tijd) en laat hem vullen met actuele tijd, dus besturingselementbron =time()
Wil je de secondes niet in beeld, maar alleen uren en minuten doe dan besturingselementbron =formatdatetime(time();4)

vervolgens plaats je onderstaande code in het formulier
Private Sub Form_Timer()
invTd.Requery
End Sub

Als laatste vul je nog de timerinterval in millisecondes in.

 

[vanzwam]

Waarom het nu moelijk maken als het makkelijk ook gaat.

Maak een onafhankelijk veld op je formulier. Bij gegevensbron zet je = Now() ,Bij invoermasket kies voor lange tijdsnotatie.
Simpel.

 

[AB007]

Tijd loopt dan niet!
Geeft tijd weer als formulier wordt geopend en veranderd daarna niet tenzij je requery gebruikt

 

[vanzwam]

Tijd loopt dan niet!
Geeft tijd weer als formulier wordt geopend en veranderd daarna niet tenzij je requery gebruikt

Toch wel, want als je het formulier sluit en terug opent, is de tijd veranderd. Tenzij TS natuurlijk om de paar seconden, bij een geopend formulier, dit wil veranderen. Dan heb je id een timeinterval en een requery nodig.

 

[AB007]

Als je opent en sluit voert hij zelf requery uit!

 

[vanzwam]

Als je opent en sluit voert hij zelf requery uit!

Zover ben ik ook gevorderd in acces.

 

[Bartuls]

Zie de oorspronkelijke vraag:

Ik wil op een form een tijd hebben staan die doorloopt...dus niet een moment opnamen, maar de actuele tijd.

De oplossing van AB007 is de enige juiste. De oplossing van vanzwam is geen oplossing voor de gestelde vraag.

 

[AB007]

Dankje Bartuls!:thumb: word ik nu ook meteen iets anders dan Junior member

 

[Chrisss]

Hey tof, ik vroeg me al eens af hoe dat moest!
Zou het nu ook mogelijk zijn om nog een veldje er onder te maken, waarin je een tijd invult, en dat als het 'klokje' deze tijd heeft bereikt een macro wordt geäctiveerd?

 

[AB007]

macro of query?

Moet mogelijk zijn.

Krijg je iets in de richting van:
extra tekstvak op formulier maken genaamd 'invtd2'

en dan iets van volgende code na het requeryen van invtd!
if invtd.value = invtd2.value then docmd.runqeury "querynaam" d

 

[Chrisss]

ik heb een macro die een aantal query's uitvoert,
nu zou ik willen dat ik 's avonds een tijd voor morgenvroeg ingeef, dat ik de computer aan laat staan en dat als de door mij ingegeven tijd is bereikt de macro gaat lopen zonder dat ik op dat moment aanwezig hoef te zijn...
zou dat mogelijk zijn?

 

[AB007]

macro of query?

Moet mogelijk zijn.

Krijg je iets in de richting van:
extra tekstvak op formulier maken genaamd 'invtd2'

en dan iets van volgende code na het requeryen van invtd!
if invtd.value = invtd2.value then docmd.runqeury "querynaam" d

Je laat invtd2 vullen met je gewenste tijd.
Je zet de timerinterval op 1 seconde
Hij requeryd het formulier dan elke seconde en zodra invtd.value = invtd2.value dan gaat hij jou macro uitvoeren!
docmd.runquery wordt dan docmd.runmacro btw!

 

[Chrisss]

misschien nou niet zo'n intelligente vraag, maar waar typ ik die code in?

 

[AB007]

Er zijn geen domme vragen!

Private Sub Form_Timer()
invTd.Requery: if invtd.value = invtd2.value then docmd.runmacro "macronaam"
End Sub

onder de form timer dus:thumb:

 

[Chrisss]

HET WERKT!!
Thanx! Ben ik (en mijn baas....) heel blij mee!

 

[AB007]

Mooi zo succes ermee!