enter in formulier textvak (memo)

[boltc]

hallo,

ik heb een textvak gemaakt in een formulier van een veld dat ingesteld staat als memo.

Nu is de bedoeling dat als ik op een knop klik hij bovenaan de text in dat textvak een naam zet plus tijd en een dubbele punt, en daarna een enter.
Maar was is de code in VBA voor die enter?
(ik doe ook aan autoit scripting en daar is het @CRLF)

groetjes bo

 

[boltc]

dit is mijn code tot nu toe:

Private Sub Knop0_Click()
On Error GoTo Err_Knop0_Click

Dim bo_value As String

bo_value = Forms![test]![bo]
bo2_value = Forms![test]![invoervak]

Me.bo.Value = bo2_value & " " & Date & " " & Time & ": " & bo_value
bo.SetFocus

hij moet eigenlijk ook nog nadat je op de knop geklikt hebt de cursor achter de text zetten die hij bij gevoegt heeft.. (dit heb ik geprobeert met setfocus maar dan selecteerd hij de hele text en dan moet je nog klikken om op de goede plek te komen..)



het moet er zo uit komen zien als het bijgevoegde plaatje..


edit:
oke met de enter heb ik al uit gevonden..

Me.bo.Value = bo2_value & " " & Date & " " & Time & ": " & vbCrLf & vbCrLf & vbCrLf & bo_value

maar nu moet hij nog de focus zetten op de eerste beste regel onder het bijgevoegde naam en datumpje,, weet iemand hoe ik dit kan doen?

bijvoorbaad dank

 

[Tardis]

Hallo boltc,

probeer dit eens

Private Sub Knop0_Click()
On Error GoTo Err_Knop0_Click

bo_value = Forms![test]![bo]
bo2_value = Forms![test]![invoervak]

Private Sub Knop0_Click()
On Error GoTo Err_Knop0_Click

Me.bo = Me.invoervak & " " & Date & " " & Time & ": " & vbCrLf & vbCrLf & vbCrLf & Me.bo
Me.bo.SetFocus
Me.bo.SelStart = InStr(1, Me.bo, vbCrLf) + 1

Groet,

Tardis

 

[boltc]

je bent de beste het werkt.. dankjewel..

dan heb ik nog een vraagje.. mis kun jij helpen

als ik een nieuw record aan maak, en de behandelaar invul en dan op het knopje klikt zegt hij het volgende:
ongeldig gebruik van Null (dus als "bo" nog leeg is.)

weet jij waar dat aan kan liggen?

 

[Tardis]

Hallo boltc,

graag gedaan.
Zet je nieuwe vraag even uit in een nieuw onderwerp en sluit deze vraag meteen af.

Groet,

Tardis

 

[Tardis]

Hallo boltc,

ik heb een knip en plakfoutje gemaakt.
Wijzig je code in deze en je foutmelding is foetsie:

Private Sub Knop0_Click()
On Error GoTo Err_Knop0_Click

Me.bo = Me.invoervak & " " & Date & " " & Time & ": " & vbCrLf & vbCrLf & vbCrLf & Me.bo
Me.bo.SetFocus
Me.bo.SelStart = InStr(1, Me.bo, vbCrLf) + 1

Groet,

Tardis