+- 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)
Şifre Değiştirme - merttr07 - 24/08/2020
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
RE: Şifre Değiştirme - berduş - 24/08/2020
Id alanı sayısalsa başa ve sona eklenen tek tırnaklar silinmeli
(24/08/2020, 15:54)merttr07 yazdı: "select [ŞİFRE] from personel where [ID]='" & user & "'"yerine
"select [ŞİFRE] from personel where [ID]=" & user RE: Şifre Değiştirme - merttr07 - 24/08/2020
(24/08/2020, 16:03)berduş yazdı: Id alanı sayısalsa başa ve sona eklenen tek tırnaklar silinmeliId kullanıcı adı sorgu ifadesi eksik diye hata verdi
(24/08/2020, 15:54)merttr07 yazdı: "select [ŞİFRE] from personel where [ID]='" & user & "'"yerine
ile değiştirip dener misiniz"select [ŞİFRE] from personel where [ID]=" & user
RE: Şifre Değiştirme - merttr07 - 24/08/2020
Düzeltemedim bir türlü.
RE: Şifre Değiştirme - berduş - 24/08/2020
çalışmanızın ilgili kısmını ekleyin inceleyelim.
mümkün olduğunca konularınıza çalışmanızın ilgli kısmını da ekleyin
RE: Şifre Değiştirme - merttr07 - 24/08/2020
atamıyorum boyut yetmiyor