enter in formulier textvak (memo)

Status
Niet open voor verdere reacties.

boltc

Banned
Lid geworden
6 jun 2005
Berichten
221
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
 
dit is mijn code tot nu toe:
Code:
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..
Code:
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:o
 

Bijlagen

  • plaatje.JPG
    plaatje.JPG
    15,2 KB · Weergaven: 50
Laatst bewerkt:
Hallo boltc,

probeer dit eens

Code:
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
 
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?
 
Hallo boltc,

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

Groet,

Tardis
 
Hallo boltc,

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

Code:
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan