yazmayı unutmayınız..


Ekteki uygulamada yukarıdaki senaryoya göre gruplar ve kullanıcılar oluşturulmuş haldedir.. Her kullanıcı için giriş şifresi kullanıcı isminin ilk harfidir..


Not: Üyelerimizin isteklerine göre değiştirilmiş çeşitli versiyonlarını (alt formda yetkilendirme, textbox ile kullanıcı adı girişi vb. ) konu içerisindeki mesajlarda bulabilirsiniz..

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

Kaptan Hector Barbossa

VT:Veri Tabanı, MS:Microsoft, Kapaç: Kapa ve aç (rebot ve açkapa saçmalığına çözümüm) AVT: Access VT
Yazan okuyan sağolsun, çözene saygılar. Kolaylaştırınız, zorlaştırmayınız.
? Cinnet geçirmemek için Access 2010'u SP1 ile kullanalım.
? Sürekli sebepsiz hatalar oluyor da AVT uçuyorsa siz de Ofis kurulmunu uçurun çözülüyor. Sorun kurulum dosyanızda! Farklısını bulun!
? VT dağıtıma çıkana kadar bölmek zaman kaybıdır!
{ Veri Tabanı Mantığı } {Access 2010 çökmelerine çözüm } { 60 Günlük Ofis 2010 Pro Türkçe } { Kayıtları Yan Yana Göstermek }