كوماندير قام بنشر فبراير 22, 2015 قام بنشر فبراير 22, 2015 السلام عليكم اخواني الكرام لدي المرفق به نموذج رئيس MainFrm وبداخله نموذج فرعي OrdersSubFrm وبداخله نموذج فرعي BSubFrm المطلوب عند اضافة سجل للنموذج الرئيس وقبل اضافة سجل الى النموذج الفرعي OrdersSubFrm ان يكون زر الحذف الذي في النموذج الفرعي والمسمى DeltBtn غير ممكن ، وكذلك عند حذف جميع طلبات orders اي عميل ، اي عندما تكون عدد السجلات بالنموذج الفرعي OrdersSubFrm صفر ان يكون الزر DeltBtn غير ممكنا ؟
كوماندير قام بنشر فبراير 22, 2015 الكاتب قام بنشر فبراير 22, 2015 عفوا هذا المرفق DeletButnEnabled.rar
رمهان قام بنشر فبراير 23, 2015 قام بنشر فبراير 23, 2015 عزيزي ضع الحدث التالي للنموذج الفرعي OrdersSubFrm وعند الحدث في الحالي كما هو ظاهر Private Sub Form_Current() Me.DeltBtn.Enabled = Not Me.NewRecord End Sub وهنا لا نحتاج الى انه عندما تكون عدد السجلات صفر لانه في الاكسس تكون حالة السجل الافتراضية = جديد . فحتما ستكون حالة السجل جديد عندما لايوجد سجلات تحياتي 2
كوماندير قام بنشر فبراير 23, 2015 الكاتب قام بنشر فبراير 23, 2015 (معدل) اخي رمهان بارك الله بك وجزاك الله الف الف خير هذا هو المطلوب بعينه . واسأل الله ان ينفع بعلمك تم تعديل فبراير 23, 2015 بواسطه كوماندير
كوماندير قام بنشر فبراير 23, 2015 الكاتب قام بنشر فبراير 23, 2015 اخي رمهان عندما يكون ال OrderID من نوع رقم والاضافة بالنموذج الفرعي غير مسموحه الا عبر زر امر كما بالمرفق فان الكود اعلاه لايعمل جيدا خصوصا عند حذف جميع طلبات العميل فالمفروض انه عند حذف جميع الطلبات ان يتم الفاء تمكين الزر وهذا المرفق DeletButnEnabled1.rar
رمهان قام بنشر فبراير 24, 2015 قام بنشر فبراير 24, 2015 عزيزي لم تظهر لي المشكلة ؟ بل انه عندما احذف جميع سجلات الطلبات تختفي الشاشة كليا ؟ وذلك بسبب ان الخاصية السماح بالإضافة تأخذ القيمة "لا" . بالتوفيق
كوماندير قام بنشر فبراير 24, 2015 الكاتب قام بنشر فبراير 24, 2015 اعتذر اخي كثيرا انظر للمرفق : DeletButnEnabled2.rar
رمهان قام بنشر فبراير 24, 2015 قام بنشر فبراير 24, 2015 اضف الكود التالي وكما هو ظاهر الحدث : Private Sub Form_AfterDelConfirm(Status As Integer) Me.DeltBtn.Enabled = Me.RecordsetClone.RecordCount > 0 End Sub بالتوفيق 1
كوماندير قام بنشر فبراير 24, 2015 الكاتب قام بنشر فبراير 24, 2015 عمل جيد اخي ولكن افرض انك قمت بحذف جميع سجلات النموذج الفرعي فان التمكين =1 وهو مالا اريده هل جربت اخي ؟
رمهان قام بنشر فبراير 25, 2015 قام بنشر فبراير 25, 2015 فقط اذكرك ان السطر السابق تضعه في الحدث "بعد تأكيد الحذف" وللنموذج " OrdersSubFrm .
كوماندير قام بنشر فبراير 25, 2015 الكاتب قام بنشر فبراير 25, 2015 اخي الكريم فعلت ذلك لكن للاسف الشديد عند حذف جميع الطلبات لعميل ما فأن الزر يبقى ممكنا جرب ذلك وذا نجح معك ارفق لي ذلك
رمهان قام بنشر فبراير 26, 2015 قام بنشر فبراير 26, 2015 معليش اخي ارفق القاعدة بعد تطبيق كل ما سبق ؟ خليني اتاكد من تطبيقك لها أولا ؟ بالتوفيق
كوماندير قام بنشر فبراير 26, 2015 الكاتب قام بنشر فبراير 26, 2015 معليش اخي ارفق القاعدة بعد تطبيق كل ما سبق ؟ خليني اتاكد من تطبيقك لها أولا ؟ بالتوفيق DeletButnEnabled3.rar
رمهان قام بنشر فبراير 26, 2015 قام بنشر فبراير 26, 2015 ماهي طريقتك في الحذف ؟ انا جربت عن طريق زر الحذف DeltBtn سجل سجل والامر تمام !
كوماندير قام بنشر فبراير 26, 2015 الكاتب قام بنشر فبراير 26, 2015 اخي انظر : لدي ثلاثة نماذج والحذف يتم لسجلات النموذج الفرعي OrdersSubFrm وبالتالي اكرر المطلوب : عندما لاتكون هناك سجلات بالنموذج الفرعي OrdersSubFrm اريد ان لايتم تمكين زر الحذف وكذلك قبل ادراج سجلات فيه بالنسبة لكل عميل في النموذج الاساسي
رمهان قام بنشر فبراير 26, 2015 قام بنشر فبراير 26, 2015 يبدو ان هناك سوء فهم ! لدي او لديك ! اخي الكريم لايكون تقصد النموذج الفرعي الثاني BSubFrm اما النموذج الفرعي الأول OrdersSubFrm والذي به الزر DeltBtn فيعمل المطلوب ! جرب يا اخي اضغط على الزر DeltBtn كذا مرة حتى تنحذف جميع السجلات ! ستجده عند اخر سجل تم حذفه يكون غير قابل للضغط !
كوماندير قام بنشر فبراير 26, 2015 الكاتب قام بنشر فبراير 26, 2015 بالفعل ما اعنيه هو النموذج الفرعي OrdersSubFrm انظر اخي رمهان لدي العميل حسن رقمه 1 لديه 2 طلب اي بالنموذج الفرعي OrdersSubFrm لدي العميل ماجد رقمه 2 لديه 3 طلبات بالنموذج الفرعي OrdersSubFrm لسبب ما قمت بحذف طلبات العميل حسن ولم اقم بحذف سجله من الجدول الرئيس في هذه الحاله اريد ان يكون زر الحذف غير مفعلا بالضبط كما فعلت بمشاركتك رقم 2 ولكن بعد تعديل الرقم التلقائي للطلب الى رقم وخاصية الاضافة للنموذج الفرعي OrdersSubFrm الى لا ولاتتم الاضافة الا بالزر الاضافة AddNew ملحوظه : في مثالي لاعلاقة لنا بالنموذج الفرعي BSubFrm
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.