myfirstaccess
Gebruiker
- Lid geworden
- 21 apr 2009
- Berichten
- 15
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
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