كود بديل حدث (عند عداد الوقت )

[Elsayed Bn Gemy]

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

اسال الله لكم تمام وداوام العافية

 

اخوانى ابحث عن كود بديل لحدث ( عند عداد الوقت )

 

فانا اريد تنفيذ هذا الامر على سبيل المثال

DoCmd.Requery

ولكن كل  500 ثانيه وهكذا مثلا

 

لا حرمنا الله منكم

[jjafferr]

تفضل 

 

في الاكسس VBA Help ، ابحث عن Timer وسترى هذا المثال:

Dim PauseTime, Start

    PauseTime = 5    ' Set duration in seconds
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop

جعفر

[Elsayed Bn Gemy]

اخى جعفر وااين اضع هذا الكود فى النموذج

[jjafferr]

ما ادري 

انت سألت ولم تعطي اي معلومة إضافية عن سبب طلبك 

 

جعفر

[Elsayed Bn Gemy]

انا اريد ان انفذ حدث معين بشكل متكرر كل 500 ثانية

 

ولكن بدون استخدام الفاصل الزمنى لعداد الوقت

[jjafferr]

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

 

تستطيع ان تعمل وحدة نمطية وتدخل فيها الكود ،

او ان تعمل هذا الكود في النموذج هكذا:

Function Act_After_500()

Dim PauseTime, Start

Start_Again:

PauseTime = 500 ' Set duration in seconds
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop

me.requery

goto Start_Again

end Function

ويمكنك ان تنادي هذا الكود في حدث تحميل النموذج مثلا ، هكذا:

call Act_After_500

جعفر