#access #vba #form #kod #code #sifre #giriş #ekran
Option Compare Database
Dim a As Integer

Private Sub Form_Load()
a = 0
End Sub

Private Sub Komut4_Click()
Dim tc, sifre, sorgu
tc = tcno.Value
sifre = prl.Value
sorgu = "Select * From personel Where tckimlikno='" & tc & "' AND parola='" & sifre & "'"
Set sonuc = CurrentDb.OpenRecordset(sorgu)
If sonuc.RecordCount = 1 Then
MsgBox ("Başarıyla Giriş Yapılmıştır. Sayın " & sonuc!ad & sonuc!soyad & " Hoş Geldiniz")
DoCmd.Close
DoCmd.OpenForm "Ana Ekran"

Else
a = a + 1
MsgBox ("Hatalı Giriş Yapılmıştır. Lütfen İçeriği Kontrol ederek tekrar deneyiniz. " & a & ".Hatalı Giriş")
If a = 3 Then
uyari = MsgBox("3 Defa Hatalı Giriş Yaptınız", vbCritical + vbOKOnly)
DoCmd.Quit
End If
End If
End Sub

Private Sub Komut5_Click()
DoCmd.Close

End Sub

Private Sub Komut6_Click()
DoCmd.Quit

End Sub