+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Her Bi Bölüme Ayrı Bi Kullanıcı Yetkisi (/konu-her-bi-bolume-ayri-bi-kullanici-yetkisi.html)
Her Bi Bölüme Ayrı Bi Kullanıcı Yetkisi - djbahane - 31/05/2010
Merhaba Arkadaşlar Ben Bi Konuda Size Danışmak istedimde Ben donem projesi olarak okul takip programı yapiyorum simdi programımda ana giristen haric bolum daha var ogrenci giris ogretmen giris bide personel giris var bunlarin hepsine ayri kullanici adi ve sifre koymamiz mumkunmu mumkun ise beni bu konuda bilgilendire bilecek arkadaş varmı yardımlarınız için Teşekkür ederim şimdiden Saygılar ile
Cvp: Her Bi Bölüme Ayrı Bi Kullanıcı Yetkisi - benremix - 31/05/2010
Sn djbahane forumda arama yapabilirsiniz. Ben sizin için bir kaç konu buldum. Sorununuzu çözemezseniz; örnek ekleyerek takıldığınız yeri sorunuz. Kolay gelsin. Saygılar...
https://accesstr.net/konu-kullanici-duzeyi-guvenlik-onemli-ve-etkin-bir-programi-koruma-guvenligi.html&highlight=kullan%C4%B1c%C4%B1+%C5%9Fifre
https://accesstr.net/konu-kullanici-kayit-ve-resim-ekleme-uygulamasi.html&highlight=kullan%C4%B1c%C4%B1+%C5%9Fifre
https://accesstr.net/konu-kullanici-hesaplari-hakkinda-yardim.html&highlight=kullan%C4%B1c%C4%B1+%C5%9Fifre
https://accesstr.net/konu-kullanici-karsilama-mesaji-ve-son-giris-zamani-bilgisi.html&highlight=kullan%C4%B1c%C4%B1
Cvp: Her Bi Bölüme Ayrı Bi Kullanıcı Yetkisi - ekselanss - 31/05/2010
Aşagıdaki kodda sadece şifre tanımlama yapabilir sin her bölüme ayrı şifre.Kodu tıklanıldıgında olay yordamına ekliyorsun.Kodları kendine göre düzenlemeyi unutma.
Kod:
Private Sub Komut369_Click()
On Error GoTo Err_Komut369_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim c As String
c = InputBox("Lütfen şifreyi giriniz", "FATURA TAKİP")
If c = "2112401" Then
stDocName = "KULLANICITANIMLA"
DoCmd.OpenForm stDocName, , , stLinkCriteria
ElseIf c <> "2112401" Then
MsgBox "Hatalı şifre...Bence boşuna uğraşma", vbOKOnly + vbCritical, "FATURA TAKİP"
Me.Undo
End If
stDocName = "anamenu"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Komut369_Click:
Exit Sub
Err_Komut369_Click:
MsgBox Err.Description
Resume Exit_Komut369_Click
End Sub