In einem Textfeld ans Ende Scrollen

Hallo,

ich benutze für Programmausgaben in einem Formular ein Textfeld. Funktioniert soweit auch alles ganz gut, bis das Textfeld „voll“ ist und es ans Scrollen geht. Wie kann ich per VBA dafür sorgen, dass im Textfeld ans Ende gescrollt wird?

Vielen Dank
Marc

Hallo Marc,

dieses Ding als neues Modul speichern:

Public Sub SetCursor(ctrl As Control)
 With ctrl
 .SelLength = 0
 .SelStart = VBA.Len(.Text)
 End With
End Sub

und dann in die „Beim Klicken“-Eigenschaft Deines Textfeldes eine mit folgendem Inhalt einfügen:

Private Sub MeinFeld\_Click()
SetCursor Me.MeinFeld
End Sub

gruss moritzbock

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Hallo Marc,

dieses Ding als neues Modul speichern:

Public Sub SetCursor(ctrl As Control)
With ctrl
.SelLength = 0
.SelStart = VBA.Len(.Text)
End With
End Sub

und dann in die „Beim Klicken“-Eigenschaft Deines Textfeldes
eine mit folgendem Inhalt einfügen:

Private Sub MeinFeld_Click()
SetCursor Me.MeinFeld
End Sub

SelStart habe ich auch schon probiert. Klappt (im Prinzip) soweit auch ganz gut. Das Problem ist aber, dass in dem Textfeld wieder an den Anfang gescrollt wird, sobald es den Fokus verliert. Wie kann ich das verhindern?!?

Einfacher, als die Funktion ist es, mit den Tastatur-Schlüssel
DoCmd.GoToControl „DeinControlName“
SendKeys „{F2}“
SendKeys „{End}“

Das Problem
":Textfeld wieder an den Anfang gescrollt wird, sobald es den

Fokus verliert. Wie kann ich das verhindern?!?"

verhinderst Du ganz leicht, indem Du die Ausrichtung im Textfeld auf Rechtsbündig setzt. (So einfach, daß es schon weh tut :wink:)

Gruß

Major

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Einfacher, als die Funktion ist es, mit den Tastatur-Schlüssel
DoCmd.GoToControl „DeinControlName“
SendKeys „{F2}“
SendKeys „{End}“

Major

Hallo Major,

hast ja recht, aber die Funktion hat den Vorteil, auf jedes Textfeld der DB zu wirken, das mit SETCURSOR ausgestattet ist, ohne großartig den Tastaturschlüssel jedesmal einzuhämmern :wink:

gruss moritzbock