Skip to main content

AccessTr.neT


Yetkilendirmeler ile İlgili

Yetkilendirmeler ile İlgili

Çözüldü #7
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...
.rar Yetkilendirme_tdsharun.rar (Dosya Boyutu: 134,93 KB | İndirme Sayısı: 172)
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #8
ÖRNEGİNİZ BİR HARİKA
teşekkür ederim..
Burda olmaktan MUTLUYUMM .... Img-grin
Cevapla
Çözüldü #9
aslında aynısı ama bende yapmıştım boşa gitmesin göndereyim bari..Img-grinkullanı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
.rar planlama_celoy cevap.rar (Dosya Boyutu: 619,82 KB | İndirme Sayısı: 112)
Cevapla
Çözüldü #10
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...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #11
Ellerinize sağlık.. süpersiniz siz ya...
Cevapla
Çözüldü #12
Son bir soru daha sorabilir miyimImg-grin (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ı yaImg-cray

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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task