كود الخروج من البرنامج

علما بان رسالة انقطاع الاتصال رقمها error 3043 والمطلوب هو ان يترجم ما يلي في كود كي استخدمه في القاعدة

في القاعدة الحالية اذا ظهرت رسالة رقم 3043 ونموذج1 محمل او نموذج2 محمل اغلق جميع رسائل الخطأ 3040 وخرج من قاعدة البيانات

وتقبلو تحياتي .................................

اخي الفاضل طارق

دعنا نأخذ الموضوع خطوة خطوه

1. لنفرض ان لديك نموذج اسمه FORM1 او FORM2 وتريد اغلاق القاعدة عند ظهور رسالة الخطأ التي رقمها 3040 اذن نضع هذا الكود في حدث الحالي للنموذج FORM1 او FORM2

Private Sub Form_Current() 
On Error Goto Errhandler 
Errhandler: 
	If Err.Number = 3043 then 
		DoCmd.Quit
	Else 
		Msgbox Err.Number & " " & Err.Description 
	End If 
End Sub

اذا لم يعمل معك في حدث عند الحالي فضعه في حدث عند قطع الاتصال واعتقد انه هو الانسب في مثل حالتك

Private Sub Form_OnDisconnect()
On Error Goto Errhandler 
Errhandler: 
	If Err.Number = 3043 then 
		DoCmd.Quit
	Else 
		Msgbox Err.Number & " " & Err.Description 
	End If

او استخدم هذا مباشرة في حدث عند قطع الاتصال

Private Sub Form_OnDisconnect()
DoCmd.Quit
End Sub

اختكم

زهره

الاستاذه الفاضلة زهرة اقدر لك هذا الجهد واشكرك على التجاوب المثمر والمستمر

اما بنسبة عن كل ما ذكرته اعلاه فلن تنجح ايا منهم بالاضافة الى اني ادراجت الكود في حدث خطأ الذي في النموذج ولكن دون جدوى ,,,,,,,,,,,, تحياتي لك .......... ومازل البحث مستمر ولعل هذا الرابط يساعد على الحل

http://www.experts-exchange.com/Databases/...Q_20475332.html

http://www.tutorialsall.com/ACCESS/ACCESS-51.html