Text per VBA an aktueller Cursorposition einfügen

Erwin Hoge

unread,

Jan 22, 2008, 5:19:53 PM1/22/08

to

Hallo,

ich möchte einen Text aus einer Tabelle, einem Textfeld o. ä. an
der aktuellen Cursorposition eines Textfeldes einfügen.

Man kann es auf jeden Fall über die Zwischenablage per API tun,
aber gibt es auch eine simple Möglichkeit?

Mit SelText scheint es nicht zu klappen.

Vielen Dank
Erwin

Gunter Avenius

unread,

Jan 22, 2008, 5:26:57 PM1/22/08

to

Hallo Erwin,

Erwin Hoge schrieb folgendes:

> ich möchte einen Text aus einer Tabelle, einem Textfeld o. ä. an
> der aktuellen Cursorposition eines Textfeldes einfügen.

Text in zwei Variablen (Text vor der Cursormarkierung, Text nach der
Cursormarkierung)

Me!DeintextFeld=strVorText & strNeutext & strNachtext

Gruß
Gunter
--
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

SQL Server-Entwickler-Konferenz: www.donkarl.com/?SEK
Sa/So 12./13.04.2008 und Sa/So 19./20.04.2008

Erwin Hoge

unread,

Jan 22, 2008, 5:48:46 PM1/22/08

to

>> ich möchte einen Text aus einer Tabelle, einem Textfeld o. ä. an
>> der aktuellen Cursorposition eines Textfeldes einfügen.
>
> Text in zwei Variablen (Text vor der Cursormarkierung, Text nach der
> Cursormarkierung)

Ich glaube, meine Beschreibung war zu ungenau.
Der Text soll mit z. B. Klick auf einen Button oder Doppelklick in
das Textfeld an eine oder auch mehrere Stellen eingefügt werden.
D. h. ich kann den Text nicht in Variablen schreiben, da ich ihn
nicht kenne.

Gruß
Erwin

Karl Donaubauer

unread,

Jan 22, 2008, 6:46:44 PM1/22/08

to

Erwin Hoge wrote:
>>> ich möchte einen Text aus einer Tabelle, einem Textfeld o. ä. an
>>> der aktuellen Cursorposition eines Textfeldes einfügen.
>>
>> Text in zwei Variablen (Text vor der Cursormarkierung, Text nach der
>> Cursormarkierung)
> Ich glaube, meine Beschreibung war zu ungenau.

Das ist sie immer noch.

> Der Text soll mit z. B. Klick auf einen Button oder Doppelklick in
> das Textfeld an eine oder auch mehrere Stellen eingefügt werden.
> D. h. ich kann den Text nicht in Variablen schreiben, da ich ihn
> nicht kenne.

Beim Klick auf einen Button oder beim Doppelklick auf ein Textfeld
geht die Cursorposition verloren und damit ist unklar, wo Text
eingefügt werden soll. Da helfen nur Methoden, wie sie auch für
die Windows-Zwischenablage angewendet werden:
Tastenkombinationen, Menüpunkte, rechte Maustaste

Davon abgesehen funktioniert das Einfügen z.B. mit SelStart und
entsprechenden Textfunktionen. Auf die Schnelle ca.

Me!Textfeld = Left(Me!Textfeld, Me!Textfeld.SelStart) & _
"Hier was immer du einfügen willst" & _
Mid(Me!Textfeld, Me!Textfeld.SelStart + 1)

--
HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com
SQL Server-Entwickler-Konferenz: www.donkarl.com/?SEK
Nürnberg 12./13.4. + 19./20.4.2008

Erwin Hoge

unread,

Jan 23, 2008, 2:44:54 PM1/23/08

to

> Davon abgesehen funktioniert das Einfügen z.B. mit SelStart und
> entsprechenden Textfunktionen. Auf die Schnelle ca.
>
> Me!Textfeld = Left(Me!Textfeld, Me!Textfeld.SelStart) & _
> "Hier was immer du einfügen willst" & _
> Mid(Me!Textfeld, Me!Textfeld.SelStart + 1)

Vielen Dank, in der Art funktioniert es. Durch Doppelklicken in das
zu ändernde Textfeld geht der Fokus nicht verloren, so daß es klappt.

Gruß
Erwin