18/02/2009, 00:11
[/align]formda yetkilendirme ile ilgili konulardan yararlanarak kendi çalışımda giriş kısmı yaptım.Fakat kodlarda ID kısmı hata veriyor.?
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 Sub
gecensure = Format(Date - DLookup("Last(bakimtarihi)", "BAKIMTABLOSU"), "00")
gecensure = Format(Date - DLookup("Last(İşe Giriş Tarihi)", "Müşteri Bilgileri"), "00")