Şifre Değiştirme

If döngüsü içinde kapatmışsınız ama dongu dışın da yok
Döngüler de sade hata durumu icin
ilk if şifre kontrolü için şifre doğru değilse kapatıyor doğruysa işlem yapmıyor
2. If yeni şifre için 2si de ayni mi kontrolü yapıyor, aynı değilse kapatıyor ama aynıysa birşey yapmıyor
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

---

Uygun bir zamanda tekrar denerim

Tamamdır teşekkürler

---

Doğru yerleştirmişim değilmi rs.close

Rs.close doğru ama 24. mesajda belirttiğim
user = girisform.TextBox1.Text sorununu hallettiniz mi? Eğer girisform kapalıysa kullanıcı adını alamayabilir o nedenle hata veriyor olabilir.

(26/08/2020, 09:12)berduş yazdı: Rs.close doğru ama 24. mesajda belirttiğim
user = girisform.TextBox1.Text sorununu hallettiniz mi? Eğer girisform kapalıysa kullanıcı adını alamayabilir o nedenle hata veriyor olabilir.

Ona ne yapmam gerekiyor ana form açık kalıyor ana form üzerinden şifre değiştir diyor.

şu an denedim çalışmanızda sadece Access adresini ve rs.close değiştirdim sorunsuz değiştirdi.
girisformu arkada hala açık olduğundan (hide-gizli) veriyi alıyor. değişikliği de sorunsuz yaptı.

Bende neden yapmıyor şifre hatalı diyor

---

Public Function connection_open()
On Error Resume Next
psw = "1234"
dp_path = "provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\Users\İZSU\Desktop\aylıkk.accdb;" & _
"Jet OLEDB
conn.Open dp_path


End Function