كيفية عمل التزامن بين شريط التمرير و عمل الكود

[ماجدجلال]

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

في الملف المرفق مثال عن عمل كود يقوم بالدورا علي كل السجلات ويضع فيها قيمة محدد مثلا 4 , و اريد وضع شريط تمرير يقوم بالعمل متزاما مع نفس عمل الكود , ليس من المهم الكود لانة يمكن عمل نفس الامر بواسطة استعلام تحديث و لكن الامر من ناحية تزامن الشريط مع الكود ,!!!

تماما مثل الشريط الموجود الذي نرانة اثناء تحميل البرامج او عمل التثبيت لها ....

الشريط مع الكود هو من عمل الاستاذ الفاضل ابوهادي علي هذا الرابط

شريط سهل الاستخدام

المهم هو اين اضع الكود الذي يعمل علي تمرير ( تشغيل ) الشريط في نفس الوقت الذي يعمل فية الكود علي السجلات . بحيث ينتهي الاثنين معا ,,,

في الملف المرفق وضعت شريط التمرير في نموذج مستقل اسمة form2

ارجو منكم المساعدة وجزاكم الله كل خير ,,,,

mmjj1.rar

[Dream_Works]

أخي الكريم

قمت بتعديل الكود بحيث يتم تحديث البيانات مره ثم عرض شريط التمرير مره .... و هكذا

أرجو أن يكون هذا هو المطلوب

Private Sub أمر6_Click()

Dim Max As Integer, Value As Integer, Min As Byte
Min = 1
Max = DCount("[age]", "tab")
DoCmd.OpenForm "form2"
DoCmd.GoToRecord acForm, Me.name, acFirst

For Value = 1 To Max
    Call ProgCtrl(Forms!form2!Frame1, Value, 1, Min, Max, True)
    age = "7"
    If Value < Max Then DoCmd.GoToRecord acForm, Me.name, acNext
Next Value

DoCmd.Close acForm, "Form2"
End sub

1.zip

[ماجدجلال]

شكرا جزيلا استاذ Dream

بارك الله فيك . وزادك من علمة وفضلة

شكرا جزيلا ....