ظهور رسالة تأكيد الخروج عند غلق نافذة الاكسيس

اللهم لك الحمد والشكر

ونشكر الاخ العزيز فيصل الحربي على مجهوده في هذا المنتدى الرائع والشكر موصول لكل من ساهم في المنتدى

بعرف انه الرد متاخر لاني جديد واتصفح المواضيع ولكن هل لك ان تريني الطريقة من فضلك؟؟

لاني جربت كتير وةما عرفت لدرجة إني وضعت ماكرو فهل هذا صحيح؟؟

أرجوا أن تشرح الطريقة

أختي الغالية

Computer eyes

قمي بعمل وحدة نمطية جديدة وانسخي بها هذه الاكواد

Option Compare Database

Option Explicit

Public pboolCloseAccess As Boolean

وفي حدث Unload

ضعي هذا الكود

Private Sub Form_Unload(Cancel As Integer)

If Not pboolCloseAccess Then Cancel = True

If MsgBox("åá ÊÑÛÈ Ýì ÛáÞ ÇáÈÑäÇãÌ", vbQuestion + vbYesNo + vbDefaultButton2 + vbMsgBoxRight, "ÊÃßíÏ ÇáÎÑæÌ") = vbYes Then
	pboolCloseAccess = True
	MsgBox "ÃÏÚæ ãä Çááå ÚÒ æÌá Ãä ÊÓÊÝíÏ ãä åÐÇ ÇáãËÇá " _
			& Chr(13) & "ÇáÔßÑ ááå ÚÒ æÌá Ëã ááÃÎ ÇáßÑíã / ÝíÕá ÇáÍÑÈì áÃäå ãÕÏÑ åÐÇ ÇáãËÇá ãä ãÔÇÑßÉ Êã æÖÚåÇ Ýì ÇáãäÊÏì" _
		   & Chr(13) & "ÃÑÌæ ÃÎì ÇáßÑíã ÃáÇ ÊäÓÇäì Ýì ÏÚÇÆß ÈÃä íæÝÞäì Çááå ÈÅÊãÇã ãÇ ßõáÝ Çáì ÈäÌÇÍ æÊÏÚæ ááÃÎ ÇáßÑíã / ÝíÕá ÇáÍÑÈì" _
		   & Chr(13) & "-----------------------------------------------------------------------------------------------" _
		   & Chr(13) & "æÌÒÇß Çááå ÎíÑÇ ßËíÑÇ" _
		   , vbInformation + vbMsgBoxRight, "ÃÎæßã Ýì ÇááÜÜÜÜÜÜÜÜÜÜÜÜå"
	'ÊÓÊØíÚ Ãä ÊßÊÈ ÇáÇÌÑÇÁ ÇáÐì ÊÑíÏå ÞÈá ÇáÎÑæÌ åäÇ

	DoCmd.Quit
End If

End Sub

ان شاء الله سيتم الخروج من البرنامج بالطريقة الذي تريها أمامك

بالتوفيق

جزاك الله كل خير لكنها لم تفلح معي وبيضل يحطلي مسج غنه في خطا... مش عارفة ليش.....!!!

شكرا الك كتير....