اضافة عداد للوقت في نموذج اكسس

اضافة عداد لمعرفة الوقت منذ فتح نموذج اكسس

لاضافة الوقت منذ فتح النموذج نقوم باضافة 3 مربع نص في النموذج ولتكن A1,A2,A3 

المربع A1,A2 تكون مخفية اما المربع A3 فيترك مرئي

المربع A1 سيتم تخزين وقت فتح النموذج فيه.

المربع A2 سيتم فيه تخزين الوقت الحالي (الوقت المحدث)

المربع A3 سيتم فيه عرض الفرق بين الوقت الحالي A2  مطروح منه وقت الفتح A1 وسيكون هو العداد.

نحدد قيمة  Timer interval من 0 ونضع اي قيمة اقل من 1000 ولتكن 100

نضع الكود التالي عند فتح النموذج (لتحديد الوقت الحالي وتحديد القيمة للمربع A1 

Private Sub Form_Open(Cancel As Integer)
a1 = Now()

End Sub

نضع الكود التالي في حدث On Timer  (لتحديد الوقت الحالي وتحديد القيمة للمربع A2 ومن ثم تنفيذ العملية الحسابية وتحديد القيمة للمربع A3 

Private Sub Form_Timer()
a2 = Now()

a3 = Format(a2 - a1, "hh:mm:ss")

End Sub