Sub Label2_Click()
Dim baglan As Object, rs As Object
Dim yetki As String, varmi As Boolean
Dim sorgu As String
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
varmi = False
baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Database.accdb;Persist Security Info=False;"
'--------------------------------------------------------------------------------------------------------------------------------------------------------
sorgu = "select * from [Users] where User_Name ='" & TextBox1.Value & "' and Password ='" & TextBox2.Value & "' and Role ='admin'"
rs.Open sorgu, baglan, 1, 1
If rs.RecordCount > 0 Then
yetki = "Admin"
varmi = True
GoTo 1
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
rs.Close
sorgu = "select * from [Users] where User_Name ='" & TextBox1.Value & "' and Password ='" & TextBox2.Value & "' and Role ='user'"
rs.Open sorgu, baglan, 1, 1
If rs.RecordCount > 0 Then
yetki = "Kullanici"
varmi = True
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
1
If varmi = True Then
MsgBox "Basarili ve " & yetki & " olarak acilacak", vbInformation
Else
MsgBox "sifre yada kullanici adi yanlis", vbCritical
End If
rs.Close
baglan.Close
Set rs = Nothing
Set baglan = Nothing
End Sub
Alttaki gibi biraz daha değiştirdim kısaltabilirsem eklerim kod daha.