[VBA] Hatırlatıcı Sorunun 4 Defa Sorulması

M_Kemal_Askeri · 11-03-2021, 03:42

Herkese Merhaba,
Ekte gönderdiğim örnek veritabanında şifresini unutan kullanıcının "Frm_Kullanici_Sifre_Degistir" formunda daha önce kendisi tarafından belirlenen ve tabloya kaydedilen hatırlatıcı soru ve cevabını sorarak yeni şifre almasını sağlamak istedim. Bu forma kullanıcı adını girdikten sonra Şifremi Unuttum Butonu vasıtasıyla Hatırlatıcı Soru butonu aktif hale geliyor ve bir İnputBox ile Hatırlatıcı Sorunun cevabı isteniyor. Ben aynen şifre girişinde olduğu gibi 4 defa yanlış girildiğinde veritabanının kapanmasını istiyorum. Bununla ilgili kodu şifre koduna benzeterek yazmaya çalıştım. Ancak maalesef sadece bir defa soruyor 4 defa döngü yapmıyor. Birkaç defa denedim ama sonuç değişmedi. Bu konuda desteğe ihtiyacım var. Şimdiden teşekkür ederim.

onur_can · 11-03-2021, 15:07

Merhaba,
Evet düzenlemişsiniz fakat bir iki ufakhatanız olmuş gözden kaçırmışsınız. Döngü olmadığı için 1. soruda program sona eriyor. Hatırlatıcı Sorunun Click Olayına aşağıdaki kodu ekleyin düzelecektir.

Visual Basic
Private Sub Komut14_Click()
On Error GoTo hata
MsgBox "Yeni şifre almak için lütfen sistemde adınıza kayıtlı HATIRLATICI SORU'yu cevaplayınız!"
Dim Cvp As Variant
Dim YanlisCvp As Long
    Cvp = InputBox(DLookup("Soru", "Tbl_Kullanici", "kul_id=" & Me.Kullanici.Column(0)), "HATIRLATICI SORU")
    
    If Cvp = DLookup("Cevap", "Tbl_Kullanici", "kul_id=" & Me.Kullanici.Column(0)) Then
    
    Metin10.Visible = True
    Metin12.Visible = True
    Etiket11.Visible = True
    Etiket13.Visible = True
    YeniSfrKyt.Visible = True
    Me.FormAltbilgisi.Visible = False
    Me.FormÜstbilgisi.Visible = True
    Me.Ayrıntı.Visible = False
    DoCmd.RunCommand acCmdSizeToFitForm
    Me.Metin10.SetFocus
    Else
Tekrar:
    Metin10.Visible = False
    Metin12.Visible = False
    Etiket11.Visible = False
    Etiket13.Visible = False
    YeniSfrKyt.Visible = False
    Me.FormAltbilgisi.Visible = False
    Me.FormÜstbilgisi.Visible = False
    Me.Ayrıntı.Visible = True
    YanlisCvp = YanlisCvp + 1
    MsgBox YanlisCvp & ". Denemenizde Hatırlatıcı Cevabınızı yanlış girdiniz. Lütfen tekrar deneyiniz.. " & Chr(13) & "4. Hatanızda Program Kapanacaktır.", vbOKOnly + vbCritical, "Hatalı Hatırlatıcı Cevap "
    Cvp = InputBox(DLookup("Soru", "Tbl_Kullanici", "kul_id=" & Me.Kullanici.Column(0)), "HATIRLATICI SORU")
    If YanlisCvp = 4 Then
    MsgBox YanlisCvp & ". 4. denemenizde de Hatırlatıcı Cevabınızı yanlış girdiniz. Üzgünüz program kapanacaktır.."
    DoCmd.Quit (acQuitSaveNone)
    Else
    GoTo Tekrar
    End If
   Exit Sub
hata:
 End If
End Sub

M_Kemal_Askeri · 11-03-2021, 17:22

Sayın onur_can çok teşekkür ederim. Sorun çözülmüştür. sağlıklı günler diliyorum.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Hatırlatıcı	mengene	12	853	04-04-2022, 06:07 Son Mesaj: mengene
	[FORM] aynı formu 2 defa açma	hedefkaya	3	1.609	09-06-2017, 15:51 Son Mesaj: jon206
	[FORM] sabit bilgi kullanma ve hatırlatıcı	siyahbere	0	1.300	21-12-2015, 13:57 Son Mesaj: siyahbere
	[RAPOR] aynı raporu iki defa tek kağıt üzerine yazdırma	YILMAZZZ	1	2.009	19-04-2014, 22:49 Son Mesaj: dsezgin
	[FORM] ACCESS İLE HATIRLATICI KURULUMU	yakamoz166	2	1.955	17-12-2013, 16:36 Son Mesaj: yakamoz166
	[FORM] hatırlatıcı	ergungoker03	3	2.816	01-11-2013, 01:29 Son Mesaj: dsezgin
	[RAPOR] RAPORLAMADA AYNI RAPORU 10 DEFA BASKI ÖNİZLEMEYE VERİYOR.	ahmetberkedural	1	1.427	27-10-2013, 22:27 Son Mesaj: dsezgin
	[FORM] Formda aynı metin kutusun iki defa kullanma	abone0069	6	3.001	17-09-2013, 13:46 Son Mesaj: dsezgin

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL