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
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.
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
'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ı?
biraz bekleyin ekliyelim.
kontrol ediniz.