Text aus Kombi-Feld übernehmen
Karl Donaubauer
Gesendet: 24.07.13 22:13
Betreff: RE: Text aus Kombi-Feld übernehmen



Elite Veteran

Beiträge: 848
50010010010025
Ort: Wien		Hallo, Michael!

lengaumi - 21.07.13 22:21

Karl Donaubauer - 20.07.13 11:12
...
1. im Ereignis "Beim Verlassen" des Memofeldes

'Cursorposition in die Eigenschaft Marke speichern
Me!Memofeld.Tag = Me!Memofeld.SelStart

2. im Ereignis "Nach Aktualisierung" des Kombinationsfeldes

'Text zusammensetzen mithilfe der gespeicherten Position
Me!Memofeld= Left(Me!Memofeld, Me!Memofeld.Tag) & Me!Kombinationsfeld & Mid(Me!Memofeld, Me!Memofeld.Tag + 1)

...
Das einzige Problem das aber dabei auftritt ist, wenn Text im Memofeld eingegeben wurde und nun an die letzte Stelle Text aus dem Kombifeld eingefügt werden sollte.
Dieser Text setzt sich dort hin, wo der neue Text begonnen wurde.

Erst nach dem zweiten Mal Cursor positionieren und nochmal Text auswählen passt es.

Kann man das Anfügen von Text am Ende des vorhandenen Textes im Memofeld (aus Frage 1 in diesem Thema) und das x-beliebige Einfügen kombinieren?
...

Wenn ich das Problem richtig verstehe, dann sollte es reichen, den Code "Beim Verlassen" des Memos etwas zu erweitern:

If Me!Memofeld.SelStart = 0 Then
Me!Memofeld.Tag = Len(Me!Memofeld.Text)
Else
Me!Memofeld.Tag = Me!Memofeld.SelStart
End If

-----
Servus
Karl
*********
https://www.donkarl.com/devcon Access-Online-Konferenz 18.+19.4.
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Top of the page Bottom of the page