Userform Login Ve Yetkilendirme

Userform Login Ve Yetkilendirme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Userform Login Ve Yetkilendirme (/konu-userform-login-ve-yetkilendirme.html)

Sayfalar: 1 2 3 4 5

RE: Userform Login Ve Yetkilendirme - kanakan52 - 21/05/2020

Muhteşem bir şey yapmış Taruz hoca.. Ancak benim bunu çözmem yıllarımı alır. Hala imrenerek dosyayı inceliyorum nedir bu diye Img-grin

RE: Userform Login Ve Yetkilendirme - feraz - 21/05/2020

Alttaki kodu deneyin.
Kullanıcımı Adminmi anlarsınız mesajla ve gereki kodları ona göre yazarsınız.

Sub Label2_Click()

    Dim baglan As Object, rs As Object

    Dim yetki As String, varmi As Boolean

    

    Set baglan = CreateObject("adodb.connection")

    Set rs = CreateObject("adodb.recordset")

    

    varmi = False

    

    baglan.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Database.accdb;Persist Security Info=False;"

    If baglan.State <> adStateClosed Then

        baglan.Close

        Exit Sub

    End If

    baglan.Open

'--------------------------------------------------------------------------------------------------------------------------------------------------------

    rs.Open "select * from [Users] where User_Name ='" & TextBox1.Value & "' and Password ='" & TextBox2.Value & "' and Role ='admin'", baglan, 1, 1

    If rs.RecordCount > 0 Then

        yetki = "Admin"

        varmi = True

        GoTo 1

    End If

'--------------------------------------------------------------------------------------------------------------------------------------------------------

    rs.Close

    rs.Open "select * from [Users] where User_Name ='" & TextBox1.Value & "' and Password ='" & TextBox2.Value & "' and Role ='user'", 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

Re: Userform Login Ve Yetkilendirme - kanakan52 - 21/05/2020

(21/05/2020, 19:18)feraz yazdı: Alttaki kodu deneyin.
Kullanıcımı Adminmi anlarsınız mesajla ve gereki kodları ona göre yazarsınız.

Sub Label2_Click()

    Dim baglan As Object, rs As Object

    Dim yetki As String, varmi As Boolean

    

    Set baglan = CreateObject("adodb.connection")

    Set rs = CreateObject("adodb.recordset")

    

    varmi = False

   

    baglan.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Database.accdb;Persist Security Info=False;"

    If baglan.State <> adStateClosed Then

        baglan.Close

        Exit Sub

    End If

    baglan.Open

'--------------------------------------------------------------------------------------------------------------------------------------------------------

    rs.Open "select * from [Users] where User_Name ='" & TextBox1.Value & "' and Password ='" & TextBox2.Value & "' and Role ='admin'", baglan, 1, 1

    If rs.RecordCount > 0 Then

        yetki = "Admin"

        varmi = True

        GoTo 1

    End If

'--------------------------------------------------------------------------------------------------------------------------------------------------------

    rs.Close

    rs.Open "select * from [Users] where User_Name ='" & TextBox1.Value & "' and Password ='" & TextBox2.Value & "' and Role ='user'", 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

Sn. Taruz hocamin calismasindan sonra bilgisayari kapamistim, iftardan sonra tekrar acip denicem. Cok teşekkür ederim feraz hocam..

RE: Userform Login Ve Yetkilendirme - feraz - 21/05/2020

Hayırlı iftarlar benim için daha tam 2 saat var Img-grin

RE: Userform Login Ve Yetkilendirme - kanakan52 - 21/05/2020

(21/05/2020, 20:28)feraz yazdı: Hayırlı iftarlar benim için daha tam 2 saat var

Cok varmış, iftar yaklasinca ben ben olamiyorumda ? simdi bakiyorum hocam.

RE: Userform Login Ve Yetkilendirme - kanakan52 - 21/05/2020

feraz hocam selamlar,

Kodlar makbule geçti, kapasitem kadar yol almaya başladım, daha pratik nasıl yapılır kısmını biraz yol alınca sizinle paylaşacağım.. Aklım halen gönderdiğiniz dosyada Img-grin