Yetki isimli modülü tasarım görünümünde aç,
en üstteki

option compare database

kodunun hemen altına

Global RaporAdi As String

kodu ekle,


aynı modüldeki "Public Function YetkilerRapor" fonksiyonundaki kodların tamamını aşağıdaki ile değiştir. Fonksiyonun tamamı.

Public Function YetkilerRapor(RaporAd As String)

On Error Resume Next

Dim kllnc As String

RaporAd = RaporAdi

kllnc = AktifKullaniciYetkisi



Dim Rgorme As Integer



Rgorme = Nz(DLookup("goruntuleyebilir", "Tbl_Nesne_Izinleri", _

"nesne = '" & RaporAd & _

"' AND grup = " & kllnc), 0)

If Rgorme = -1 Then

MsgBox "Bu raporu açma yetkiniz yok!             ", , "OSMAN GÖNÜLLÜ"

Else

DoCmd.OpenReport RaporAdi, acViewPreview, "", "", acNormal

End If

End Function

YÖNETİM formundaki "PERFORMANS DEĞERLENDİRME" butonunun tıklandığında olayındaki kodları aşağıdaki ile değiştir.

RaporAdi = "Rpr_performans_degerlendirme"

Call YetkilerRapor(RaporAdi)