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