كيف من الممكن تطبيق دالة if على جميع السجلات

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

اخواني اخواتي

اريد ان اطبق هذه الدالة

If Me.t = "ÓÑíÚ" Then
vdate = Now()
Else
vdate = ""
Exit Sub

End If

حيث اني اريد في حال ان الحقل t تغيرت القيمة الى كلمة "سريع" فانه يكتب في حقل vdate تاريخ اليوم وان كان غير ذلك فلا يكتب شي

الدالة الاخرى مماثلة في حال ان الحقل t يحمل القيمة "صرف" فانه يكتب في حقل vdate تاريخ اليوم + 7 ايام وان كان غير ذلك فلا يكتب شي

If Me![t] = "ÕÑÝ" Then
Me![vdate] = Now() + 7
Else
Me![vdate] = ""
Exit Sub
End If

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

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

ثم بعد ثلاثة ايام كان هناك سجل آخر وغيرنا حالته حالته الى سريع طبعا تاريخ هذا اليوم سيكون 18 / 4 1435 ولا يؤثر في السجل الذي قبله

حاولت تطبيق هذا الكود لاحد الاخوة ولم ينجح

/index.php/topic/225080-%D9%85%D8%B7%D9%84%D9%88%D8%A8-%D8%AA%D8%B7%D8%A8%D9%8A%D9%82-%D8%AF%D8%A7%D9%84%D8%A9-if-%D8%B9%D9%84%D9%89-%D9%86%D9%85%D9%88%D8%B0%D8%AC-%D8%A8%D8%B3%D9%8A%D8%B7/

كذلك الدوال التي بالاعلى  كانت تعمل معي لكنها تعمل على اول سجل فقط لكنها لم تعد تعمل لا ادري لماذا

المثال لمحاولاتي اليائسة في المرفقات :blush:

important .zip