Datum/tijd op formulier

[JosEindhoven]

Hallo

Ik wil op een formulier (zoeken) de datum/tijd in een tekstbox(1) zetten
Ik gebruik hiervoor de volgend code
Er verschijnt echter niets
Wat doe ik fout

Private Sub zoeken_Initialize()

Me("TextBox1") = ("d-m-jjjj uu:mm:ss")

End Sub

 

[VenA]

Lijkt mij een beetje klok en klepel verhaal. Plaats maar even het bestandje dan wordt het wel ingepast.

Je kan ook dit proberen

Private Sub UserForm_Initialize()
  TextBox1 = Format(Now, "d-m-yyyy hh:mm:ss")
End Sub

 

[JosEindhoven]

Hallo VenA
Bedankt voor je snelle reacie

Ik had al zoiets bedacht en werkend gekregen
Echter ik krijg de tijd niet lopend

 

[VenA]

Waar moet deze heen lopen en wat heeft het met de vraag te maken? Zoek even op de Application.Ontime methode. Er staan volgens mij al twee voorbeelden op de eerste pagina van het excelforum.

bv http://www.helpmij.nl/forum/showthread.php/909039-aftellen-van-tijd-starten-en-onderbreken

 

[JosEindhoven]

oke
Bedankt

Ga ik mee aan de slag