kaser906

إن غداً لناظره قريب الله يعطيك العافيه

تطبيق رائع شكرا لك

دائما مبدع استاذنا شكرا لك

نعم استاذنا الكريم حاولت استخدام رمز الخطأ 35 للاستفادة منه في إجراء حدث معين ( اغلاق قاعدة البيانات مثلاً ) لكن دون فائدة هل من طريقة للاستافادة من هذا الخطأ في اغلاق قاعدة البيانات

اشكرك استاذنا الكريم كنت راح افتح موضوع جديد بخصوص استفسار ورأيت هذا الموضوع يحمل نفس الصلة ولكن بختلاف التفصيل حيث اني اريد أن استفيد من الخطأ في توجيه البرنامج لاجراء حدث معين الحدث هو عند فتح النموذج يتم الاتصال بالوحدة النمطية وهي قد تم حذفها او تغييراسم الاجراء اريد أن احصل على رقم هذا الخطأ لكن لاتظهر لدي سوى ههذه الرسالة

اخي الكريم كلنا هنا نتعلم وننفق زكاة ما تعلمناه تفضل استخدم هذا الكود في حدث عند الحذف DoCmd.SetWarnings False If MsgBox("هل تريد حذف السجل", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then DoCmd.CancelEvent Exit Sub Else End If بالتوفيق ،،،

تفضل If MsgBox("هل تريد حذف السجل", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then Exit Sub Else DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord Refresh DoCmd.SetWarnings True End If لاتنسى التقيم بارك الله فيك بالتوفيق ،،،

Function SnRel() DoCmd.close acForm, stDocName DoCmd.close acForm, Me.Name DoCmd.OpenForm "frm_man" End Function السلام عليكم ورحمة الله وبركاتة بالكود أعلاه اريد اعلاق أي نموذج مفتوح عن طريقة استدعاء وحدة نمطية وفتح النموذج frm_man وضعت الكود لكن لم يعمل على اغلاق النموذج فقط ينفذ أمر فتح النموذج

الفرز في منشأ الاستعلام تنازلي حسب الصورة بالتوفيق ،،،

الف تحية والف شكر لك اخي الكريم

حسب فهمي للطرح هل هذا هو المطلوب ؟ مثال2.rar

الله يعطيك العافية اخي @sandanet الان تصوري اختلف عما كنت افكر فيه لدي استفسار هل توجد مشكلة عند استخدام هذا الكود في كل النماذج المراد من خلالها فحص رقم النسخه لأن هذا الكود يظهر لدي أخطاء عند الفتح لايتم التعرف على x

السلام عليكم ورحمة الله وبركاته لنفترض أن لدي نموذج بأسم reg خاص بتسجيل النسخه ولدي عدة نماذج form1 form2 form3 اريد عند فتح احد النماذج الثلاثة فتح النموذج reg للتأكد من تسجيل النسخه اذا كانت النسخه مسجله يقوم باغلاق النموذج reg ويكمل فتح النموذج المراد فتحه وان لم تكن مسجله يظهر نموذج reg

جربت الطريقة وهي فعالة لكن للاسف ظهرت لدي مشكلة أخرى عند تطبيقها حيث تقوم باظهار جزأ التنقل ولا يمكن اخفائه

الله يعطيك العافية استاذ صالح لدي مشكلةحاليا بالجهاز سأجرب المرفق بعد اصلاحه واوافيك بالنتيجة

يظهر هذا الخطأ

الله يعطيك العافية استاذ صالح فعلا اتضح ان هناك سبب لدي يقوم باظهار الجداول بعد اعادة الضغط والاصلاح وهو نموذج frm_relink وهو خاص باعادة ربط الجداول ويعمل مع بداية تشغيل القاعدة الان قم بعمل اخفاء للجداول ثم ضغط واصلاح وأعد تشغيل قاعدة البيانات ستلاحظ ان الجداول المرتبطة عادة للظهور مرة أخرى MyLink1.rar

غير تنسيق قاعدة البيانات الى صيغة accdb وانظر النتيجة

السلام عليكم ورحمة الله وبركاتة في المرفق مثال للاستاذة زهره العبدالله وهو يقوم بإخفاء الجداول المضمنة والمرتبطة وعند تجربتي للمرفق اتضح انه يعمل على اخفاء الجداول المرتبطة على نسخ الاكسس 2000 وعند العمل عليه على نسخ 2007 فما بعده فأنه يخفي الجداول المضمنة و المرتبطة لكن عند ضغط قاعدة البيانات وإصلاحها تظهر الجداول المرتبطة مرة أخرى المطلوب التعديل على المرفق ليقوم باخفاء جميع الجداول على نسخ الاكسس 2007 فما بعده وعدم اظهارها عند ضغط قاعدة البيانات واصلاحها MyLink.rar

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

تفضل علماً أن بناء الجداول غير صحيح وستواجه مشاكل يجب أن يكون أسم الحلقىة رقم فريد لايتكرر ويكون المفتاح الاساس وينطبق ذلك على كافة الجداول بالتوفيق ،،، الحلقة1.rar

هل لك ان تضع مثال ليتمكن السادة الاعضاء من مساعدتك في معرفة المشكلة

الله يعطيك العافية استاءنا ابو آدم

لم أقم بأي تعديل فقط ارشدتك الى طريقة التصميم الصحيحة وإن سلمنا بهذا الامر لعل من قام بتفيذ هذه الفكرة كانت تخدمك في جزئية معينة أتت بنتائج سليمة في حينة اما مع ما تريد تطبيقة حاليا ظهرت المشاكل أتمنى أن تجد من يساعدك على تنفيذ فكرتك من الساده الاعضاء الكرام بالتوفيق ،،،

وعليكم السلام ورحمة الله وبركاتة وضحت المسألة الله يعطيك العافية