[عيسى ابو ارميس]

انا قمت بتصميم برنامج يقوم على تسجيل لحظة الدخول الى النظام أما عند الضغط على ايقاف التشغيل النظام الا يحفظ قيمة الخروج داخل قاعدة البيبانات عند انهاء النظام , اما عند اغلاق البرنامج يدويا يقوم بحفظ الاوقت الخروج , وانا اطلب من جميع ذوي الخبرة أظافة كود من أجل حفظ وقت الخروج داخل قاعدة البيانات

[ahmedabdelaliem]

السلام عليكم ورحمة الله وبركاته

حياك الله اخي

طلبك في المرفقات

بالتوفيق

[Ahmed_Mansoor]

أهلا أخي الكريم , تستطيع تنفيذ كود معين قبل إغلاق البرنامج , وذلك بإستخدام هذا الكود في حدث الـ Form_QueryUnload للفورم :

PHP كود :

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

If UnloadMode = vbAppWindows Then

   Cancel = -1

   ' ضع الكود الذي تريد تنفيذه قبل إغلاق البرنامج
   
   End
   
End If

End Sub 


[Ahmed_Mansoor]

أهلا أخي الكريم , تعديل الكود السابق , أنت ضعه بهذه الطريقه لأي محاولة لإغلاق برنامجك :

PHP كود :

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

   Cancel = -1

  ' ضع الكود الذي تريد تنفيذه قبل إغلاق البرنامج
   
  End
  
End Sub 


وهذا الكود إضافة فقط إذا أردت أن تعرف من الذي يحاول أو ماهي طريقة إغلاق برنامجك :

PHP كود :

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   
Cancel = -1
   
Select Case UnloadMode
       
       Case vbFormControlMenu
            MsgBox "The user chose the Close command (the ""X"") from the Control menu on the form."
       Case vbFormCode
            MsgBox "The Unload statement is invoked from code."
       Case vbAppWindows
            MsgBox "The current Microsoft Windows operating environment session is ending."
       Case vbAppTaskManager
            MsgBox "The Microsoft Windows Task Manager is closing the application."
       Case vbFormMDIForm
            MsgBox "An MDI child form is closing because the MDI form is closing."
       Case vbFormOwner
            MsgBox "A form is closing because its owner is closing."
End Select

'ضع كودك هنا

End

End Sub