log tutma ile ilgili olarak sadece kullanını girişi yapılan AÇILIŞ formuna
Sub KayitTut()
Dim rs As New ADODB.Recordset
rs.Open "tbl_kullaniciloglari", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("adisoyadi") = Me.kullanıcı.Column(1)
rs("islemzamanı") = now
rs("yapilanislem") = "Oturum Açıldı"
rs.Update
Set rs = Nothing
End Sub
kodu ekledim ve Komut29 tıklandığında şifre doğru ise çalışması için
call KayitTut
kodu ekledim.diğer formdaki kayıt ekleme, kayıt silme gibi butonlara benzeri kod eklemen gerekiyor. Tablodaki yapilanislem alanına üstteki kodda oturum açıldığında "Oturum Açıldı" yazılıyor. Siz butonlardaki kodlara "kayıt silindi", "kayıt eklendi" şeklinde yazmalısınız.