Açılır pencereden forum açtırmaya kullanıcı yetkisi kısıtlama getirmek

1 2 3 4
27/12/2016, 12:32

okumas

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.
27/12/2016, 14:14

ozanakkaya

Merhaba. Yetki verilecek FORM isimlerini or kodu ekleyerek devam ettirebilirsin.


if açılankutu ="yedekle" OR açılankutu ="işler" AND yetki="4" then
27/12/2016, 14:15

atoz112

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.
27/12/2016, 14:25

ozanakkaya

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
27/12/2016, 14:37

okumas

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.
27/12/2016, 14:41

atoz112

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.
1 2 3 4