invoegen datum

[epetzen]

Graag zou ik een knop willen aanmaken waarbij er bij klikken de huidige datum in een ander memo-veld wordt ingevoegd.

Kan iemand mij helpen met welke code ik in dat geval onder de bij-klikken gebeurtenis van de knop moet plaatsen.

Bij voorbaat dank,

Peter

 

[Rint]

Als je memo- of tekstveld vb. "Memo1" heet, dan is de code bij de gebeurtenis klikken:

me.memo1 = date()

Als er als tekst in je veld zou staan en je wil die aanvullen met de datum van vandaag, dan ziet het er zo uit:

me.memo1 = me.memo1 & " " & date()

 

[epetzen]

Thanks,

Ik heb het toegepast in de vorm:

Me.memo_veld = date &""& Me.memo_veld.

Hierdoor zet hij altijd de datum bovenaan.

Is er ook een manier waarbij hij eerst een nieuwe regel toevoegd wordt en vervolgens deze datum erin gezet wordt.

Het is namelijk een veld waar iedere keer comments worden toegevoegd voorafgegaan door de datum.

many thanks,

 

[Rint]

nieuwe lijn toevoegen

Jep.

Door chr(10) en chr(13) toe te voegen maak je telkens een nieuwe lijn.

In jouw geval wordt dat dan zoiets als:

Me.memo_veld = date() &" "& Me.memo_veld & chr(10) &chr(13)

 

[epetzen]

Dit heb ik reeds uitgevonden door

Me.memo_veld = date & " " & vbCrtlf & Me.memo_veld

Toe te passen.

Echter hoe kan ik de cursor achter de datum actief zetten. Het mooiste is natuurlijk datum spatie en dan de actieve cursor.

Alvast enorm bedankt.

 

[Harry46]

Dat zou dan iets kunnen worden van:

Me!info = Me!info & vbCrLf & Format$(Date, "dddd d mmmm yyyy") & vbCrLf
Me!info.SetFocus
Me!info.SelStart = Len(Me!info) + 1

Dus datum op nieuwe regel, daarna weer nieuwe regel
Het memo-veld de focus geven en de cursor zetten op begin van regel na ingevoegde datum

 

[epetzen]

Hij komt nog niet goed uit:

Ik gebruik de code:

Private Sub actie_target_DblClick(Cancel As Integer)
Me.actie_target = Format$(Date, "dd-mm-yy") & " " & vbCrLf & Me.actie_target
Me.actie_target.SetFocus
Me.actie_target.SelStart = Len(Me.actie_target) + 1
End Sub

Hierbij wil ik dat hij:

Een regel toevoegd
de datum invoegd aan het begin van de nieuwe regel
de actieve cursor om de positie achter de ingevoerde datum zet.

Hij voegd een regel toe, voegd de datum in echter zet hij niet de cursor op de juiste positie.

wat staat er fout in deze code.

Thanks,

Peter

 

[Harry46]

Je wilt dus eerst de datum toevoegen dan een nieuwe regel (hier de cursor) en dan het stuk tekst dat er al stond.
In dat geval wordt het
Me.actie_target.SelStart = 10 (lengte van de datum + 2)
Wil je een "wit" regel tussen datum en tekst dan:
Me.actie_target = Format$(Date, "dd-mm-yy") & vbCrLf & vbCrLf & Me.actie_target
Opmerking:
Waarom extra spatie na datum?

 

[epetzen]

Top, werkt perfect...

P.s. de spatie achter de datum is omdat een comment achter de datum geplaatst moet worden.

Thanks,