نحوه استفاده از Findدر Recordset

[soroush_k12]

با سلام
من ميخواهم توسط دستورات زير پس از بازكردن جدول Tbazdid ، ركوردي را كه در آن ركورد مقدار فيلد esterak مساوي با مقداري است كه از فرم خوانده ميشود ( مثلا Me.eshterakjadid ) پيدا شده و سپس در فيلد ديگري از آن ركورد پيدا شده مقداري نوشته شود. ولي اين كد كار نميكند. يعني find نميكند.
اشكال كار در كجاست ؟ لطفا راهنمايي كنيد.
مقدار فيلد eshterak نيز عددي است.

Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("Tbazdid")
Rst.FindFirst "eshterak='" & Me.eshterakjadid & "'"
Rst.Fields("date1").value = Me.Text93
Rst.Update
Rst.Close
Set Rst = Nothing

[amirzazadeh]

با سلام
من ميخواهم توسط دستورات زير پس از بازكردن جدول Tbazdid ، ركوردي را كه در آن ركورد مقدار فيلد esterak مساوي با مقداري است كه از فرم خوانده ميشود ( مثلا Me.eshterakjadid ) پيدا شده و سپس در فيلد ديگري از آن ركورد پيدا شده مقداري نوشته شود. ولي اين كد كار نميكند. يعني find نميكند.
اشكال كار در كجاست ؟ لطفا راهنمايي كنيد.
مقدار فيلد eshterak نيز عددي است.

Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("Tbazdid")
Rst.FindFirst "eshterak='" & Me.eshterakjadid & "'"
Rst.Fields("date1").value = Me.Text93
Rst.Update
Rst.Close
Set Rst = Nothing
سلام
اين كد رو تست كنيد:


Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("select * from Tbazdid where "
"eshterak='" & Me.eshterakjadid "'")
rst.edit
Rst.Fields("date1").value = Me.Text93
Rst.Update
Rst.Close
Set Rst = Nothing