Skip to main content

AccessTr.neT


Userform Login Ve Yetkilendirme

Userform Login Ve Yetkilendirme

Çözüldü #1
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.
.rar login.rar (Dosya Boyutu: 72,54 KB | İndirme Sayısı: 8)
Cevapla
#2
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
Cevapla
#3
ve koltuğumdam kalkıp bir meraklla yine bilgisayar başındayım Img-grin

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..
Son Düzenleme: 21/05/2020, 18:20, Düzenleyen: kanakan52.
Cevapla
#4
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.
Cevapla
#5
@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 ?
Cevapla
#6
İnceleyin şifre kullanıcıların ilk harfi.Yazıyor zaten açılışta
.rar trz-yonetici-araclari-2007.rar (Dosya Boyutu: 267,47 KB | İndirme Sayısı: 27)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da