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