24-06-2012, 20:48
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..:
Uygulama..:
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..
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..:
- Görüntüleme
- Kayıt Ekleme
- Kayıt Düzenleme
- Kayıt Silme
- Yazdırma (Sadece raporlar için)
- Görüntüleme
- Çoklu Nesne Seçip Toplu Yetkilendirme Yeni
- Formdaki Düğmeleri Yetkilendirme Yeni
- Gizle
- Pasif Yap
- Uyar
- Gizle
- 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..:
- Veritabanı içerisindeki adı Deneme ile başlamayan tüm nesneleri (Tablo, Sorgu, Form, Modül) kendi uygulamanıza çekiniz.
- Başlangıç formunuzu FKullaniciGiris yapınız..
- 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
- 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!
- 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
Gelismis-Yonetici-Araclari-yonetim-Paneli
Gelismis-Yonetici-Araclari-yonetim-Paneli_2
Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
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
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