Kod:
Private Sub Komut4_Click()
'kullanıcı adını giriniz
If IsNull(Me.kullaniciadi) Or Me.kullaniciadi = "" Then
MsgBox "lütfen kullanıcı adını giriniz..", vbOKOnly + vbInformation, "UYARI PENCERESİ"
Me.kullaniciadi.SetFocus
Exit Sub
End If
'kullanıcı şifresini giriniz
'girilen kullanıcı adı ve şifresini "tblkullanıcılar" tablosundan kontrol et
If Me.sifre.Value = DLookup("sifre", "tblkullanıcılar", "[ID]=" & Me.kullaniciadi.Value) Then
'kullanıcı giriş formunu kapat ve frmadmin kullanıcı tanımlama formunu aç
Me.Form.Visible = False
DoCmd.OpenForm "frmacilis"
End If
'eğerki kullanıcı 3 kez hatalı girerse programı kapat
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "HATALI GİRİŞ LİMİTİNİ AŞTINIZ.PROGRAM KENDİNİ KAPATACAKTIR..", vbCritical, "uyarı mesajı"
Application.Quit
End If
End SubBununla ilgili benim bi örneğim var forumda:
https://accesstr.net/yetkilendirmeler-il...ml#pid9919
Yukarıdaki örneği incelemenizi şiddetle tavsiye ederim. Orda ne demek istediğimi daha iyi anlayabilirsiniz...
Bir de, müsaadenizle birkaç konuda eleştiride bulunmak istiyorum:
Veritabanını hazırlarken tbl ve frm diyerek tablo ve formları ayırt etmişsiniz. Çok güzel.. Ancak Tablo ve alanlarda "Türkçe Karakter" kullanmışsınız. Türkçe karakterlere dikkat edin. İlerde başınızı ağrıtır. Boşluk bırakmayın. İllaki boşluk bırakmanız gerekirse de alt çizgi kullanın. Tablo tasarımı çalışın bence...
Sayın atlantis8334, gördüğüm kadarıyla forumda aktif bi üyesiniz. Onun için size bunları yazıyorum. Yoksa, "Soruyu cevapladım, biraz da eleştireyim" falan tarzı bi ukalalık değil niyetim...
Umarım işinize yarar söylediklerim...
Saygılar...
