ابراهيم - ابو ريان قام بنشر فبراير 15, 2004 مشاركة قام بنشر فبراير 15, 2004 كيف يمكن تحديد عمل برنامج بالساعات حيث اريد ان يعمل برنامجي لمدة عشر ساعات فقط من بداية تشغيل العميل له 1 رابط هذا التعليق شارك More sharing options...
بو يوسف الراشد قام بنشر فبراير 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 رابط هذا التعليق شارك More sharing options...
بو يوسف الراشد قام بنشر فبراير 18, 2004 مشاركة قام بنشر فبراير 18, 2004 الأخ/A.A.O الرابط يعمل وها أنا أرفق لكم الملف مرة أخرى auto_close.zip رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان