ماهو الخطأ فى كود Recordset

[Amr Ashraf]

السلام عليكم 

اساتذتى الافاضل ما الخطأ فى هذا الكود 

Public Function RunMe()
    On Error GoTo err
    
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Set db = CurrentDb
Set rst = CurrentDb.OpenRecordset("QryRemarksEdit", dbOpenDynaset)


    If rst.EOF Then Exit Function

    Do Until rst.EOF
    
        
   If IsNull(rst!Remarks) Then
      
     rst!Remarks.Edit
        rst!Remarks = "تجديد تلقائى"
     rst.Update
        End If
             rst.MoveNext
    
 
    Loop
      
 
    On Error Resume Next
    Set db = Nothing
    rst.Close
    Set rst = Nothing
    Exit Function


err:
    MsgBox err.Number & ": " & err.Description


End Function

الفكرة انه هيفتح استعلام معين ويقوم بتعديل حقل

Remarks

فى حالة انه فارغ ويكتب جملة معينة ثم ينتقل الى السجل التالى لينظر فى توافر الشروط ويكرر العملية وهكذا ... ما الخطأ فى الكود

جزاكم الله خير

1.rar

شكرا جزيلا وجدت الحل والخطأ كان فى السطر 

 rst!Remarks.Edit

المفروض

 rst.Edit

 

تم تعديل نوفمبر 26, 2017 بواسطه Amr Ashraf