Değerli üstadlar merhaba,

Örnek alabileceğim yetkilendirilmiş Excel userform login örneği varmıdır, Accsess bağlantılı.

yada eklediğim dosyaya yardım rica ediyorum.

Sub Label2_Click()

    Dim baglan As Object, rs As Object

    

    

    Set baglan = CreateObject("adodb.connection")

    Set rs = CreateObject("adodb.recordset")

    

    Set baglan = CreateObject("adodb.connection")

            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 & "'", baglan, 1, 1

    

    If rs.RecordCount > 0 Then MsgBox "Basarili" Else MsgBox "Basarisiz"

    rs.Close

    baglan.Close

    Set rs = Nothing

    Set baglan = Nothing

End Sub

ve koltuğumdam kalkıp bir meraklla yine bilgisayar başındayım

Hocam giriş kodları çalışıyor... peki admin yetkileri ile kullanıcı yetkilerini nasıl ayarlayabiliriz.
Admin yetkisi olmayan kullanıcılar sadece kayıt yapabilsin.. Silme vs yapamasın, gibi..

---

Bu arada kodlar için teşekkür etmeyi unuttum , çok teşekkür ederim..

Rica ederim.
Hiç yetkilendirme olaylarına girmemiştim accesste.Lakin dosyalar indirip incelemiştim.
Tabloda işaretleme alanı oluyordu.Ordan işaretleyip yetki veriliyor biliyorum.O alanda heralde false ve true sonuç döndermesi gerek.Tabloya eklerseniz verdiğim koda and ilgili alan true yada false gibi kodda eklenebilir.

@feraz hocam,

tablodaki role alanı bunun için aslında, bu alana "admin" veya "user" yazıcak sadece..
User olan kullanıcılar sadece kayıt ve gözlem yapabilecek, admin olanlar tam yetkili olacak.. gibi

örnek dosya varsa paylaşabilir misin ?

İnceleyin şifre kullanıcıların ilk harfi.Yazıyor zaten açılışta