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
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