Şifremi Unuttum ve Yeni Şifre Belirleme Hakkında

Bizim için zor olan sizin için çok basittir muhakkak. Saygılar

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.