+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Şifre Değiştirme (/konu-sifre-degistirme--87590.html)
RE: Şifre Değiştirme - berduş - 26/08/2020
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
RE: Şifre Değiştirme - merttr07 - 26/08/2020
Tamamdır teşekkürler
Doğru yerleştirmişim değilmi rs.close
RE: Şifre Değiştirme - berduş - 26/08/2020
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.
RE: Şifre Değiştirme - merttr07 - 26/08/2020
(26/08/2020, 09:12)berduş yazdı: Rs.close doğru ama 24. mesajda belirttiğimOna ne yapmam gerekiyor ana form açık kalıyor ana form üzerinden şifre değiştir diyor.
user = girisform.TextBox1.Text sorununu hallettiniz mi? Eğer girisform kapalıysa kullanıcı adını alamayabilir o nedenle hata veriyor olabilir.
RE: Şifre Değiştirme - berduş - 26/08/2020
ş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ı.
RE: Şifre Değiştirme - merttr07 - 26/08/2020
Bende neden yapmıyor şifre hatalı diyor
![[Resim: O2h0RR.jpg]](https://i.hizliresim.com/O2h0RR.jpg)
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
atabase Password=" & pswconn.Open dp_path
End Function