2. Zeile eines Textfeldes auslesen

[MaxP]

Hallo zusammen,

ich wollte die 2. Zeile eines gebundenen Textfeldes AK_Firma aus einem einfachen Einzelformular mit folgendem Code auslesen, kürzen und in das ungebundene Textfeld namens Zeilex wieder einfügen.

Code [Auswählen] Erweitern


Private Sub Form_Load()
Dim IntPos As Integer
Dim Zz As String
Dim txtFeld As String

txtFeld = Me!AK_Firma

IntPos = InStr(txtFeld, vbCrLf)
Zz = Mid(txtFeld, IntPos)
Me!Zeilex = Zz

Debug.Print txtFeld
Debug.Print IntPos
Debug.Print Zz
Debug.Print Me!Zeilex

End Sub

Die Ausgabe im Direktbereich funzt, jedoch bleibt das Formularfeld Zeilex leer. Keine Ahnung warum?

Gruß
Max

[PhilS]

Die Ausgabe im Direktbereich funzt, jedoch bleibt das Formularfeld Zeilex leer. Keine Ahnung warum?

Die Textbox bleibt nicht leer! Nur ist das erste Zeichen der Zeilenumbruch. Somit siehst du in einer einzeiligen Textbox den Inhalt in der zweiten Zeile nicht.

[MaxP]

Hallo Phil,

genau das war's! Danke Dir.
Es kommt halt doch auf die Größe an ;-)

Gruß
Max