Merhaba Arkadaşlar Ben Bi Konuda Size Danışmak istedimde Ben donem projesi olarak okul takip programı yapiyorum simdi programımda ana giristen haric bolum daha var ogrenci giris ogretmen giris bide personel giris var bunlarin hepsine ayri kullanici adi ve sifre koymamiz mumkunmu mumkun ise beni bu konuda bilgilendire bilecek arkadaş varmı yardımlarınız için Teşekkür ederim şimdiden Saygılar ile
Her Bi Bölüme Ayrı Bi Kullanıcı Yetkisi
Sn djbahane forumda arama yapabilirsiniz. Ben sizin için bir kaç konu buldum. Sorununuzu çözemezseniz; örnek ekleyerek takıldığınız yeri sorunuz. Kolay gelsin. Saygılar...
https://accesstr.net/konu-kullanici-duze...%C5%9Fifre
https://accesstr.net/konu-kullanici-kayi...%C5%9Fifre
https://accesstr.net/konu-kullanici-hesa...%C5%9Fifre
https://accesstr.net/konu-kullanici-kars...%B1c%C4%B1
https://accesstr.net/konu-kullanici-duze...%C5%9Fifre
https://accesstr.net/konu-kullanici-kayi...%C5%9Fifre
https://accesstr.net/konu-kullanici-hesa...%C5%9Fifre
https://accesstr.net/konu-kullanici-kars...%B1c%C4%B1
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.
Access için her zaman lazım olacak konu başlıkları listesi
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.
Access için her zaman lazım olacak konu başlıkları listesi
Aşagıdaki kodda sadece şifre tanımlama yapabilir sin her bölüme ayrı şifre.Kodu tıklanıldıgında olay yordamına ekliyorsun.Kodları kendine göre düzenlemeyi unutma.
Kod:
Private Sub Komut369_Click()
On Error GoTo Err_Komut369_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim c As String
c = InputBox("Lütfen şifreyi giriniz", "FATURA TAKİP")
If c = "2112401" Then
stDocName = "KULLANICITANIMLA"
DoCmd.OpenForm stDocName, , , stLinkCriteria
ElseIf c <> "2112401" Then
MsgBox "Hatalı şifre...Bence boşuna uğraşma", vbOKOnly + vbCritical, "FATURA TAKİP"
Me.Undo
End If
stDocName = "anamenu"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Komut369_Click:
Exit Sub
Err_Komut369_Click:
MsgBox Err.Description
Resume Exit_Komut369_Click
End Sub
ekselanss, 19-07-2009 tarihinden beri AccessTr.neT üyesidir.
Konuyu Okuyanlar: 1 Ziyaretçi