Soru Kişi, access veritabanında kayıtlı ise giriş yapabilsin

[s.savas]

Access veritabanına kullanıcı adı-şifre arayüzü ile bağlanabilirken, şifresiz giriş için, kişi veritabanında kayıtlı ise T.C Kimlik Numarası ile giriş yapsın istiyorum.
Bunun için kişi TextBox1'e kimlik numarasını yazacak, yazılan kimlik numarası REHBER isimli tablonun TC_KIMLIK alanından sorgulanacak, girilen kimlik numarası TC_KIMLIK alanında mevcut ise form5 açılacak, kayıt bulunamazsa kayıt yok mesajı verip uygulamayı sonlandıracak.
Zamanı uygun arkadaşlardan ricamdır.

 

[Orion1]

Deneyiniz.

    rs.Open "select * from [REHBER] WHERE [REHBER].TC_KIMLIK='" & TextBox1.Text & "';", baglan, 1, 1
'If Me.TextBox1.Text = rs("TC_KIMLIK") Then
'MsgBox "Kayıt Bulunamadı", vbInformation, "Süleyman SAVAŞ"
'Exit Sub
'End If
If rs.RecordCount >= 1 Then

 

[Orion1]

Olmadı sayın ssavas.
Biz size kod yazarken hiç üşenmiyoruz,ama siz beğen tuşuna basarak bir teşekkürden imtina gösteriyorsunuz.
Hemde konuyu takip edenler neler olduğunuda bilmeli.

 

[s.savas]

Deneyiniz.

    rs.Open "select * from [REHBER] WHERE [REHBER].TC_KIMLIK='" & TextBox1.Text & "';", baglan, 1, 1
'If Me.TextBox1.Text = rs("TC_KIMLIK") Then
'MsgBox "Kayıt Bulunamadı", vbInformation, "Süleyman SAVAŞ"
'Exit Sub
'End If
If rs.RecordCount >= 1 Then

Evren hocam teşekkürler, kod çalışıyor.

Private Sub CommandButton1_Click()

If TextBox1.Text = Empty Then MsgBox "Lütfen T.C Kimlik Numaranızı Giriniz.", 64, "EVN": Exit Sub

Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

Call BAGLANTI
 rs.Open "select * from [REHBER] WHERE [REHBER].TC_KIMLIK='" & TextBox1.Text & "';", baglan, 1, 1

If rs.RecordCount >= 1 Then
    Me.Hide
    UserForm5.Show
    rs.Close
    
    Else
    MsgBox "Kayıt Bulunamadı.", vbInformation, "Süleyman SAVAŞ"
    rs.Close
    Exit Sub
End If
Sheets("anasayfa").Range("AY1") = TextBox1
'Sheets("anasayfa").Range("AY2") = rs("yetki")
End Sub

logindata tablosunda kayıtlı kişileri yetkilendirebiliyoruz. Ancak bu şekilde yetkilendirilmiş kullanıcı olmadan sisteme giriş yapanların bazı işlemleri yapmamaları için kısıtlamak gerekiyor.
Bu modülden giriş yapanların kısıtlı yetkili olarak tanımlamak için nasıl bir çözüm üretilebilir.

 

[s.savas]

Olmadı sayın ssavas.
Biz size kod yazarken hiç üşenmiyoruz,ama siz beğen tuşuna basarak bir teşekkürden imtina gösteriyorsunuz.
Hemde konuyu takip edenler neler olduğunuda bilmeli.

Hakkınızı helal edin hocam, kodla ilgili test ve yetkili/yetkisiz girişlerle ilgili kombinasyonlar yaparken cevap vermeyi geciktirdik.

 

[Orion1]

Bu konu cevaplanmıştır.
Onun için yeni bir konu açıp sorunuzu sorduktan sonra cevapları beklemlisiniz.

 

[s.savas]

Bu konu cevaplanmıştır.
Onun için yeni bir konu açıp sorunuzu sorduktan sonra cevapları beklemlisiniz.

Eyvallah hocam. Mesaj alınmıştır.