ممكن اذا لم استخدم الماوس او لوحة المفاتيح لمدة دقيقةالبرنامج يظهر شاشة الباسورد واذا كانت دقيقتين البرنامج يغلق كليا

[abouelhassan]

السلام عليكم اخوانى الاساتذة الافاضل الكرام

ممكن اذا لم استخدم الماوس او لوحة المفاتيح لمدة دقيقةالبرنامج يظهر فورم الباسورد واذا كانت دقيقتين البرنامج يغلق كليا

مع الشكر وخالص الدعاء

 

1311.11.DATA12.rar

[محمد سلامة]

في أكثر من موضوع بالموقع جرب تبحث ..بإذن الله تصل لنتيجة

 

[abouelhassan]

للرفع رفع الله قدركم

[محمد سلامة]

اتفضل

في ٢٠‏/٢‏/٢٠٢١ at 16:16, محمد سلامة said:

في أكثر من موضوع بالموقع جرب تبحث ..بإذن الله تصل لنتيجة

 

 

 

 

 

[ِAbo_El_Ela]

اساتذتي الكرام زادكم الله من العلم 

وجدت بالملف المرفق في الشرح هذا الكود

Private Sub تفصيل_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.txtTimer.Value = 5
End Sub

و من التجربة علمت انة يعيد العد من جديد

فهل اطمع في شرح الكود 

جزاكم الله خيرا

[abouelhassan]

بارك الله فيك اخى استاذ محمد سلامة

وجدت ملف جاهز وكود للاستاذ الكريم جعفر بارك الله فيه

هل بالامكان توضيح اين اضع هذا الكود فى اى حدث

مش فورم معين احتاج عند ترك اى فورم لمدة يغلق البرنامج

Private Sub Form_Load()
   
   ' start the count down in 3 minutes (60 x 3 = 180)
   Me.Tag = 180
   
   ' interval is every second
   Me.TimerInterval = 1000
   
End Sub

Private Sub Form_Timer()

   On Error Resume Next
   '**********************************
   ' Bail out when count down is zero
   '**********************************
   
   Me.Tag = Val(Me.Tag) - (Me.TimerInterval / 1000)
   
   Me.Caption = "Form will exit in " & Me.Tag & " seconds"
   
   If Val(Me.Tag) <= 0 Then
      DoCmd.Quit
   End If

End Sub

مشكور اخى بارك الله فيك

تم تعديل فبراير 22, 2021 بواسطه abouelhassan

[abouelhassan]

وايضا اخى الغالى البرنامج الموجود بالمشاركة به هذه التعليمات

1. Open the downloaded zip file ("isd_No_Setup.zip")

2. Save/Export the isd2000.mdb file to a folder on your computer.

3. Open your MS Access application and import the form "frmInactiveShutDown" from the isd2000.mdb database file.

4. Open the form "frmInactiveShutDown" in design mode, edit the OnOpen event procedure, and set the "intMinutesUntilShutDown", and "intMinutesWarningAppears" variables to appropriate values, or use the default settings. Save and close the form.

5. Put the following line of code in your startup procedure, or in your switchboard form OnOpen event procedure:

DoCmd.OpenForm "frmInactiveShutDown", , , , , acHidden

Or, import the macro "macInactiveShutDown", and execute it (use the RunMacro action) from your autoexec macro.


TIPS

معرفتش اعملها

والبرنامج مرفق رجاء المساعدة مشكور اخى

isd2000.mdb

[abouelhassan]

للرفع