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








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

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

Komut21.SetFocus
If Len(Metin10) = 0 Or Len(Metin12) = 0 Or Metin10.Value = Metin12.Value Then
 
With DoCmd
.SetWarnings 0
.RunSQL "update TKullanicilar set sifre = '" & Me.Metin12 & "' where kul_id= " & Me.Liste0
.SetWarnings -1
End With
 
Liste0.Requery
Sifre = Liste0.Column(4)
Sifre.InputMask = "Password"
Etiket9.Caption = "Göster"
 
 
 
Metin12.Visible = 0
Metin10.Visible = 0
Etiket14.Visible = 0
Etiket9.Visible = 0
Etiket32.Visible = 0
Sifre.Visible = -1
MsgBox "Şifre değiştirildi..", vbDefaultButton1, "Taruz"
Call Komut20_Click
Metin12 = ""
Metin10 = ""
Else
MsgBox "Şifreler birbirleriyle uyumlu değil. Tekrar deneyiniz..", vbCritical, "Taruz"
Metin12 = ""
Metin10 = ""
Metin10.SetFocus
End If

• Kullanıcının adı,
  
• Değiştirilme zamanı,
  
• Değişikliğin yapıldığı formun adı,
  
• Değişikliğin yapıldığı kayıt kaynağı (tablo ya da sorgu ismi),
  
• Hangi kaydın değiştiği (kaydın kimlik numarası),
  
• Değişikliğin yapıldığı denetim adı (metin kutusu, açılan kutu vb.),
  
• Değiştirilen veri,
  
• Değiştirilen verinin yerine ne girildiği,
  
• Kayıt tümüyle silindi ise bunun açıklaması,
  
• Yeni bir kayıt girilmiş ise bunun açıklaması

Alıntı: 27 Haziran 2011 Tarihli Güncelleme

• Tarihler arası filtre seçeneği eklendi.
  
• Listedeki verilerin beş farklı dosya biçiminde dışarı aktarılması için seçenek eklendi..:
  • Excel
    
  • Word
    
  • HTML
    
  • Pdf
    
  • Text
    
• Aktarılan kayıtlar için silinme seçeneği eklendi.
  

Alıntı: 14 Şubat 2010 Tarihli Güncelleme

Formun üzerine ekleyeceğiniz bir düğmeye aşağıdaki kodu yazarak listenin boşaltılmasını sağlayabilirsiniz

Kod:

CurrentDb.Execute "delete from Tbl_Guncelleme_Kaydi"
Liste0.Requery

• Kasiyer Gamze sadece Satış formundan kayıt yapabilsin, Alış formunu göremesin bile..
  
• Depocu Mustafa da sadece Alış formunu görsün.. Ama Mustafa Satış formunu göremesin.
  
• Mustafa (Depocu) ve Gamze (Kasiyer) Durum formunu görebilsinler fakat (hatırlatalım; iki grup da normalde aynı izinlere sahip) Gamze bu formdan kayıt yapabilsin ama Mustafa yapamasın.
  
• Muhasebeci Kamil tüm formları görebilsin ve grubundaki izinlere göre işlem yapabilsin. Ama Satış formundaki kayıtları düzenleyemesin..
  
• Yönetici haricindeki gruplar Yönetim Kontrol Paneli formunu göremesinler..

Call Yetkiler(Form)

Alıntı: 27-Haziran-2011 Tarihli Güncelleme

Bu tarihte,

• Kullanıcıların rapor yazdırma yetkilerini yönetmek için ilave özellik eklendi..
  
• Bu özelliği kullanabilmek için raporlarınız bu kod ile yazdırmak yeterlidir..:
  
  Kod:

  Call RaporYazdirma("Rapor_Adi")
• Rapor görüntüleme yetkisi daha önce hazırlanmış ve araçta bulunan bir özelliktir, bununla karıştırmayınız..
  

Bu yapıyı güncelleme öncesinde uygulamalarında kullananlar,

• Tbl_Nesne_Izinleri tablosuna eklenen yazdırabilir isimli alanı uygulamanızdaki aynı tabloya kopyala / Yapıştır yöntemi le alınız..
  
• Tbl_Yetki tablosuna eklenen yazdırabilir isimli alanı uygulamanızdaki aynı tabloya kopyala / Yapıştır yöntemi le alınız..
  
• Yetki modülü içerisine bu fonksiyonu yapıştırınız..:
  
  Kod:

  'Rapor Yazdırma İzni
Public Function RaporYazdirma(rprY As String)
Dim kllncY As String, raporadiY As String
raporadiY = rprY
kllncY = AktifKullaniciYetkisi
On Error Resume Next
Dim RgormeY As Double
RgormeY = DLookup("yazdirabilir", "Tbl_Nesne_Izinleri", _
"nesne = '" & raporadiY & _
"' AND grup = " & kllncY)

If RgormeY = -1 Then
MsgBox "Bu raporu yazdırma yetkiniz yok!             ", , "Taruz 2011"
Else
DoCmd.OpenReport raporadiY
End If
End Function
• Raporlarınızı bu kod ile yazdırınız..
  
  Kod:

  Call RaporYazdirma("Rapor_Adi")
  
  
  

Alıntı: 19-Şubat-2011 Tarihli Güncelleme

Bu tarihte,

• Kullanıcıların aktif ve pasif olma durumuna göre giriş yapabilmesi için ilave özellik eklendi..
  
• Pasif kullanıcının (Örnekte Nuri ) giriş yaptıktan sonra sistem yöneticisine başvurması bilgisini veren ileti verilmesi ve uygulamanın kapatılması sağlandı..
  
• Tbl_Kullanici tablosuna bu işlem için yeni bir alan eklendi..
  
• Frm_Kullanici_Giris formuna bu şartlara göre kod ilavesi yapıldı..
  

Bu yapıyı güncelleme öncesinde uygulamalarında kullananlar,

• Bu yeni alanı Tbl_Kullanici tablosuna kopyala yapıştır yöntemi ile alınız..
  
• Frm_Kullanici_Giris formunu yenisi ile değiştiriniz..
  
• Frm_Kullanici_Giris formunu daha önce biçimlendirmiş olanlar aşağıdaki kod satırını bulup
  
  Kod:

  DoCmd.Close
DoCmd.OpenForm "frm_ana"
  
  bununla değiştiriniz..:
  
  
  Kod:

  If kullanici.Column(5) = 0 Then
MsgBox "Kullanıcı yetkileriniz dondurulmuştur.. Lütfen sistem yöneticinizle görüşünüz..", vbCritical, "Taruz.."
Quit
Else
DoCmd.Close
DoCmd.OpenForm "frm_ana"
End If
  
  
  
  
  
  
• Aynı formdaki kullanici açılan kutusunu yenisi ile değiştiriniz..
  
• Admin Paneli formu, Kullanıcılar bölümünden kullanıcılarınızın Aktif-Pasif durumunu belirleyiniz..
  
  

Alıntı: 11-Mart-2010 Tarihli Güncelleme

Bu tarihte,

• Nesne izinlerini belirlerken, seçenekler arasında raporların da görüntülenmesi sağlandı..
  
• Kullanıcı Gruplarının raporları görüntüleme izinleri modüle bağlandı..
  
• Açılış ekranındaki hatalı şifre sayacı çalışmıyordu, düzeltildi..
  

Bu yapıyı güncelleme öncesinde uygulamalarında kullananlar,

• Yetki modülünü yenisi ile değiştiriniz..
  
• Raporların Görüntülenme yetkisi için, raporlarınızın Etkinleştiğinde olayına
  
  
  Kod:

  Call YetkilerRapor(Report)
  
  yazınız..
  
• Hatalı şifre sayacı için Frm_Kullanici_Giris formunun kod sayfasında Option Compare Database satırı altına
  
  Kod:

  Option Explicit
Dim YanlisSifre As Integer
  İlave ediniz..
  
  

Alıntı: 27-Ekim-2009 Tarihli Güncelleme

Bu tarihte,

• Kullanıcıların Formlara Giriş ve Çıkış zamanlarının (Form adı ile beraber giriş - çıkış tarih ve saati) kaydedilmesi için yeni bir tablo ilave edildi..
  
• Yetki modulü bu yapıya göre düzenlendi..
  
• Yönetici Kontrol Paneli formuna bu kayıtların listelenmesi için düğme ilave edildi..
  

Bu yapıyı güncelleme öncesinde uygulamalarında kullananlar,

• Bu yeni tabloyu uygulamanıza alınız..
  
• Yetki modülünü yenisi ile değiştiriniz..
  
• Frm_Admin_Panel isimli formu yenisi ile değiştiriniz.. (Opsiyonel)
  
• Çıkışların kaydı için, formlarınızı Kapandığında olayına
  
  
  Kod:

  Call Cikis(Form)
  
  yazınız..
  
  
  
• Açıldığında olayında bir değişiklik yok.. Yani,
  
  
  Kod:

  Call Yetkiler(Form)
  
  
  yazılı kalacak..

• Çalışmanızı muhakkak *.mde formatına çevirin. Ehil kişiler tarafından Vba kısmına ulaşılması kripto sisteminizin çökmesi demek. Kriptoyu çözemese bile kendine yeni bir kullanıcı hesabı açabilir.. (Ben içeriğini inceleyebilmeniz için mdb uzantılı veriyorum..)
  
  
• Kriptolama algoritmasını kendinize göre özelleştirebilirsiniz. Böylelikle tablolarınız aynı bu sistemi kullanan bir veritabanı içerisine alınmış olsa bile çözülemez.. Bunun için ilgili modül üzerinde uygun değişiklikleri yapmanız gerek.
  
  
• Kullandığınız çalışmada access penceresini gizleyin. Sistem ana form kapandığında verileri kriptoladığı için formun üzerinde bozuk veri varken formun bir şekilde kapatılması, bozuk verilerin tekrardan kriptolanması demek. Bunun için form üzerindeki Kapat düğmesi ile kapanmasını sağlayın. (kendinizde ayrı bir sistem geliştirebilirsiniz tabii) İstemeden iki defa bozulmuş veriyi çözebilmek için ilgili coz kodlarının iki defa çalıştırılması gerek.. Pencereleri gizleme modulü dosyada hazır. Aktif hale getirmek için açılış formundaki kodun tırnağını kaldırmanız yeterli..
  
  Visual Basic

  Private Sub Form_Open(Cancel As Integer)
  'fSetAccessWindow (SW_SHOWMINIMIZED)
  ...........

  
  
  
  
• Ana formdaki resmi tıkladığınızda (özellikle belirgin olmasını istemedim) dosyanın bir yedeğini C:\ dizinine WinRar dosyası olarak atar.