Elsayed Bn Gemy قام بنشر أبريل 1, 2015 مشاركة قام بنشر أبريل 1, 2015 السلام عليكم ورحمة الله تعالى وبركاته اسال الله لكم تمام وداوام العافية اخوانى ابحث عن كود بديل لحدث ( عند عداد الوقت ) فانا اريد تنفيذ هذا الامر على سبيل المثال DoCmd.Requery ولكن كل 500 ثانيه وهكذا مثلا لا حرمنا الله منكم رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 1, 2015 مشاركة قام بنشر أبريل 1, 2015 تفضل في الاكسس 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 جعفر 1 رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر أبريل 2, 2015 الكاتب مشاركة قام بنشر أبريل 2, 2015 اخى جعفر وااين اضع هذا الكود فى النموذج رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 2, 2015 مشاركة قام بنشر أبريل 2, 2015 ما ادري انت سألت ولم تعطي اي معلومة إضافية عن سبب طلبك جعفر رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر أبريل 2, 2015 الكاتب مشاركة قام بنشر أبريل 2, 2015 انا اريد ان انفذ حدث معين بشكل متكرر كل 500 ثانية ولكن بدون استخدام الفاصل الزمنى لعداد الوقت رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 2, 2015 مشاركة قام بنشر أبريل 2, 2015 وعليكم السلام تستطيع ان تعمل وحدة نمطية وتدخل فيها الكود ، او ان تعمل هذا الكود في النموذج هكذا: 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 جعفر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.