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.
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
Zitat von: MaxP am Januar 11, 2019, 17:26:54
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.
Hallo Phil,
genau das war's! Danke Dir.
Es kommt halt doch auf die Größe an ;-)
Gruß
Max