+- 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ığı: Yetkilendirmeler ile İlgili (/konu-yetkilendirmeler-ile-ilgili.html)
Cvp: Yetkilendirmeler ile İlgili - tdsharun - 05/02/2009
Bu soru çok sorulduğu için bununla ilgili bir örnek de ben hazırladım. Şu an yaptığım bir projeden aldım...
İçeriğinde:
1- Kullanıcı Yetkilendirme
2- Yetkiye göre işlem yaptırma
3- Kullanıcı log kaydı tutma
örnekleri bulunmaktadır.
Bu örneği kendi uygulamanıza alabilirsiniz.
Kolay gelsin...
Cvp: Yetkilendirmeler ile İlgili - atlantis8334 - 05/02/2009
ÖRNEGİNİZ BİR HARİKA
teşekkür ederim..
Cvp: Yetkilendirmeler ile İlgili - C*e*l*o*y*c*e - 05/02/2009
aslında aynısı ama bende yapmıştım boşa gitmesin göndereyim bari..
kullanıcı: CELOY ise admin olarak giriyorÖYKÜ ise User olarak giriyor ve şifreleri 111 dir
şimdi burda ÖYKÜ ile girdiğinde bir form açılıyor ve bazı kısıtlamaları göreceksin bunu örnek olsun iye yaptım sen istediğini ayarlarsın
burada bazı kısıtlama olarak yani butonların söndüğünü görürsün ayrıca veri girebilirsin ancak silemezsin bunu sen kendine göre değiştir ,tdsharun hocam yapmış ama bende yapmıştım ve siteye girme problemim olduğu için geç gelebildim,senin işene yaramasa bile belki birinin işine yarar..kolay gelsin
Cvp: Yetkilendirmeler ile İlgili - tdsharun - 05/02/2009
Eline sağlık hocam... Ben zaten kendim yapmadım. Forumda var olan örneklerden bi derleme yaptım. Tablo yapısını da biraz daha anlaşılır bir hale getirdim. O kadar... Yani ortada bi ürün varsa ustalarımın ürünüdür...
Saygılar...
Cvp: Yetkilendirmeler ile İlgili - Morphe - 06/02/2009
Ellerinize sağlık.. süpersiniz siz ya...
Cvp: Yetkilendirmeler ile İlgili - Morphe - 06/02/2009
Son bir soru daha sorabilir miyim
(Vallahi yalan son olması mümkün değil)Hocalarım şimdi verdiğiniz örnekte
Tblsifrede Adı - Şifre - ve Yetki hanesi var
Yetki = Admin - Users var
Ben buradaki yetkiyi = Admin - Users - Only Read olarak çoğaltak istediğimde aşağıdaki kodu nasıl değiştirebilirim? Çünkü yetki usersa şunları yap değilse hepsi açık gibi birşey olmuyor mu burada?
Private Sub Form_Open(Cancel As Integer)
Dim Yetki As String, c As String
Yetki = Dlookup ("Yetki", "tblsifre", "[ID]=" & Forms!frmŞifre!Kullanıcı.Value)
If Yetki = "User" Then
MsgBox "** DİKKAT ** SİZ..Bazı işlemlerde Yetkili Değilsiniz.***", vbInformation, "DİKKAT"
Form.AllowDeletions = False
Form.AllowEdits = True
Form.Recalc
Me.Durum.Enabled = False
Me.MSFFirma_Adı.Visible = False
Me.yenkayıt.Enabled = True
Else
Form.AllowDeletions = True
Form.AllowEdits = True
Form.Recalc
Me.Durum.Enabled = True
Me.MSFFirma_Adı.Enabled = True
Me.yenkayıt.Enabled = True
End If
End Sub
Böyle birşey denedim ama olmadı ya
Private Sub Form_Open(Cancel As Integer)
Dim Yetki As String, c As String
Yetki = Dlookup ("Yetki", "tblsifre", "[ID]=" & Forms!frmŞifre!Kullanıcı.Value)
If Yetki = "User" Then
MsgBox "** DİKKAT ** SİZ..Bazı işlemlerde Yetkili Değilsiniz.***", vbInformation, "DİKKAT"
Form.AllowDeletions = False
Form.AllowEdits = True
Form.Recalc
Me.Durum.Enabled = False
Me.MSFFirma_Adı.Visible = False
Me.yenkayıt.Enabled = True
If Yetki = "ReadOnly" Then
MsgBox "** DİKKAT ** SİZ..Read Onlysiniz..***", vbInformation, "DİKKAT"
Form.AllowDeletions = False
Form.AllowEdits = True
Form.Recalc
Me.Durum.Enabled = False
Me.MSFFirma_Adı.Visible = False
Me.yenkayıt.Enabled = False
Else
Form.AllowDeletions = True
Form.AllowEdits = True
Form.Recalc
Me.Durum.Enabled = True
Me.MSFFirma_Adı.Enabled = True
Me.yenkayıt.Enabled = True
End If
End If
End Sub