Access Parolalı Giriş Ekranı Oluşturma?

1 2 3 4
29/04/2010, 23:06

ycancan

arkadaslar bir giriş ekranı ve dogru kullanıcı ve sıfre gırınce ana form açılacak yoksa msgbox("hata") verecek bunları sihirbaz ile yapamadım kod ile ilgilide bilgim yok yardımcı olabilirmisiniz acaba
birde doğru giriş yapılırsa giriş ekranı kapanacak
29/04/2010, 23:16

emturker

girişi kontrol etmemiştim ama ekranı kaplamayı bir kontrol edin.
olmazsa girişi değiştirelim.

girişide değiştirdim bundan sonrası size kalmış.
iyi geceler.
29/04/2010, 23:26

ycancan

hocam kaplama değil dogru giriş yapılıcan örneğin su an girişe tıklayınca arkada giriş formu açık kalıyor ya o kapansın dıyordum
29/04/2010, 23:27

emturker

logonu kontrol edin.
29/04/2010, 23:30

ycancan

'Kullanıcı adını giriniz

If IsNull(Me.kullanıcı) Or Me.kullanıcı = "" Then
MsgBox "Lütfen Kullanıcı Adı Giriniz.", vbOKOnly + vbCritical, "BİLGİ"
Me.kullanıcı.SetFocus
Exit Sub
End If

'Kullanıcı şifresini giriniz



'Girilen kullanıcı adı ve şifreyi "tblŞifre" tablosundan kontrol et

If Me.Şifre.Value = Dlookup ("Şifre", "tblsifre", "[ID]=" & Me.kullanıcı.Value) Then



'Şifre formunu kapat ve frmAdmin kullanıcı tanımlama formunu aç

Form.Visible = False
DoCmd.OpenForm "FRMANA"

Else
MsgBox "Hatalı Şifre! Lütfen Tekrar Deneyiniz", vbOKOnly + vbCritical, "BİLGİ"
Me.Şifre.SetFocus
End If

'Eğer Kullanıcı 3 kez yanlış işlem yaparsa programı kapat

intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "Sisteme giriş için uygun kod ve şifre girilemedi.", vbCritical, "BİLGİ"
Application.Quit
End If
------------------------------
kodlar bunlar fakat kendı programımda yapamadım

program son hali upload::

http://rapidshare.com/files/381689885/ve...e.mdb.html
ellerine sağlık güzel olmuş
http://rapidshare.com/files/381689885/ve...e.mdb.html
bu link üzerinde düzenleyebilirmisin acaba o yaptıklarını?
29/04/2010, 23:35

emturker

biraz bekleyin ekliyelim.
kontrol ediniz.
1 2 3 4