Office: (Office 2007) Im Textfeld ans Ende der Zeile springen

Wolfgang Biedermann · 27. Juli 2010

Jetzt brauche ich nochmal eine kleine Hilfe:

Nach doppelklick in ein Listenfeld mit Textbausteinen wird der Textbaustein in ein Textfeld eingefügt.

Jetzt möchte ich, dass unmittelbar danach das Textfeld den Fokus erhält (habe ich schon, siehe code) und gleichzeitig der Cursor an den Schluss des zuletzt eingefügten Textes gesetzt wird.

Code bisher:

Code:

Private Sub cbxTextauswahl2_DblClick(Cancel As Integer)
If Not IsNull(Me.cbxTextauswahl2.Value) Then
If Len(Me.txtText & "") = 0 Then
Me.txtText.Value = DLookup("MemoText", "tabTexte", "nr=" & Me.cbxTextauswahl2.Value)
Else
Me.txtText.Value = Me.txtText.Value & vbCrLf & vbCrLf & DLookup("MemoText", "tabTexte", "nr=" & Me.cbxTextauswahl2.Value)
End If
Else
Me.txtText.Value = Null
End If

Me.txtText.SetFocus

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke!

*Smilie Wolfgang

:)

Wolfgang Biedermann · 29. Juli 2010

Hab´s schon (man muss nur richtig suchen...*tongue.gif* )

Application.SetOption "Behavior Entering Field", 2

Thema erledigt.

*Smilie Wolfgang

achtelpetit · 29. Juli 2010

Deine Lösung ändert die Grundeinstellung. Falls Du das nicht möchtest, kannst Du das Folgende verwenden:

Code:

Private Sub txtEingabe_GotFocus()

Me.txtEingabe = Me.txtEingabe & " "
Me.txtEingabe.SelStart = Len(Me.txtEingabe)

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Thomas Möller · 29. Juli 2010

Hallo Thomas,

Me.txtEingabe = Me.txtEingabe & " "
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

eine Frage:
Warum fügst Du erst noch ein Leerzeichen hinzu bevor Du den Cursor mit SelStart plazierst?

CU

achtelpetit · 29. Juli 2010

\@ Thomas
Weil doch Textbausteine hinzugefügt werden. Das Ereignis Got Focus passt natürlich nicht dazu, es war nur das erste das mir einfiel.

Lanz Rudolf · 29. Juli 2010

Hallo
noch was zum Thema:
Cursor in Text-Feld positionieren
Text 0 ist Access Standart für Text 1 + 2 beim Hingehen die folgenden Routinen:
Code:

' An den Anfang:
Private Sub Text1_Enter()
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = 0
End Sub
'Ans Ende
Private Sub Text2_Enter()
Text2.SetFocus
Text2.SelStart = Len(Text2)
Text2.SelLength = 0
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2007) Im Textfeld ans Ende der Zeile springen

Im Textfeld ans Ende der Zeile springen

Im Textfeld ans Ende der Zeile springen

Im Textfeld ans Ende der Zeile springen

Im Textfeld ans Ende der Zeile springen - Similar Threads - Textfeld ans Zeile

Formularsteuerelement Textfeld: Selbe Formatierung wie verlinkte Zelle?

Zwischen Textfeldern mit Tabulator Taste wechseln

Textfeld Powerpoint Ränder

Inhalt eines Hyperlink Feldes in ein Textfeld kopieren

Textfelder verschieben

Schriftart im Formular

(Access) bedingte Formatierung im Textfeld funktioniert nicht