excelle acces "kullanıcı giriş ekranında bağlanırken hata alıyorum

[ümit bektas]

nereden kaynaklı bir türlü çözemedim lütfen yardım edin.


Private Sub cmdGiris_Click()
Dim cn As Object, rs As Object
Dim sql As String
Dim kullanici As String, sifre As String, yetki As String

kullanici = txtKullanici.Value
sifre = txtSifre.Value

If kullanici = "" Or sifre = "" Then
lblDurum.Caption = "Kullanıcı adı veya şifre boş olamaz."
Exit Sub
End If

Set cn = GetAccessConnection()
sql = "SELECT * FROM StokKullanici WHERE KullaniciAdi='" & kullanici & "' AND Sifre='" & sifre & "' AND AktifMi=True"
Set rs = cn.Execute(sql)

If Not rs.EOF Then
yetki = rs!rol
lblDurum.Caption = "Giriş başarılı (" & yetki & ")"

' Global değişkenleri sil ve yeniden tanımla
On Error Resume Next
ThisWorkbook.Names("g_KullaniciAdi").Delete
ThisWorkbook.Names("g_Yetki").Delete
On Error GoTo 0

ThisWorkbook.Names.Add Name:="g_KullaniciAdi", RefersToR1C1:="=""" & kullanici & """"
ThisWorkbook.Names.Add Name:="g_Yetki", RefersToR1C1:="=""" & yetki & """"

UserForm2.Show
Unload Me
Else
lblDurum.Caption = "Hatalı kullanıcı adı veya şifre."
End If

rs.Close: cn.Close
End Sub

 

[ümit bektas]

kimse destek olmadan buldum hatamı. olmasanızda yinede teşekkürler. belki birini işine yarar diyede paylaşıyorum. acceste kullanıcı adı ve rol kısmında evet hayırı seçmediğimden oluyorumuş probelmi düzelttim. teşekkürler