طريقة الاغلاق ممكن تعمل ما يلي
اعمل lable وسمه مثلا : exit
ثم عند خصائصه اختار تبويب event واجعل on click الخيار حقه event procedure
ثم اضغط على المربع الصغير اللي بالجنب والصق هذا الكود
Private Sub cmdClose_Click()
On Error Resume Next
DoCmd.Quit acQuitSaveAll
End Sub
لاحظ انه cmdClose_Click هو اسم label
تستطيع الوصول لخصائص label عن طريق الضغط عليه ثم الذهاب للـ property sheet
وممكن طريقة اخرى تعملها وهي انشاء ماكرو واجعل وظيفته quit وضع زر في النموذج اللي تريد تخرج منه واجعل الماكرو اللي انشأته هو on click في خيارات الزر