Sevgili arkadaşlar daha önce yayınlanan açılır pencereden forum açtırmayı projemde kullanıyorum. Şimdi açılan pencereden bazı sayfalara giriş yetkisine göre kısıtlama yapmak istiyorum şöğle bir çalışma yaptım Tek sayfayı kısıtlıyorum fakat 2 sayfa kısıtlamayı yapamadım. Örnek kod aşağıdai

Bu aşağıdaki kod tek sayfa için sorunsuz çalışmaktadır.



Private Sub Açılan_Kutu338_AfterUpdate()

'Form kısayol açılan kutu

If Açılan_Kutu338 = "Yedekle" And Me.yetki = 4 Then

MsgBox ("Bu sayfaya girme yetkiniz yoktur.")

Else

DoCmd.OpenForm Me.Açılan_Kutu338

End If

End Sub

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx



If Açılan_Kutu338 = "Yedekle" ,"Personel", "Kayıt" And Me.yetki = 4 Then



Şeklinde çoğaltmak istiyorum yardımlarnız için şimdiden teşekkür ederim