Tijd in Access

[SKVR]

Hallo,

Ik heb de tijd in een formulier toegevoegd -> =Time()

Maar bij deze lopen de secondes niet. Bijv. als ik het formulier sluit en open dan pas veranderen de secondes.

Ik wil dat elke seconde / minuut / uur de tijd gewijzigd wordt en dat dit te zien is als ik heel de tijd op 1 formulier blijf.
Weet iemand van jullie hoe dit moet?

 

[Guus2005]

Geen idee

 

[SKVR]

Guus2005 hoe heb je dat nou gedaan?

als ik de code bij mij plak dan doet die het niet?

de code moet toch in de tekstvak en niet op de formulier?
Als ik het op de formulier doe dan zie ik niks.

Als ik het in de tekstvak wil doen dan zie ik geen Form_Timer staan rechtsboven

 

[Guus2005]

De timer is een form event

Private Sub Form_Timer()
    Me.Refresh
End Sub

Omdat de controlsource van de tekstbox "=Time()" wordt de tijd iedere tijdsinterval (!) gereset.

De tijdsinterval "Timer" is een form property die je moet zetten op 1000 milliseconden.

Enjoy!

 

[SKVR]

Kun je het duidelijker uitleggen.
waar en hoe doe ik dit precies?

waar moet ik 1000 zetten?

Wat ik heb gedaan:

ik doe rechtermuis op de formulier..
gebeurtennis opbouwen (programmataal)
vervolgens FORM kiezen aan de linkerkant en TIMER aan de rechterkant.

Daar plak ik de code die jij hebt gegeven. ik zet wel in de tekstvak "=Time()" (zonder aanhalingstekens)
ik heb in dat programmataal ook links gekeken alles hetzelfde als de jouwe gezet (behalve naam van vak enz.)

maar toch is het mij niet gelukt?

 

[Bakk4318]

waar moet ik 1000 zetten?

In de eigenschap "Timerinterval" van het formulier. Zie bijlage:

mvg
Charles

 

[SKVR]

In de eigenschap "Timerinterval" van het formulier. Zie bijlage:

mvg
Charles

Heel erg bedankt, het is mij nu gelukt

de tijd knippert steeds als het van 0:00:37 naar 0:00:38 enz. enz. gaat maar de datum knippert ook mee. Hoe kan ik voorkomen dat ook de datum knippert?

 

[SKVR]

Beste mensen.

Nu is het zo dat ik de tijd hebt, maar deze ververst om de seconde..
en daardoor verdwijnt alles wat ik selecteer in de formulier steeds?

hoe is dit op te lossen?

 

[ReneDirks]

maar deze ververst om de seconde..

Dat is dus die 1000 (ms)

en daardoor verdwijnt alles wat ik selecteer in de formulier steeds?

Dat komt door de refresh. Hierdoor wordt het hele formulier 'vernieuwd'
Je zou dus eigenlijk iets moeten doen als:

Private Sub Form_Timer()
    Me.txtTime = Time()
End Sub

Als je textbox txtTime heet, anders even aanpassen hè?