Dediğinizi kod içerisine yazdım ama yanlış yerede yazmış olabilirim sonuç yine aynı yanlış şifre
If Me.TextBox2 <> Me.TextBox3 Then
MsgBox "Şifre eşleşmiyor."
rs.Close
conn.Close
Exit Sub
End If
rs.Close
Call connection_open
sql2 = "select [ŞİFRE] from personel where [ID]='" & user & "'"
rs.Open sql2, conn, adOpenKeyset, adLockPessimistic
MsgBox "Şifre Başarılı Şekilde Değiştirildi"
rs.Update 0, Me.TextBox2
rs.Update
rs.Close
conn.Close
End Sub
Son Düzenleme: 26/08/2020, 08:43, Düzenleyen: merttr07.