تحديث سجلات

السلام عليكم ورحمة الله وبركاته .. وبعد ،،

تجدون أدناه بعض محاولاتي لكتابة كود لتحديث سجلات معينة ، أحدهما بإستخدام DAO والاخرى بإستخدام إستعلام تحديث ...

بإستخدام DAO يتم تحديث عدد سجل واحد فقط ولا أدري ما السبب ، بالرغم من إستخدامي لهذه الطريقة لإضافة عدة سجلات دفعة واحدة ، وهذا هو الكود للإطلاع عليه

Dim counter As Integer
Dim db As Database
Dim rst As Recordset

Set db = CurrentDb()
Set rst = db.OpenRecordset("SELECT * FROM CustomerStock WHERE Executed =" & True)
counter = 0
Do While counter < 5
counter = counter + 1
    rst.Edit
    rst!ChickedFree = True
    rst.Update
Loop

أما عندما أحاول تحديث السجلات عن طريق استعلام تحديث ، فيتم تحديث جميع السجلات مع تجاهل الشرط الذي قمت بتحديده ، وهذا هو الكود للإطلاع عليه

Dim counter As Integer
counter = 0
Do While counter < 5
counter = counterUpdate + 1
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE CustomerStock SET ChickedFree = True  WHERE  Executed=True And ChickedFree = False;"
Loop

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

وكل عام وانتم بخير