Yetkilendirmeler ile İlgili

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...

ÖRNEGİNİZ BİR HARİKA
teşekkür ederim..

aslında aynısı ama bende yapmıştım boşa gitmesin göndereyim bari.. Ö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

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...

Ellerinize sağlık.. süpersiniz siz ya...

Son bir soru daha sorabilir miyim
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