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...
Yetkilendirmeler ile İlgili
ÖRNEGİNİZ BİR HARİKA
teşekkür ederim..
teşekkür ederim..
Burda olmaktan MUTLUYUMM ....
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
Ö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...
Saygılar...
Ellerinize sağlık.. süpersiniz siz ya...
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
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
Son Düzenleme: 06/02/2009, 15:30, Düzenleyen: Morphe.
Konuyu Okuyanlar: 1 Ziyaretçi