veri tabanında şifre koyma!!!

Katılım
14 Ağustos 2008
Mesajlar
5
Excel Vers. ve Dili
access
selam arkadaşlar,
access de veri tabanında şifre koymam lazım ve şifreyi en fazla 3 kere yalnış girilmesini istiyorum ama yapamıyorum bu konuda bana yardım edebılırmısınız şimdiden teşekkür ediyorum..
 
Katılım
30 Ocak 2006
Mesajlar
937
Excel Vers. ve Dili
Access 2003
Veri tabanına şifre koyma ifadesi ile 3 kere yanlış girilmesi ifadesi ayrı şeyler. Access'te hazırladığınız programa şifre koymak ve üç kez yanlış giriş yapılınca uyarı verip kapatmak derseniz forumdaki birçok örnekte bu türden giriş çalışmaları var. İlk mesajınız olduğu için aramamış olduğunuzu sanıyorum. Bence arayın.
 
Katılım
14 Ağustos 2008
Mesajlar
5
Excel Vers. ve Dili
access
forumda işime yarayan örnekler bldum ama ben şifreyi 3 kere yalnış girdikten sonra şifreyi günün tarihi olarak değiştiren bi program yazmak istiyorum ama olmuyo bı türlü bu konuda bı fıkrı olan varmı:(
 
Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Bir global değişken tanımlayın, şifre kontrolü satırının altında her yanlışta 1 artırın. Bir Eğer kontrolüyle 3 ulaşmış ise uygulamayı kapatın.

İyi çalışmalar
 
Katılım
30 Ocak 2006
Mesajlar
937
Excel Vers. ve Dili
Access 2003
Ben sizin için az önce kendimce bir örnek yaptım. Hem kullanıcı adı hem de şifre için bahsettiğiniz 3 kez girme sınırını kullandım. İnceleyin. Özgün bir örnek oldu. Kolay gelsin.
 
Katılım
14 Ağustos 2008
Mesajlar
5
Excel Vers. ve Dili
access
teşekkür ederim çok güzel bi çalışma olmuş...
 
Katılım
14 Ağustos 2008
Mesajlar
5
Excel Vers. ve Dili
access
hala şifrenin tarih olarak değişmesini sağlıyamıyorum
 
Katılım
18 Nisan 2007
Mesajlar
2,053
Excel Vers. ve Dili
Access 2019
Merhaba..

Üç kez yanlış girdikten sonra oluşan şarta aşağıdaki kod kümesini yazarsanız şifre (tablodan) günün tarihi olarak değişir..

Kod:
MsgBox "Şifrenizi 3 kez yanlış girdiniz. Şifre günün tarihi olarak değiştirildi..", vbDefaultButton1, "HATA"
With DoCmd
.SetWarnings False
.RunSQL "update tablo1 set tablo1.şifresi = date()" _
  & " where  tablo1.kullaniciadi=forms.şifre.metin2;"
.SetWarnings True
.Close
End With
End If
 
Katılım
30 Ocak 2006
Mesajlar
937
Excel Vers. ve Dili
Access 2003
Pardon:)) Orayı okumamışım özür dilerim. Ben ilk mesajınıza odaklandıktan sonra diğer mesajların genellikle benzer ifadeler içereceği fikrinden hareketle ilk mesaja kilitlenmişim. Ama sevgili Taruz onun kodlarını da yazmış sağolsun.
 
Katılım
18 Nisan 2007
Mesajlar
2,053
Excel Vers. ve Dili
Access 2019
Üst