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..
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..
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.