طريقة عمل برنامج يعمل لعدة ساعات من تشغيله

ابراهيم - ابو ريان · فبراير 15, 2004

كيف يمكن تحديد عمل برنامج بالساعات

حيث اريد ان يعمل برنامجي لمدة عشر ساعات فقط من بداية تشغيل العميل له

**بو يوسف الراشد** · فبراير 15, 2004

أولا :

قومي بتعريف متغير ليكون وقتا

Option Compare Database
Dim MyTime As Date

ثانيا : قومي بالذهاب إلى الحدث "عند التحميل" في النموذج واكتبي الشفرة التالية

MyTime = Now()

ثالثا: قومي بالذهاب إلى الحدث "عند عداد الوقت" في النموذج واكتبي الشفرة التالية

If MyTime = Empty Then MyTime = Now()
If Now() >= DateAdd("n", 3, MyTime) Then DoCmd.Close

حيث أن "n" تدل على الثواني ولجعلها ساعات اجعليها "h"

والرقم "3" تعني عدد الدقائق أو الساعات التي تحتاجينها

رابعا:

قومي بالذهاب إلى الحدث "الفاصل الزمني لعداد الوقت" في النموذج واكتبي 1000

**بو يوسف الراشد** · فبراير 18, 2004

الأخ/A.A.O

الرابط يعمل

وها أنا أرفق لكم الملف مرة أخرى

الردود الموصى بها