Kodu Kendi Örneğinize uygulayın
ŞİFRE ALANINDA KULLANICI DEĞİŞKENLERİNİ VE YETKİLERİNİ BELİRLİYORUZ
Dim Yetki As String
Yetki = Dlookup ("Yetki", "kullaniciyetki", "[ID]=" & Forms!ACILIS!kullanıcı.Value)
If Yetki = "Admin" Then
Else
'SAYFA AÇILDIĞINDA KISITLI KULLANICILAR İÇİN PASİF YAPILACAK ALANLARI AŞAĞIDAKİ GİBİ YAPIYORUZ
MsgBox "Sisteme Kısıtlı Kullanıcı olarak giriş yaptınız,Bazı işlemleri yapamazsınız.", vbInformation, "Lütfen Dikkat..."
'PASİF YAPILACAK BUTONLARI BURAYA SIRASIYLA YAZIYORUZ
Komut16.Enabled = False
Komut3.Enabled = False
End If