18/08/2010, 23:55
Sayfalar: 1 2
19/08/2010, 00:05
rapor alanları için sekme sayfa oluşturup şifrelemek istediklerinizi buradan şifreleyebilirsiniz, sadece şifreyi bilenler o sekmeye girip o raporları görüntüleyebilir, yada kullanıcı seviyesi yaparak, seviyesi olmayanların o bölümü görmelerini engelleyebilirsiniz.
19/08/2010, 00:18
aslında ben bı ana geçiş ekranı yaptım ordan çagırıyorum
raporu tuşla hanı dedım şıfreleme varsa ordan yapayım yetkılendırmeyı yapmayı dusunmuyorum
raporu tuşla hanı dedım şıfreleme varsa ordan yapayım yetkılendırmeyı yapmayı dusunmuyorum
19/08/2010, 07:40
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 If19/08/2010, 09:33
sayın blackEagle çok teşekkür ederim
çok sagolun
çok sagolun
19/08/2010, 09:37
Sayın ErcanSahin;
Günaydın... Hocam her zaman çok farklısınız..
Teşekkürler, sevgi ve saygılar..
Günaydın... Hocam her zaman çok farklısınız..
Teşekkürler, sevgi ve saygılar..
Sayfalar: 1 2