ümit bektas
Altın Üye
- Katılım
- 12 Eylül 2021
- Mesajlar
- 54
- Excel Vers. ve Dili
- Microsoft Office 2016 Türkçe
- Altın Üyelik Bitiş Tarihi
- 04-07-2026
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
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
Ekli dosyalar
-
33.9 KB Görüntüleme: 2