Ablaufverfolger

Forumthread: Ablaufverfolger
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Ablaufverfolger

Ablaufverfolger

24.04.2003 12:44:08

Manfred

Ich habe mehrere Formulare (Forms) mit jeweils mehereren Controls (Textfelder, Buttons, Comboboxen etc.). Wie kann man im Sinne eines Ablaufverfolgers das zuletzt "benutzte" Control feststellen und zb. in ein Textfile schreiben ? Es sollen dann die letzten 500 Aktivitäten incl. der Texteingabe protokolliert werden.

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Re: Ablaufverfolger

27.04.2003 11:01:37

andre

Re: Ablaufverfolger

27.04.2003 11:01:37

andre

hallo manfred,
bastle dir eine protokollfunktion.
bei jeder aktion rufst du die funktion auf. für eingaben in ein tabellenblatt musst du die change-ereignisse nutzen.
hier ein beispielcode:

Sub test()
LogFile ("HierWarWas")
End Sub
Private Function LogFile(WasIstLos)
    Dim ID%, LogName$
    ' freie ID holen
    ID = FreeFile()
    'Datei öffnen
    LogName = "c:\TestLog.txt"
    Open LogName For Append Access Write Shared As ID
    Print #ID, Time & Chr(9) & WasIstLos
    Close ID
    ID = 0
End Function