استخدام الفاصل الزمني (فترة التوقيت) Timer Interval في حدث عند المؤقت On Timer في اكسس
لتنفيذ كود معين بشكل متكرر في كل فترة يتم استخدام هذا الحدث On Timer وهنا يجب تحديد طول الفترة (عدد الثواني) التي عندها سيتم تنفيذ الكود مرة اخرى، مثلا بعد ان يتم تحديث حقل الساعة والتاريخ في كل 5 ثواني.
وهنا يجب ان يتم تحديد الفترة الزمنية او الفاصل الزمني (Timer Interval) والذي يعبر عنه باجزاء الثواني وهو قيمة محصورة بين 0 جزء من الثانية ولغاية 2,147,483,647 جزء من الثانية.
والامثلة كثيرة على استخدام الحدث (On Timer) فمثلا لو اردنا انشاء ساعة في احد النماذج فاننا سنضطر الى تغيير قيمة حقل الساعة بشكل مستمر حتى يظهر لدينا الوقت بشكل محدث، و على سبيل المثال لو اردنا جعل لون الخلفية لتسمية معينة في النموذج يظهر بشكل وميض او مومض سنقوم باخفاء هذة التسمية واعادة اظهارها في كل ربع ثانية او بتغيير اللون من لون الى اخرفي كل نصف ثانية مثلا.
مثال على جعل تسمية (Label1) تظهر وتختفي كل نصف ثانية
نقوم باضافة تسمية ونسميها (Label1) في نموذج جديد ونكتب فيها ما نريد ثم نقوم بتغيير (Timer Interval) الى 500 ثم نقوم بوضع الكود التالي في حدث (On Timer)
VBA
Private Sub Form_Timer() If Label1.Visible = True Then Label1.Visible = False Else Label1.Visible = True End If End Sub
كما ويمكن تغيير قيمة الفاصل الزمني (Timer Interval) باستخدام كود (VBA)
VBA
Me.TimerInterval = 500
السلام عليكم احسنت الشرح بارك الله فيك لكن عندي سؤال كيف اضيف عداد الوقت في منشئ الماكرو وليس في منشئ التعليمات البرمجية وشكرا لك
ردحذف