Sayfalar: 1 2 3 4 5 6 7 8 9
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.
Mesajı duzeltirmi siniz? Ne yazdığı anlaşılmıyor?
Giriş formu açık değil anaform açık oluyor.
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.
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
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
Sayfalar: 1 2 3 4 5 6 7 8 9