91 – Object Variable Or With Block Variable Not Set

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