مطلوب شريط تقدم رقمي فقط

[عمر طاهر]

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

ممكن نموذج لشريط تقدم رقمي فقط مثل الصورة ..؟

ولكم جزيل الشكر

[Barna]

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

اعمل مربع نص وسمه مثلا Text7 

ثم في حدث عند عداد الوقت للنموذج ضع هذا الكود ...

    I = I + 1
    Me.Text7 = I & "%"
    If I = 100 Then Me.TimerInterval = 0

ثم اصنع زر وضع في حدثه ....

Me.TimerInterval = 100

جرب واعلمنا بالنتيجة ؟؟؟؟

[عمر ضاحى]

بعد اذن الجميع

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

 

Bar.accdb

تم تعديل يونيو 25, 2022 بواسطه عمر ضاحى

[عمر طاهر]

17 ساعات مضت, Barna said:

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

اعمل مربع نص وسمه مثلا Text7 

ثم في حدث عند عداد الوقت للنموذج ضع هذا الكود ...

    I = I + 1
    Me.Text7 = I & "%"
    If I = 100 Then Me.TimerInterval = 0

ثم اصنع زر وضع في حدثه ....

Me.TimerInterval = 100

جرب واعلمنا بالنتيجة ؟؟؟؟

مشكور اخي تم التجريب بنجاح

13 ساعات مضت, عمر ضاحى said:

بعد اذن الجميع

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

 

Bar.accdb 480 kB · 8 downloads

مشاركة جميلة .... لا عدمناك اخي

[Moosak]

وهذه طريقة أخرى بدون استخدام التايمر 🙂 

Process Par.accdb

[عمر طاهر]

23 دقائق مضت, Moosak said:

وهذه طريقة أخرى بدون استخدام التايمر 🙂 

Process Par.accdb 440 kB · 1 download

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

روعة