Access SQL   ›   ACCESS KÜTÜPHANESİ   ›   ACCESS BİLGİ DEPOSU   ›   LİSANSLAMA / DEMO / ŞİFRE / YETKİLENDİRME UYGULAMALARI   ›   Gelişmiş Kullanıcı Ve Grup Yetkilendirme

Gelişmiş Kullanıcı Ve Grup Yetkilendirme
Taruz
Forum Yöneticisi

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 133 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 53 / 55
#1
access-sql-12  24-06-2012, 20:48
[Resim: yetki4.jpg]

Merhaba arkadaşlar..

Yaklaşık üç yıl önce hazırladığım ve bir çoğumuzun çalışmalarında kullandığı Gelişmiş Kullanıcı ve Grup İzinleri Belirleme Örneğini zaman içinde geliştirmiş ve güncellemiştim..

Bu son güncellemede ilave özelliklerle beraber tasarımda da değişiklikler oldu.. Bu nedenle konuyu diğerinden ayırıp bu başlıkta işlemekte fayda var..

Önceki örneği bilmeyenler için amacımız hakkında özet geçeyim..

Amaç..:

İstiyoruz ki, birden fazla kullanıcıya ait uygulamalarımıza yetkiler verelim.. Kullanıcılarımızı gruplara ayırıp yapacakları işlemleri biz belirleyelim.. Kimi kayıt yapabilsin, kimi düzenleyebilsin veya bazıları bizim belirlediğimiz form ve raporları göremesin bile.. Bunlar gibi daha bir çok yetki verebilelim.. (Detaylı açıklama için ilk paragraftaki linki tıklayınız.)

Özellikler..:
  • Kullanıcı Ekleme / Düzenleme
    (Düğmelere bağlı yönetici şifresi, sistem saatidir.. Örn: Saat 19:46 ise şifre 1946 dır.)
  • Grup Ekleme / Düzenleme
  • Grupları Yetkilendirme
  • Form ve Raporları Gruplara Göre Yetkilendirme..:
    1. Görüntüleme
    2. Kayıt Ekleme
    3. Kayıt Düzenleme
    4. Kayıt Silme
    5. Yazdırma (Sadece raporlar için)
  • Çoklu Nesne Seçip Toplu Yetkilendirme Yeni
  • Formdaki Düğmeleri Yetkilendirme Yeni
    1. Gizle
    2. Pasif Yap
    3. Uyar
  • Düğmelere Bağlı Kodları Görüntüleme Yeni
  • Kullanıcı Form Çıkışlarını Kaydetme
  • Kullanıcılara Resim Ekleme Yeni
  • Tüm Yetkilendirmeleri Form, Rapor ve Düğmelere Otomatik Tanımlama Yeni

Uygulama..:
  1. Veritabanı içerisindeki adı Deneme ile başlamayan tüm nesneleri (Tablo, Sorgu, Form, Modül) kendi uygulamanıza çekiniz.
  2. Başlangıç formunuzu FKullaniciGiris yapınız..
  3. Kullanıcılara resim ekleme için referans gerekmektedir. Eklemek için;
    Kod sayfasını (VBA editörünü) açalım. Üstteki Tools Menüsünüden Refrences seçeneğine tıklayalım.. Ekrana gelen listeden Microsoft Office xx.x Object Library seçeneğini bulup onaylayalım.. (xx.x kısmı sürümünüze göre değişir..)
    Detaylı bilgi için bakınız..: Form Üzerinden Resim Ekleme Hakkında Her Şey

  4. Uygulamada Access penceresi gizlenmiştir. Eğer uygulamanız bu şekilde değilse tüm form ve raporların özelliklerinden Kalıcı ve Açılan seçeneklerini Evet yapınız..
    Bu konuda detaylı bilgi için bakınız..: Access Penceresini Gizleme Hakkında Her Şey Ayrıca bakınız..: Access Pencerenizi Program Yardımıyla Gizleyin!
  5. Raporu yazdırmak için görüntüleme dışında ayrı bir düğme kullanınız.. Yazdırmak için düğmede kullanmanız gereken kod..:
    Call RaporYazdirma("Rapor_Adi")

Ekran Görüntüleri..:

[Resim: yetki1.jpg]

[Resim: yetki3.jpg]

[Resim: yetki2.jpg]


Bu kadar detay yeterli sanırım.. Sorularınız ve destek talebiniz için bu konuya mesaj yazabilirsiniz.. Bildirimlerinize göre uygulamayı güncellemeye çalışırım..

Deneme için; şifreler kullanıcıların ilk harfleridir.. Access 2010 ile hazırladım.. Ekteki Access 2003 versiyonu dönüştürme sonrası 2003 ile test etmedim..

Herkese Access dolu günler dilerim.. Vv



Alıntı: 05 Mart 2014 Tarihli Güncelleme
Kullanıcı Şifre Değiştirme probleminin çözümü..:

FKullanicilar formunda bulunan Kaydet resim yazılı Etiket14 adlı etiketin tıklandığında kod bölümünde bulunan kodların tamamını aşağıdaki ile değiştiriniz..:
Visual Basic
  1. Komut21.SetFocus
  2. If Len(Metin10) = 0 Or Len(Metin12) = 0 Or Metin10.Value = Metin12.Value Then
  3.  
  4. With DoCmd
  5. .SetWarnings 0
  6. .RunSQL "update TKullanicilar set sifre = '" & Me.Metin12 & "' where kul_id= " & Me.Liste0
  7. .SetWarnings -1
  8. End With
  9.  
  10. Liste0.Requery
  11. Sifre = Liste0.Column(4)
  12. Sifre.InputMask = "Password"
  13. Etiket9.Caption = "Göster"
  14.  
  15.  
  16.  
  17. Metin12.Visible = 0
  18. Metin10.Visible = 0
  19. Etiket14.Visible = 0
  20. Etiket9.Visible = 0
  21. Etiket32.Visible = 0
  22. Sifre.Visible = -1
  23. MsgBox "Şifre değiştirildi..", vbDefaultButton1, "Taruz"
  24. Call Komut20_Click
  25. Metin12 = ""
  26. Metin10 = ""
  27. Else
  28. MsgBox "Şifreler birbirleriyle uyumlu değil. Tekrar deneyiniz..", vbCritical, "Taruz"
  29. Metin12 = ""
  30. Metin10 = ""
  31. Metin10.SetFocus
  32. End If




[Resim: rar.png] Gelismis-Yonetici-Araclari-yonetim-Paneli
[Resim: rar.png] Gelismis-Yonetici-Araclari-yonetim-Paneli_2
Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



  Website   Bul
  Alıntı
Bu mesajı beğenenler: BRAVE , accessman , zaviyeli , halily
iscinar
Kıdemli Üye >1000

*
Kayıt Tarihi: 21.08.2010
Toplam 48 konu açtı.
Toplam 1.147 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 TR, Office 2013 TR,
Beğeniler: 0 / 2
#2
24-06-2012, 21:51
Sn. Taruz
Bu güzel çalışma için teşekkürler.



  Bul
  Alıntı
Bu mesajı beğenenler:
relaxim
Önemli Üye 300-400

*
Kayıt Tarihi: 21.11.2009
Toplam 3 konu açtı.
Toplam 314 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 1 / 0
#3
24-06-2012, 22:28
Bu harika paylaşım için teşekkürler. Ellerinize sağlık.



  Bul
  Alıntı
Bu mesajı beğenenler:
Gokay05
Aktif Üye 40-100

*
Kayıt Tarihi: 30.03.2012
Toplam 10 konu açtı.
Toplam 40 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003, Office 2007 TR, Office 2010 TR,
Beğeniler: 0 / 0
#4
25-06-2012, 09:20
Büyük usta eline sağlık.Ben bu işi bu defa başarıcam sanırım Smile



  Bul
  Alıntı
Bu mesajı beğenenler:
Amadeus
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 13.11.2008
Toplam 15 konu açtı.
Toplam 682 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 0 / 1
#5
25-06-2012, 22:03
Paylaşım için teşekkürler Taruz Hocam



  Bul
  Alıntı
Bu mesajı beğenenler:
MirzaKatar
Access Takımı

*
Kayıt Tarihi: 18.10.2010
Toplam 66 konu açtı.
Toplam 1.458 yorum yaptı.
Toplam 17 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 6
#6
25-06-2012, 23:37
Hocam değerli çalışmanız için gönülden teşekkürler...



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-1 Gelişmiş Kullanıcı ve Grup İzinleri Belirleme Örneği Taruz 228 140.073 17-12-2019, 16:36
Son Mesaj: ucuzbaba
access-sql-7 E-Posta Aktivasyonlu Kullanıcı Kaydı ve Destek Formu Taruz 13 10.857 20-08-2019, 10:21
Son Mesaj: cozum@msn.com
  Yetkilendirmeli Kullanıcı Giriş Formu Abdullah 15 10.540 13-10-2018, 12:18
Son Mesaj: vokkani
  Kullanıcı ve Şifre Oluşturma Sihirbazı Taruz 122 79.101 28-12-2017, 10:33
Son Mesaj: serkanoz
  Gelişmiş Kullanıcı Programı v1.0 Beta tktukaci 11 9.103 05-07-2016, 15:11
Son Mesaj: okumas
  Kullanıcı Giriş Formu Abdullah 25 19.850 22-09-2014, 23:35
Son Mesaj: blueman
  Yetkilendirme ile Treeview Menü Oluşturmak beab05 18 12.605 07-06-2012, 13:09
Son Mesaj: kesoka

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi