AccessTr.neT

Tam Versiyon: Her Bi Bölüme Ayrı Bi Kullanıcı Yetkisi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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
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
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