Add tekst aan tekstvak boven alle aanwezige tekst

[myfirstaccess]

Hallo, heb het volgende. Ik vul tekst in in tekstvak 1 druk op een button en de tekst wordt toegevoegd aan tekstvak 2. Met deze code. Alleen dan wordt het eronder toegevoegd. Ik wil juist erboven. Ivm chronologie. Kom er na wat 'rommelen' en zoeken niet uit. Jullie hopelijk wel Wie wil me helpen??

Private Sub bVoegToe_Enter()
If AddActie <> "" Then
If tActieOmschrijving <> "" Then
tActieOmschrijving = tActieOmschrijving & vbCrLf & Date & " " & CurrentUser() & ": " & AddActie
Else
tActieOmschrijving = tActieOmschrijving & Date & " " & CurrentUser() & ": " & AddActie
End If
AddActie = ""
Else
MsgBox "Er is geen actie ingevuld.", vbOKOnly, "voer actie in."
End If
End Sub

 

[OctaFish]

Kan vrij simpel:

Dim sTemp As String

sTemp = Me.txtDescrip.Value
If Not Me.txtNieuw & "" = "" Then sTemp = Me.txtNieuw & vbCrLf & sTemp
Me.Descrip = sTemp
Me.Refresh

 

[OctaFish]

Of, met jouw veldnamen:

Private Sub bVoegToe_Enter()
Dim sTemp As String

sTemp = Me.tActieOmschrijving.Value

If Not Me.AddActie & "" = "" Then
    sTemp = Date & " " & CurrentUser() & ": " & Me.AddActie & vbCrLf & sTemp
    Me.tActieOmschrijving = sTemp
    Me.AddActie = ""
    Me.Refresh
Else
    MsgBox "Er is geen actie ingevuld.", vbOKOnly, "voer actie in."
End If

End Sub

Nog een extra puntje: als je code toevoegt, kun je die dan opmaken met de CODE knop ( # )?

 

[myfirstaccess]

Ik was er zelf dus niet opgekomen, maar inderdaad. Geweldig! dank je! Zal deze

in het vervolg gebruiken

gr