اذهب الي المحتوي
أوفيسنا

تمكين والغاء تمكين زر امر حسب عدد سجلات النموذج


كوماندير

الردود الموصى بها

السلام عليكم

 

اخواني الكرام لدي المرفق به نموذج رئيس MainFrm وبداخله نموذج فرعي OrdersSubFrm وبداخله نموذج فرعي BSubFrm

 

المطلوب عند اضافة سجل للنموذج الرئيس وقبل اضافة سجل الى النموذج الفرعي OrdersSubFrm

ان يكون زر الحذف الذي في النموذج الفرعي والمسمى DeltBtn غير ممكن ، وكذلك عند حذف جميع طلبات orders اي عميل ، اي عندما تكون عدد السجلات بالنموذج الفرعي OrdersSubFrm  صفر ان يكون الزر DeltBtn غير ممكنا ؟

 

 

رابط هذا التعليق
شارك

عزيزي ضع الحدث التالي للنموذج الفرعي  OrdersSubFrm وعند الحدث في الحالي كما هو ظاهر

Private Sub Form_Current()
Me.DeltBtn.Enabled = Not Me.NewRecord
End Sub

وهنا لا نحتاج الى انه عندما تكون عدد السجلات صفر لانه في الاكسس تكون حالة السجل الافتراضية = جديد . فحتما ستكون حالة السجل جديد عندما لايوجد سجلات

 

تحياتي

  • Like 2
رابط هذا التعليق
شارك

اخي رمهان

 

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

 

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

فالمفروض انه عند حذف جميع الطلبات ان يتم الفاء تمكين الزر

 

وهذا المرفق

 

DeletButnEnabled1.rar

رابط هذا التعليق
شارك

عزيزي

لم تظهر لي المشكلة ؟

بل انه عندما احذف جميع سجلات الطلبات تختفي الشاشة كليا ؟ وذلك بسبب ان الخاصية السماح بالإضافة تأخذ القيمة "لا" .

بالتوفيق

رابط هذا التعليق
شارك

اضف الكود التالي وكما هو ظاهر الحدث :

Private Sub Form_AfterDelConfirm(Status As Integer)
Me.DeltBtn.Enabled = Me.RecordsetClone.RecordCount > 0
End Sub

بالتوفيق

  • Like 1
رابط هذا التعليق
شارك

معليش اخي

ارفق القاعدة بعد تطبيق كل ما سبق ؟ خليني اتاكد من تطبيقك لها أولا ؟

بالتوفيق

رابط هذا التعليق
شارك

اخي انظر :

لدي ثلاثة نماذج

والحذف يتم لسجلات النموذج الفرعي OrdersSubFrm

 

وبالتالي اكرر المطلوب :

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

رابط هذا التعليق
شارك

يبدو ان هناك سوء فهم ! لدي او لديك !

اخي الكريم لايكون تقصد النموذج الفرعي الثاني BSubFrm  اما النموذج الفرعي  الأول OrdersSubFrm   والذي به الزر DeltBtn  فيعمل المطلوب !

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

رابط هذا التعليق
شارك

بالفعل ما اعنيه هو النموذج الفرعي 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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information