Public rstkayit As ADODB.Recordset hatası

1 2
24/07/2009, 14:25

hasanzengi

Arkadaşlar,
update kısmında takıldım, bana yardımcı olabilirmisiniz, örneği ekleymiyorum aşağıdaki komutu çalıştıramıyorum, formun olayına

Option Compare Database
Public rstkayit As ADODB.Recordset
Dim strSQL As String
bunu yazdığımda aşğıdaki hatayı veriyor,


This error occurs when an event has failed to run because Microsoft Office Access cannot evaluate the location of the logic for the event. For example, if the OnOpen property of a form is set to =[Field], this error occurs because Access expects a macro or event name to run when the event is fired.

Sub şifreupdate()

strSQL = "SELECT * FROM KULLANICILAR "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

With rstkayit
.Find "[ID]=" & Me.Kullanıcı.Column1()
.Fields("KULLANICIŞİFRESİ") = Me.Yenişifre
.Update
End With



End Sub
25/07/2009, 22:54

husun03

değişken tanımlamalarını Formun Open veya Load olay yordamlarında denediniz mi? (uygulamada Vba ile VB arasında bazı farklılıklar var)
27/07/2009, 08:15

esrefigit

kodunuzda bir problem yok büyük ihtimalle ya ado referansı eksik yada açmaya çalıştığınız tablo bir başka kod tarafından açılmış ve kullanılıyor demektir.
27/07/2009, 09:56

Seruz

Herşey normal gibi görünüyor ancak sizin gözünüzden şeyler olabilir.
Örneğinizi görmeden bu sorunu çözebilmek zor.
Sadece sorunlu formu ve gerekli tablo ve kayıtları içeren bir örnek gönderirseniz, daha kolay yardımcı olabiliriz.
27/07/2009, 10:17

Bilgisayarcı

Docmd.runsql "update KULLANICILAR SET KULLANICISIFRESI=" & me.yenisifre & " where ID="& Me.Kullanıcı.Column1()
27/07/2009, 16:59

Nurullah_Serdar

Dim strSQL As String
dim yerine public kullanarak denermisin.
1 2