Office: (Office 2007) Ungebundenes Textfeld mit VBA füllen

Hallo zusammen,
ich habe folgendes Problem und hoffe auf Eure hilfe.
Ich habe eine VBA Prozedur die anhand eines Recorsets Daten durchläuft. Jetzt möchte ich dem Benutzer den aktuellen Bearbeitungsstand in einem ungebundenen Textfeld in einem Formular mitteilen. D.H. ich möchte innerhalb der Schleife den aktuellen Bearbeitsungsstand an das Formular übergeben (wie z.B. "Bearbeite gerade Lieferschein mit Lieferschein-Nr. ....).
Eigentlich soll so etwas passieren wie mit Debug.Print, jedoch im Formular und nicht im Direktfenster.
Ich hoffe mir kann jemand helfen und bedanke mich im Vorraus.

:)

 

??
Und wo hast Du nun ein Problem?
Wie man den Wert eines Textfeldes ändert?
Code:

Gruß

LL

 

Das Problem liegt darin, dass ich bei jedem Durchlauf durch das Recordset eine neue Zeile im ungebundenen Textfeld generieren möchte und das Textfeld natürlich auch aktualisiert wird. Bisher werden meine Einträge erst nach kompletten Durchlauf durch die VBA-Prozedur ins Textfeld geschrieben. Zudem bekomme ich keinen Zeilenvorschub mittels chr(13) hin.

 

Dann zeig doch mal deinen bisherigen Code.

Gruß

LL

 

Hier Ausschnitte aus meiner VBA Prozedur
...
Dim fakt_info_text As String
...
fakt_info_text = "Starte Fakturierung..." & Chr(13)
Forms!fakturierung!infotext.Value = fakt_info_text
...
Do Until rst_ls_fakt_abf.EOF
....
fakt_info_text = fakt_info_text & "Neue Rechnung mit Rechnungs-Nummer: " & my_rechnung_nr & " angelegt." & Chr(13)
Forms!fakturierung!infotext.Value = fakt_info_text
.....
Loop
Sollte anschließend im ungebundenen Textfeld dann so aussehen:

Starte Fakturierung....
Neue Rechnung mit Rechnungs-Nummer: 1 angelegt.
Neue Rechnung mit Rechnungs-Nummer: 2 angelegt.

usw.
usw.

 

Code besser in Codetags.
in etwa so:
Code:

Gruß

LL

 

Hallo Louisleon,

danke für Deine Unterstützung. Mit vbCrLf funktioniert auf jeden Fall der Zeilenumbruch. ´Für die zwischenzeitliche Aktualisierung habe ich die Funkion DoEvents gefunden, mit welcher dann das ungebundene Textfeld aktuell mit dem jeweiligen Arbeitsfortschritt aktualisiert wird. DoEvents habe ich bisher noch nicht eingesetzt. Hälst Du diese Funktion an dieser Stelle für richtig? Auf jeden Fall tut es das was ich möchte. Hat das DoEvents Auswirkungen auf die Performance?
Danke.

 

Hast Du die OH zu "DoEvents" schon bemüht?

Nein!

Ja, je nachdem was sonst noch so auf der Kiste läuft.

Gruß

LL

 

Die OH habe ich schon angeschaut, deshalb auch meine Frage ob die Funktion an dieser Stelle richtig ist. Kennst Du eine bessere Alternative?

 

reicht "Me.Repaint" (siehe Code) nicht?

Gruß

LL

 

Reicht. Super.
Entschuldige habe ich zuvor in Deinem Code übersehen.

Nochmals vielen Dank für Deinen Unterstützung.