Kullanıcıları tanımlandırdım. Kullanıcılar için izinleri ayarladım. Herşey tamam. Sorun yok. Sınırlı Kullanıcının (Kullanıcı) gireceği formlarda değişiklik, ekleme, silme gibi değişiklikleri yapamaması için de şu kodu yazdım:
Kod:
Private Sub Form_Current()
Dim SonKayit As String
Dim Yetki As String
Dim ctl As Control
SonKayit = DMax("[ID]", "[tblKullaniciLoglari]")
Yetki = DLookup("[txtKullaniciYetkisi]", "[tblKullaniciLoglari]", "[ID]=" & SonKayit)
If Yetki = "Yönetici" Then
Else
MsgBox "Sisteme Kısıtlı Kullanıcı olarak giriş yaptınız. Bazı işlemleri yapamazsınız.", vbInformation, "Lütfen Dikkat..."
Form.AllowAdditions = False
Form.AllowDeletions = False
Form.AllowEdits = False
End If
End SubKod:
Compile error
Expected variable or procedure, not moduleYukarıdaki kodu da ben yazdım.
Log kayıtlarının yazıldığı tablodan en son giriş yapan kişinin ID numarasına DMax ile buldum. Sonra gelen sonucu da Dlookup ile birleştirdim. Gelen değer "Yönetici" ile eşleşirse boş (Mesaj da verdirilebilir) değilse engellemeler falan...
Bu kodu her formumun başına yazmak istemiyorum. Bir defa modul oluşturur, istediğimde de çağırırım diye düşündüm ama bi türlü işin içinden çıkamadım.
Nerde hata yapıyorum anlayamadım.
Yardımlarınız için şimdiden teşekkürler...
Kolay gelsin...
