AccessTr.neT

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

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)

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.

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.

Docmd.runsql "update KULLANICILAR SET KULLANICISIFRESI=" & me.yenisifre & " where ID="& Me.Kullanıcı.Column1()

Dim strSQL As String
dim yerine public kullanarak denermisin.