28/05/2018, 00:35
Sayfalar: 1 2
31/05/2018, 11:55
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
19/09/2018, 18:06
Merhaba, daha önce verilen cevap ile ilgili olumlu/olumsuz bildirimde bulununuz.
Sayfalar: 1 2