Açılır pencereden forum açtırmaya kullanıcı yetkisi kısıtlama getirmek.
Arkadaşlar ekte verdiğim dosyada forum penceresinde açılır pencereden forum açtırıyorum fakat sadece bir foruma kısıt koyabildim. kullanıcı yetkisine göre 1 den fazla forum adına kısıt koyamadım. Yardımlarınızı rica eiyorum.
Merhaba. Yetki verilecek FORM isimlerini or kodu ekleyerek devam ettirebilirsin.
if açılankutu ="yedekle" OR açılankutu ="işler" AND yetki="4" then
sayın okumas,
bahsettiğiniz talebinize yönelik olarak;
bu hali ile geçerli olmak sureti ile yorumlandığı takdirde,pek de sağlıklı bir kullanım içermeyecektir.
çünkü;her ne kadar az sayıda form olsa da,fark edilsin ki çok form olduğunda bu hali üzerinden bakıldığında,
If Açılan_Kutu338 = "Yedekle" And Me.yetki = 4 Then
kod satırına,diğer engellemek istediğiniz form adlarını da çoğaltarak yazmanız gerekmektedir.
ÖRNEK
If Açılan_Kutu338 = "Yedekle" and Açılan_Kutu338 = "engellenecek_form_adi1" and Açılan_Kutu338 = "engellenecek_form_adi1" And Me.yetki = 4 Then
bu da,belirtildiği gibi,teferruatlı ekleme demektir.başa çıkılması da soruna neden olur.
bunun yerine,elbette ki site arama sayfasında "yetkilendirme" yazdığınızda hayli konular edinmeniz ve bunları incelemeniz mümkün.fakat,aşağıda bağlantısı yazılı sayın Mehmet Bey tarafından sunulan konuyu incelemeniz faydalı olabilir kanısındayım.ya da en azından fikir verebilir.
Acemiler İçin Uygulamalar: Kullanıcı giriş ve şifre formu. Yetkilendirmeye göre işlem
bilginize...iyi çalışmalar,saygılar.
Veya kodu aşağıdaki gibi değiştirerek kullanabilirsiniz
Yetki verilecek form isimlerini select içerisine dahil edin.
Dim FormYetkisiVarMi As Integer
Select Case Me.Açılan_Kutu338
Case "Yedekle"
FormYetkisiVarMi = "1"
Case "İşler"
FormYetkisiVarMi = "1"
Case Else
FormYetkisiVarMi = "0"
End Select
If FormYetkisiVarMi = "1" And Me.yetki = 4 Then
MsgBox ("Bu sayfaya girme yetkiniz yoktur.")
Else
'DoCmd.OpenForm Me.Açılan_Kutu338
MsgBox ("Sayfa açıldı")
End If
Sevgili arkadaşlar ikinizinde vermiş olduğunuz cevaplar için öncelikle çok teşekkür ederim.
Sevgili atoz
"yetkilendirme" konusunda bu Access ile ilk tanıştığımda inceleme imkanım oldu fakat o gün için hiç bilgi sahibi olmadığım için ve projeme nasıl başlayacağımı bilmediğimden. Dahil edemedim. şimdi Aslında Fikir sahibi olmaya başladım.
Bu bağlamda Basamakları tek tek anlayarak tırmalayarak çıkmak gerekiyor şimdilik elimden geldiği kadar aklımın erdiği kadar projemi güncellemeye çalışıyorum.
Yapmak istediğim çok şey var ama bilgim dahilinde öğrendikce yapmak istiyorum. Her kodu kendim editleyerek yardım alarak idrak ederek yaparsam öğrenmeme faydası olacaktır.
Yetkilendirme yapmak istediğim bir projedir. Fakat şimdilik erken sanırım benim için Saygılar emeğiniz için tekrar teşekkür ederim. Allaha emanet olun.
sayın okumas,
sadece bilgilendirme olması ve naçizane tavsiye niteliğinde hatırlatma adına;
Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
yukarıda bağlantısı yazılı konuyu incelemenizin ve içeriğindeki hususlara (özelikle,Türkçe karakter kullanımı ve BOŞLUK bırakarak tanımlamada bulunma) göre uygulamanızı yeniden düzenlemenizin,
ileride bu hususlardan kaynaklı sorunları da engellemenize imkan sağlaması söz konusu olacaktır kanısındayım.
ayrıca,
kod sayfasında DEBUG - COMPILE yapmayı da ihmal etmeyiniz.
Bilginize…iyi çalışmalar,saygılar.