+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Şifremi Unuttum ve Yeni Şifre Belirleme Hakkında (/konu-sifremi-unuttum-ve-yeni-sifre-belirleme-hakkinda.html)
Sayfalar:
1
2
Cvp: Şifremiunuttum_Şifre Değiştir_Log Kayıtı - oosmaner - 28/05/2018
Bizim için zor olan sizin için çok basittir muhakkak. Saygılar
Cvp: Şifremiunuttum_Şifre Değiştir_Log Kayıtı - ozanakkaya - 31/05/2018
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 IfCvp: Şifremi Unuttum ve Yeni Şifre Belirleme Hakkında - ozanakkaya - 19/09/2018
Merhaba, daha önce verilen cevap ile ilgili olumlu/olumsuz bildirimde bulununuz.