DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
Merhaba..3 kere yanlış girdikten sonra hata vermeyi nasıl yapacağız?