Kullanıcı Yetkileri

[zafer007]

Merhablar,

Kullanıcı admin olarak programı giriş yaptığında programı istediği gibi kullansın, Ancak user programı açtığında ise, tüm komut düğmeleri pasif, yani sadece görsün ve rapor alsın.. gibi..

Yardımlarınız için şimdiden teşekkürler,

 

[baknediycem]

yo, yanıtlmak için yazmıyorum... benim de sormak istediğim bir soruydu... gerci arama yapınca buna benzer konular var ama...

Merhablar,

Kullanıcı admin olarak programı giriş yaptığında programı istediği gibi kullansın, Ancak user programı açtığında ise, tüm komut düğmeleri pasif, yani sadece görsün ve rapor alsın.. gibi..

Yardımlarınız için şimdiden teşekkürler,

 

[simendifer]

admin ve user

sevgili kardeşim formda müşteri takip programında sizin istediğiniz gibi onu inceleyin genede yardımcı olmak için resminigönderiyorum şifrenizle girdikten sonra açılan ana formun özelliklerinde ekleme öncesinde koduna aşagıdaki kodu yapıştırın ama sizin programda görünmemesini istediğinz butonların adını sizinkiyle degiştirin burdaki komutlar la

Private Sub Form_Open(Cancel As Integer)
Dim Yetki As String
Yetki = DLookup("Yetki", "tblsifre", "[ID]=" & Forms!frmşifre!kullanıcı.Value)
If Yetki = "Admin" Then
MsgBox "Sisteme [ADMIN] tam yetkili olarak giriş yaptınız", vbInformation, "Bilgilendirme Penceresi"
Else
MsgBox "Sisteme [USER] kısıtlı yetkili olarak giriş yaptınız", vbInformation, "Bilgilendirme Penceresi"
Komut4.Enabled = False
Komut6.Enabled = False
Komut8.Enabled = False
Komut19.Enabled = False
Komut22.Enabled = False
Komut24.Enabled = False
Komut11.Enabled = False
Komut7.Enabled = False
Komut23.Enabled = False
Komut44.Enabled = False
End If
End Sub