9
Access 2010) debug.print in ungebundenem Textfeld ausgeben (wie Ausgabe im Direktbereich)
Hallo,
ich stehe vor einem Problem wo ich nicht weis wie ich es lösen kann.
Ich lasse in Access 2010 per VBA verschiedene Abläufe durchlaufen. Das Ergebnis lasse ich mir per debug.print im direkt Bereich mit ausgeben.
Wie bekomme ich es hin, diese Ergebnisse in einem ungebunden Testfeld auszugeben, ähnlich wie im Direktbereich.
Sprich für jedes Ergebnis eine neue Zeile die Automatisch weiter springt.
Würde mich über einen Ansatz freuen.
Grüße aus Köln,
Christian
ich stehe vor einem Problem wo ich nicht weis wie ich es lösen kann.
Ich lasse in Access 2010 per VBA verschiedene Abläufe durchlaufen. Das Ergebnis lasse ich mir per debug.print im direkt Bereich mit ausgeben.
Wie bekomme ich es hin, diese Ergebnisse in einem ungebunden Testfeld auszugeben, ähnlich wie im Direktbereich.
Sprich für jedes Ergebnis eine neue Zeile die Automatisch weiter springt.
Würde mich über einen Ansatz freuen.
Grüße aus Köln,
Christian
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 233915
Url: https://administrator.de/contentid/233915
Printed on: April 25, 2024 at 12:04 o'clock
9 Comments
Latest comment
Hallo Christian,
kannst du dir ja eine Sub oder Function draus bauen, dann sparst du Code 
beim setzen der Infos.
Beispiel:
Grüße Uwe
deinTextfeld.SetFocus
strNewText = "Deine neue Ausgabezeile"
deinTextfeld.Value = deinTextfeld.Value & strNewText & vbNewlineBeispiel:
Sub myDebug(strText)
deinTextfeld.SetFocus
deinTextfeld.Value = deinTextfeld.Value & strText & vbNewline
End SubmyDebug "Zeile 1"
myDebug "Zeile 2"
Grüße Uwe
1
Hallo Uwe,
danke für den Ansatz,
irgendwie greift dieser nicht im Formular
mein Fomular heisst debugausgabe in diesem ist ein ungebundenes Textfeld direktbereich_ausgabe
Ich möchte die Werte aus dem debug.print "löschen"
im Feld direktbereich_ausgabe ausgegeben bekommen. Leider passiert in diesem nichts
Vielleicht hast du noch einen Ansatz warum es nicht geht
Gruß
Christian
danke für den Ansatz,
irgendwie greift dieser nicht im Formular
mein Fomular heisst debugausgabe in diesem ist ein ungebundenes Textfeld direktbereich_ausgabe
Ich möchte die Werte aus dem debug.print "löschen"
im Feld direktbereich_ausgabe ausgegeben bekommen. Leider passiert in diesem nichts
Debug.Print löschen
direktbereich_ausgabe.SetFocus
strNewText = löschen
direktbereich_ausgabe.Value = direktbereich_ausgabe.Value & strNewText & vbNewLineVielleicht hast du noch einen Ansatz warum es nicht geht
Gruß
Christian
wenn man es falsch umsetzt, klar
Viele Grüße Uwe
Vielleicht hast du noch einen Ansatz warum es nicht geht
Löschen des Feldes machst du einfach so:direktbereich_ausgabe.SetFocus
direktbereich_ausgabe.Value = ""
Hallo Uwe,
danke, hab vergessen direkt das Formular anzusprechen.
Nun geht es bis auf, dass er alle Werte mir hintereinander schreibt und keine neue Zeile einfügt.
Den Umbruch " & vbNewLine " ignoriert er.
woran könnte das noch liegen?
Danke nochmal für die Hilfe
danke, hab vergessen direkt das Formular anzusprechen.
Nun geht es bis auf, dass er alle Werte mir hintereinander schreibt und keine neue Zeile einfügt.
Den Umbruch " & vbNewLine " ignoriert er.
woran könnte das noch liegen?
Danke nochmal für die Hilfe
hast du denn das Textfeld überhaupt auf Multiline festgelegt ? > Eigenschaften des Textfeldes > Eingabetastenverhalten > "Neue Zeile im Feld"
Ja, habe ich eingestellt.
habe mal x & vbNewLine eingefügt
das Ergebnis ist ,dass er nur blanks einfügt, aber nicht umbricht
habe mal x & vbNewLine eingefügt
das Ergebnis ist ,dass er nur blanks einfügt, aber nicht umbricht
dann machst du noch irgendwo anders einen Fehler.... meine Kugel kennt deinen Code und dein Formular nicht !
Ich mach dir mal eine Demo-Datenbank, sonst wird das hier eine never ending story .....
Ich mach dir mal eine Demo-Datenbank, sonst wird das hier eine never ending story .....
So hier die Demo-Datenbank, damit sollte es klar sein ... wie es funktioniert.
Hallo Uwe,
der Fehler war das formatierte Textfeld als Rich Text, bei nur Text hat es auch funktioniert.
Ich danke dir
Gruß
Christian
der Fehler war das formatierte Textfeld als Rich Text, bei nur Text hat es auch funktioniert.
Ich danke dir
Gruß
Christian
