المساعدة في Progress bar المرفق

[علياء يسرالدين]

السلام عليكم .. وجدت هذا الكود لشريط تقدم Progress bar ولكن لم استطع أن يرتبط بالماكرو الموجود بحيث لو انتهى الماكرو من الحدث يصل شريط التقدم إلى 100 ثم يختفي .. حاولت كثيرا ولكن لم افلح .. شكرا لكم

progressbar.accdb

[سامي الحداد]

وعليكم السلام 

هل المقصود حين الانتهاء من العد لغاية 100 يتم إغلاق النموذج؟ لاني لاحظت في الماكرو وجود امر اغلاق للنموذج.

اليك التعديل حسب ما فهمت.

progressbar.accdb

[علياء يسرالدين]

للاسف الملف تبعك ما فتح انا عندي اوفيس 2007  وشكرا على سرعة الاستجابة وانا اقصد ان شريط التقدم يقتح اي ماكرو او إستعلام ويكون مرتبط بالحدث ..إذا انتهى الحدث يختفي Progressbar  وشكرا

[سامي الحداد]

ممكن عمل ذلك من خلال الكود التالي

Private Sub Form_Timer()
Me.txtcount = Me.txtcount + 1
Me.box3.Width = Me.txtcount * 20
Me.text4 = Me.txtcount & "%"
If Me.txtcount = 100 Then
Me.TimerInterval = 0
Me.box3.Visible = False
Me.text4.Visible = False
Me.txtcount.Visible = False
'DoCmd.Close
End If

عسى ان يكون هو المطلوب.

[علياء يسرالدين]

شكرا على اهتمامك بالموضوع

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

وشكرا

[ابو جودي]

اتفضلى يا استاذه 

progressbar.accdb

[علياء يسرالدين]

شكرا شكرا الله يعافيك ... هذا هو المطلوب وشكرا لكم جميعا الله ينفع بكم

 

 

 

[ابو جودي]

4 ساعات مضت, علياء يسرالدين said:

شكرا شكرا الله يعافيك ... هذا هو المطلوب وشكرا لكم جميعا الله ينفع بكم

 

 

 

الشكر لله .. والحمد لله ان هدانا وما كنا لنهتدى لولا ان هدانا الله

[mohamedmas]

في 8‏/11‏/2021 at 11:05, ابو جودي said:

اتفضلى يا استاذه 

progressbar.accdb 440 kB · 46 downloads

في استعلام كبير لايعمل الشريط لان الاستعلام تجميع ل4 استعلامات اخري هل من شرح للكود