+- 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 - merttr07 - 26/08/2020
Uyarı konusunda haklısınız call connection_open konusunu nereye yapıcam anlamadım. Peki gariklerde neden hata veriyor ilk dört grafiği gösteriyor sonra hata alıyorum daha sonra kapatıp açıyorum ilk dört grafikte de aynı hatayı alıyorum.
RE: Şifre Değiştirme - berduş - 26/08/2020
Mesajı duzeltirmi siniz? Ne yazdığı anlaşılmıyor?
RE: Şifre Değiştirme - merttr07 - 26/08/2020
Giriş formu açık değil anaform açık oluyor.
RE: Şifre Değiştirme - berduş - 26/08/2020
Ilk mesajınızda yazdığınız kod var ya orada 2 defa connection open kullanmışsınız ilkinde verileri almak için 2.de ise şifreyi değiştirmek için
2 cinnetinden sonra da aynı recordseti kullanmışsınız rs.open burada kullandığınız rs kapatilmadan yeniden açılmaya çalışılmış, önce rs.close ile ilk açtığınız rs kapatılmalı
Her konuyu kendi altında sorun, karmaşaya neden oluyor.
RE: Şifre Değiştirme - merttr07 - 26/08/2020
Kapatmışım zaten yanlış mı anladım yoksa
(24/08/2020, 15:54)merttr07 yazdı: User formda oluşturduğum şifre değiştirme formunda hep hata alıyorum. kodlar şöyle
Şifre hatalı diye hata alıyorum.
Private Sub Image4_Click()
user = girisform.TextBox1.Text
Call connection_open
sql1 = "select [ŞİFRE] from personel where [ID]='" & user & "'"
rs.Open sql1, conn, adOpenKeyset, adLockPessimistic
If Me.TextBox1 <> rs(0) Then
MsgBox "Yanlış Şifre."
rs.Close
conn.Close
Exit Sub
End If
If Me.TextBox2 <> Me.TextBox3 Then
MsgBox "Şifre eşleşmiyor."
rs.Close
conn.Close
Exit Sub
End If
Call connection_open
sql2 = "select [ŞİFRE] from personel where [ID]='" & user & "'"
rs.Open sql2, conn, adOpenKeyset, adLockPessimistic
rs.Update 0, Me.TextBox2
rs.Update
rs.Close
conn.Close
End Sub
Buradan bahsediyorsanız hepsinde hapatmışım
RE: Şifre Değiştirme - merttr07 - 26/08/2020
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