Lütfen olumlu-olumsuz geri dönüş yapınız..
Option Compare Database
Private Sub btn_giris_Click()
Dim yetkim As Integer 'kullanıcının yetkisini seç
yetkim = Dlookup ("kul_yetki", "KULLANICILAR", "kul_adi='" & Me.txt_kuladi & "' AND kul_sifre='" & Me.txt_sifre & "'")
If yetkim = 3 Then
Subememuru
ElseIf yetkim = 2 Then
BYoneticisi
Else
GYonetici
End If
End Sub
Private Function Subememuru()
Dim kontrolet1 As Byte
Dim subesec As Integer
subesec = Dlookup ("kul_sube", "KULLANICILAR", "kul_adi='" & Me.txt_kuladi & "' AND kul_sifre='" & Me.txt_sifre & "'")
kontrolet1 = DCount("kul_ID", "KULLANICILAR", "kul_adi='" & Me.txt_kuladi & "' AND kul_sifre='" & Me.txt_sifre & "'")
If kontrolet1 = 1 Then
DoCmd.Close acForm, "Giriş", acSaveNo
DoCmd.OpenForm "listele_sube", , , , , , subesec
Else
MsgBox " yanlış şifre", vbOKOnly, "Geçersiz Şifre"
Me.txt_sifre.SetFocus
End If
End Function
Private Function BYoneticisi()
Dim bolgem As Integer
Dim kontrolet2 As Byte
bolgem = Dlookup ("kul_bolge", "KULLANICILAR", "kul_adi='" & Me.txt_kuladi & "' AND kul_sifre='" & Me.txt_sifre & "'")
kontrolet2 = DCount("kul_ID", "KULLANICILAR", "kul_adi='" & Me.txt_kuladi & "' AND kul_sifre='" & Me.txt_sifre & "'")
If kontrolet2 = 1 Then
DoCmd.Close acForm, "Giriş", acSaveNo
DoCmd.OpenForm "listele_bolge", , , , , , bolgem
Else
MsgBox " yanlış şifre", vbOKOnly, "Geçersiz Şifre"
Me.txt_sifre.SetFocus
End If
End Function
Private Function GYonetici()
Dim kontrolet3 As Byte
Dim subesec3 As Integer
subesec3 = Dlookup ("kul_sube", "KULLANICILAR", "kul_adi='" & Me.txt_kuladi & "' AND kul_sifre='" & Me.txt_sifre & "'")
kontrolet3 = DCount("kul_ID", "KULLANICILAR", "kul_adi='" & Me.txt_kuladi & "' AND kul_sifre='" & Me.txt_sifre & "'")
If kontrolet3 = 1 Then
DoCmd.Close acForm, "Giriş", acSaveNo
DoCmd.OpenForm "listele"
Else
MsgBox " yanlış şifre", vbOKOnly, "Geçersiz Şifre"
Me.txt_sifre.SetFocus
End If
End Function
