Bizim için zor olan sizin için çok basittir muhakkak. Saygılar
Şifremi Unuttum ve Yeni Şifre Belirleme Hakkında
Yeni şifre butonunun tıklandığında olayına aşağıdaki kodu yazarak deneyiniz.
Dim GVerim, Soru, YeniSifre As String
If IsNull(Me.Kullanici) Or Me.Kullanici = "" Then
MsgBox ("kullanıcı adı yazın")
Exit Sub
Else
Soru = "Lütfen Aşağıdaki Soruyu Cevaplayınız" & Chr(13) & Chr(10) & Dlookup ("Soru", "Tbl_Kullanici", "[kul_id]=" & Me.Kullanici)
GVerim = InputBox(Soru, "Güvenlik Sorusu")
If GVerim = Dlookup ("Cevap", "Tbl_Kullanici", "[kul_id]=" & Me.Kullanici) Then
YeniSifre = InputBox("Lütfen Yeni Şifrenizi Yazınız", "Cevap Doğru")
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Tbl_Kullanici SET sifre = '" & YeniSifre & "' WHERE (((kul_id)= " & Me.Kullanici & "));"
DoCmd.SetWarnings True
MsgBox ("şifreniz güncellendi, yeni şifreniz ile giriş yapınız")
Else
MsgBox ("cevap yanlış")
End If
End If
Merhaba, daha önce verilen cevap ile ilgili olumlu/olumsuz bildirimde bulununuz.
Konuyu Okuyanlar: 1 Ziyaretçi