[internetadami]

Programınızda hangi kullanıcının neler yaptığı sizin için önemli ise basit bir yöntemle bunu sağlayabilirsiniz.
Yalnız yapılan işleri herhangi bir MDB dosyasında tutmak, zamanla şişmelere neden olacağından biz bunu TXT dosyada tutacağız.
Ana formunuza 1 tane richtextbox ekleyin. ve her kullanıcının ulaşma yetkisi olan bir dizine (exenizin olduğu yer olabilir) 1 tane txt dosya ekleyin ve adını ör: LOG.txt yapın.
Diyelimki kullanıcı fatura kesti. :Fatura kesilen butonun koduna
richtextbox1.loadfile "......\LOG.txt" '....... lı yere sizin txt dosyanızın olduğu yeri yazın
richtextbox1.text=richtextbox1.text & chr(13) & "Fatura Kesimi" & fatura_no & Kullanıcı_adı & tarih & saat
richtextbox1.savefile "........\LOG.txt"
bu örnekteki chr(13) lafı text dosyanıza bir ENTER atıp o şekilde bir aşağı satırdan yazar.
hepsi bu. daha sonra txt nixin içine bakıp kimin ne yaptığını görürsünüz. Ama kullanıcılar bu dosyanın varlığını bilmesin ha.
Bunu bir modül içerisine
Private Sub Yaz(Kullanici as string, Mesaj as String)
'Dim Dosya as String
' Dosya = app.path & "\" & "Log.mcs" 'uzantisi exe, dll, vxd gibi yapılırsa bilmeyen bir kişide dosyanın içeriğini okuyamaz...
' Open dosya for append as #1
' print #1, Mesaj
' Close #1
end sub

' > Okumak içinse
Private Sub Oku()
Shell "Notepad.exe "
End Sub