Currentdb.Execute "DELETE FROM tblLog"
Me!Listenfeld.Requery
'...
strLog = strLog & "CheckUp " & strIP & " ... "
strLog = strLog & "abgeschlossen. Ok!" & vbCrLf
Currentdb.Execute "INSERT INTO TblLog (Message) Values ('" & strLog & "')"
Me!Listenfeld.Requery
Allerdings geht das so richtig gut auch nur, wenn man das Listenfeld absteigend nach einem Autowert oder Protokolldatum/-uhrzeit sortiert - die Logeinträge also oben eingefügt werden. Ansonsten muss man auch hier ein bisschen tricksen (ich hab dir hier mal ein Beispiel gebastelt).
Gruß aus dem Norden
Reinhard
Bitte immer die Access-Version angeben
geschrieben von Reinhard Kraasch , 25.04.2006, 17:12 Uhr , 18 mal gelesen