استفسار عن: اغلاق قاعدة بيانات مع اغلاق النموذج

[Mohammed Alsakka]

السلام عليكم 

يا شبا ب عند استخدام الكود  الأسفل في عند الاغلاق يتم فتح قاعدة بيانات جديد 

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

Private Sub Form_Close()
DoCmd.CloseDatabase
End Sub

 

تم تعديل أغسطس 24, 2022 بواسطه Mohammed Alsakka

[Hamtoooo]

جرب هذا الكود
 

Private Sub Form_Close()
DoCmd.Quit
End Sub

 

[ابو جودي]

استخدم الكود الاتى 

Private Sub Form_Close()
On Error GoTo QuitApp_Err
  DoCmd.Quit acSave

QuitApp_Exit:
  Exit Sub
QuitApp_Err:
  MsgBox Error$
  Resume QuitApp_Exit
End Sub

 

[jjafferr]

السلام عليكم 🙂

 

اي شيء يُكتب بعد الامر DoCmd.Quit مثل (acQuitPrompt او acQuitSaveAll او acQuitSaveNone) هو لحفظ التغيير في تصميم النموذج/قاعدة البيانات ، وليس لحفظ السجل 🙂

فالامر DoCmd.Quit يكون كافيا 🙂

 

ولكن هناك ملاحظة في مساعد الاكسس:

اقتباس

Remarks

 

The Quit method of the DoCmd object was added to provide backward compatibility for running the Quit action in Visual Basic code in Microsoft Access 95. It's recommended that you use the existing Quit method of the Application object instead.

 

فإذن الامر الاصح للخروج من البرنامج هو :

Application.Quit

 

جعفر