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