Kod:
sifre= InputBox("Lütfen Şifrenizi Giriniz..!" & vbNewLine & vbNewLine & "", "Kısıtlı Erişim")
If sifre= "" Or sifre= Empty Then
MsgBox "Rapor İçin İzin Şifreniz Yoksa... Lütfen Yöneticiye Başvurunuz..", , "Dikkat"
Exit Sub
End If
If sifre= "1111" Then
Dim stDocName As String
stDocName = "Açılacak Rapor Adı"
DoCmd.OpenReport stDocName, acPreview
Else
MsgBox ("Üzgünüz..! bu rapora erişim izniniz yok..!")
Exit Sub
End If