تحويل كود الى وحدة نمطية لاستخدامه لعدة نماذج

[الحلبي]

السلام عليكم

كما فى المرفق 

يرجى التكرم بتحويل الكود الموجود فى الزر الى وحدة نمطية لاستخدامها في عدة نماذج

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

حاولت ولم اصل للمطلوب

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

تول بار.accdb

[ابوآمنة]

تفضل دكتور حلبي :

في الوحدة النمطية :

Public Function him(FRM As Form)
Dim z As Integer
DoCmd.SetWarnings False
For z = z To 900
FRM.BRBar.Value = z
Next z
End Function

ننادي عليه من أي مكان في النماذج هكذا 

Call him(Me)

 

تول بار.accdb

[الحلبي]

هلا بالغالى / @ابوآمنة واستاذنا / صالح

يعطيك الف عافية وجزاك الله كل خير وزادك الله علما ورحم الله والديك

نعم كذلك هو المطلوب

اما عن تقليل سرعة التول بار فكيف ان كان لديكم الوقت

كل الاحترام والتقدير لكم 

[ابوآمنة]

3 ساعات مضت, حلبي said:

هلا بالغالى / @ابوآمنة واستاذنا / صالح

يعطيك الف عافية وجزاك الله كل خير وزادك الله علما ورحم الله والديك

نعم كذلك هو المطلوب

اما عن تقليل سرعة التول بار فكيف ان كان لديكم الوقت

كل الاحترام والتقدير لكم 

تفضل يا دكتور حلبي إن شاء الله يكون المطلوب 

ممكن التحكم في السرعة من مربع النص 

Call him(Me, Speed)

الوحدة النمطية 

Public Function him(FRM As Form, x As Integer)
On Error Resume Next
FRM.BRBar.Visible = True
Dim z As Integer
DoCmd.SetWarnings False
FRM.BRBar.Max = x
For z = z To x
FRM.BRBar.Value = z
Next z
FRM.BRBar.Visible = False
End Function

 

تول بار.accdb

[الحلبي]

اقتباس

ممكن التحكم في السرعة من مربع النص

تمام التمام نعم هو المطلوب

بارك الله فيك 

اشكرك ولك خالص تحياتى