Kod:
Private Sub btnGiris_Click()
Dim rs As DAO.Recordset
Dim strSQL As String
Dim strKullanici As String
Dim strSifre As String
Dim strInsert As String
Dim strYetki As String
strKullanici = Me.Kullanıcı
strSifre = Me.Şifre
Debug.Print "Kullanıcı: " & strKullanici
Debug.Print "Şifre: " & strSifre
strSQL = "SELECT * FROM tblSifre WHERE Kullanıcı = '" & strKullanici & "' AND Şifre = '" & strSifre & "'"
Debug.Print "SQL Sorgusu: " & strSQL
On Error GoTo HataHandler
Set rs = CurrentDb.OpenRecordset(strSQL)
If Not rs.EOF Then
' Kullanıcı doğrulandıysa
gstrKullanici = rs!Kullanıcı
' Yetki belirle: admin ise "admin", değilse "user"
If LCase(strKullanici) = "admin" Then
strYetki = "admin"
Else
strYetki = "user"
End If
' Global değişkene ata
gstrYetki = strYetki
' Sadece Kullanıcı ve Yetki alanları olan tabloya kayıt ekle
strInsert = "INSERT INTO tblyetkigiris (Kullanıcı, Yetki) " & _
"VALUES ('" & strKullanici & "', '" & strYetki & "')"
Debug.Print "Insert Sorgusu: " & strInsert
CurrentDb.Execute strInsert, dbFailOnError
' Ana formu aç
DoCmd.Minimize
DoCmd.OpenForm "F005_AnaForm"
Else
MsgBox "Kullanıcı adı veya şifre hatalı.", vbCritical
End If
rs.Close
Set rs = Nothing
Exit Sub
HataHandler:
MsgBox "Bir hata oluştu: " & Err.Description, vbCritical
Debug.Print "Hata kodu: " & Err.Number & ", " & Err.Description
If Not rs Is Nothing Then
rs.Close
Set rs = Nothing
End If
End Sub[/quote]
