طلب كود إصلاح

وينكم يا جماعة .. لو سمحتم ساعدوني

السلام عليكم اخوي

انا مفهمت طلبك بس اذا كان قصدك كود يقوم بضغط واصلاح البرنامج فهذا هوا الكود

CommandBars("Menu Bar").Controls("أ&دوات").Controls("أدوات م&ساعدة لقواعد البيانات").Controls("&ضغط قاعدة بيانات وإصلاحها...").accDoDefaultAction

اما اذا كنت تقصد غير يرجى التوضيح

اخوك محمد المسيفري

الله يسلمك يا غالي تعبتك معي ..

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

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

اريد كود اضعه ايضا عند الضغط على زر الخروج ليعمل اصلاح تلقائيا ..

سوف اقوم بتجربة الكود هذا .. أشكرك من قلبي على التفاعل

أيضا نسيت عزيزي .. هل يمكنني ان اضع هذا الكود مع حدث عند النقر ؟؟ وكيف ؟؟

او انني اضعه في حدث النموذج ؟

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

تفضل اخوي المرفق

الكود موجود ضمن الوحدة النبطية ويتم استدعائه عن طريق الضغط على زر في النموذج

اخوك محمد المسيفري

_________________.rar

اتشكرك اخي العزيز على التعاون الراائع .. قد جربت الكود .. وهو ناجح .. شكرا لك ..

ولكن هناك شيء اخر لو احببت ان اضيفه مع كود الاغلاق التالي:

Private Sub Exit_Click()
On Error GoTo Err_Exit_Click


	DoCmd.Quit

Exit_Exit_Click:
	Exit Sub

Err_Exit_Click:
	MsgBox Err.Description
	Resume Exit_Exit_Click

End Sub

ما اعتقد انه يصير هذي الشي اخوي حاول وجرب راح يعطيك خطا

اعتقد استدعاء الوحدة النبطية يوجب اغلاق القاعدة لعملية الضغط والاصلاح

وهذي الشي ما راح ينفع

والله اعلم ولو احد عنده فكره يرجى توضيحها

يعني لو انضاف هذا الكود على زر الخروج راح يسوي ضغط واصلاح .

إن شاء الله لو احدهم يساعدنا ,, لو عنده فكرة

لا ما اعتقد ياخوي