فتح فورم واغلاق اخر بتوقيت زمني

الاخت الكريمة الاستاذة / زهرة
السلام عليكم في البداية اريد ان اثني عليكي وادعو لك باطيب الدعاء وافضله بارك الله لك في صحتك وعلمك وعافيتك ووقتك واثابك خيراً على جهدك الرائع
كنت اود ان اريد تصحيح الدالة التالية او التعديل عليها لتناسب رغبتي في إغلاق الفورم في تاريخ
1/7/ 2013

ولا يعاود مطلقاً الفتح ويظهر رسالة time out or program expired

private sub form_timer()

if date>#1/7/2013# then

docom.close

msgbox"time out"

end if

end sub

المطلوب التالي

التعديل على الكود ( نسخة لكل فورم ) اي كودين

بارك الله فيكي وفي كل الاساتذه الكرام

تفضل اخي الكريم

ضع هذا الكود في حدث عند عداد الوقت

Private Sub Form_Timer()
If Date > #6/30/2013# Then
DoCmd.Close
MsgBox "time out or program expired", vbCritical, "Warning"
End If
End Sub

za-CloseFormOnDate.rar

مرحبا استاذه ..

انا عندي كود في عداد الوقت وهو

DoCmd.Close
DoCmd.OpenForm "موظف جديد"
 

. فماذا افعل ...

jamal sinani كتب:

مرحبا استاذه ..

انا عندي كود في عداد الوقت وهو

 

DoCmd.Close

DoCmd.OpenForm "موظف جديد"

 

. فماذا افعل ...

اخي الفاضل

ما فهمت عليك ماذا تريد بالضبط

ياليت توضح المطلوب جيدا حتى نستطيع مساعدتك

بالتوفيق

الاستاذة الكريمة / زهرة

لك تحياتي وتقديري وشاكر لتعاونك المثمر لقد قمت بتغير التاريخ لتاريخ امس وقمت بتجربة الملف وهو يعمل بصورة رائعة بارك الله لك في العمر والرزق والعافية وغفر لوالديكي تحياتي وخالص تقديري

المكان الذي اخبرتني ان اضع به الكود وهو ( عداد الوقت ) اصلا به كود  ( انا وضعته سابقا )

والكود بالمشاركة اعلاه ..

فماذا افعل ... في هذه الحالة .....