title image


Smiley Textbox automatisch weiterscrollen bei Befüllen mit dynamischem string
Hallo zusammen,



ich hab auf meinem Formular (Access 03) eine Textbox, die quasi als Log-Ausgabe dienen soll und während der Laufzeit durch Do Loop Schleifen von einem sich dynamisch erweiterten String gefüllt werden soll.



Die Textbox ist auf dem Formular mit ca. 1,5 cm Höhe gelayoutet und kann somit ca. 4 Zeilen (Tahoma 8pt) darstellen, Bildlaufleisten vertikal ist aktiviert.



Bei jedem Schleifendurchlauf erweitert sich der Loginhalt (strLogText) mittels vbCrLf und dynamischem Inhalt um eine Zeile. Das ergibt den Effekt, dass man bei den ersten 4 Schleifendurchläufen den jeweils ergänzten String sehen kann. Leider sieht man danach nichts mehr, da die Darstellung auf die 4 Zeilen beschränkt bleibt. Erst nach komplettem Durchlauf der Schleife kann man durch Nutzung der Bildlaufleisten den ganzen Text ansehen.



Nun meine Frage: Wie krieg ich es hin, dass die Textbox während der Laufzeit automatisch mitscrollt, d.h. der User die aktuell durchlaufene Ergänzung der Stringvariable immer sehen kann? Also quasi ein Befehl, der bei jedem BeiÄnderung Ereignis den Cursor der Textbox ans Ende des strings setzt?



Hier mein Code:





Set db = CurrentDb()

Set rst1 = CurrentDb.OpenRecordset("qryIPsISE")



Do Until rst1.EOF

strIP = rst1!IP



strSQL = "SELECT COUNT(" & strIP & ".DataGemist) AS AnzahlFehlstellen FROM " & strIP & _

" WHERE " & strIP & ".DataGemist = -1 "

Set rst2 = CurrentDb.OpenRecordset(strSQL, dbReadOnly)



If rst2!AnzahlFehlstellen > 0 Then

strLog = strLog & "CheckUp " & strIP & " ... "

strLog = strLog & "abgeschlossen. Fehler entdeckt!" & vbCrLf

intCounter = intCounter + 1

Else

strLog = strLog & "CheckUp " & strIP & " ... "

strLog = strLog & "abgeschlossen. Ok!" & vbCrLf

End If

rst2.Close



Me.txtLog.Value = strLog

DoEvents



rst1.MoveNext

Loop

rst1.Close







Wäre dankbar für Hinweise...



obergrattler aka Fabian

Gruß aus München
COME TO WHERE THE OBERGRATTLER IS ...

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: