تعديل على كود تفعيل خانة الاختيار (علامة صح)

[الحلبي]

اخواني الاعزاء             تحياتي لكم جميعا

لدي نموذج رئيسي به نموذج فرعي والفرعي به خانة الاختيار (صح )  في الرئيسي زر امر

الحمد لله تمكنت من الضغط علي زر الامر ان يفعل خانة الاختيار ويجعلها (علامة صح)  وعند الضغط عليه مرة اخري يلغي التفعيل ويمحي علامة الصح 

ولكنه يفعل جميع سجلات الجدول المسمي item ويفعل علامة الصح في جميع سجلات النموذج الفرعي

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

المرفق 

 

checkboxv1.rar

[jjafferr]

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

 

تفضل

جعفر

 

[الحلبي]

هلا باستاذ / جعفر 

انا تابعت الموضوع الذي ارسلته لي وهو ليس طلبي

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

بمعني عند فتح النموذج FROM1 نجد ان السجل الاول للرئيسي يحتوي علي كود الصنف رقم GW0004  يحتوي الفرعي به علي   اربع (4)سجلات عند الضغط علي الزر تفعل خانة الاختيار للاربع سجلات للنموذج الفرعي لكود الصنف هذا فقط 

وعند التنقل للسجل التالي GW0005 يكون خانة الاختيار فارغة لاننا فعلنا خانة الاختيار في السجل الاول فقط

[jjafferr]

تفضل

 

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

 

انا غيرت اسم النوذج الفرعي بدل TblEkaab الى frm_TblEkaab ، حتى لا نتلخبط مع اسم الجدول ،

ضع هذا الكود على زر YesNo النموذج الرئيسي:

Private Sub YesNo_Click()

    Dim rst As DAO.Recordset
    Set rst = Me.frm_TblEkaab.Form.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    For i = 1 To RC
        rst.Edit
            rst!YesNo = Me.YesNo
        rst.Update
        rst.MoveNext
    Next i
    
    rst.Close: Set rst = Nothing
    
End Sub

.

جعفر

[الحلبي]

الاستاد / جعفر

ارجو ان يتسع صدرك معي شوية لاني انا اتلخبط جدا

اسمح لي ان اسال اين المرفق الدي قمت بوضعه انا في اول المشاركة ؟    الموجود حاليا ليس تبعي

كما ان يبدو ان لم اوضح سؤالي جيدا

سؤالي : عند الضغط علي زر الامر في النمودج الرئيسي  يقوم باضافة الصح في مربع خانة الاختيار للنموذج الفرعي  وكذلك العكس أي في حال الضغط علي زر الامر

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

يكون دلك بدون عمل استعلام تحديث ولكن استعلام تحديث بالكود  .

ارجو التكرم منك بالتطبيق علي المثال الدي وضعته في اول المشاركة  

[jjafferr]

23 دقائق مضت, حلبي said:

1. اسمح لي ان اسال اين المرفق الدي قمت بوضعه انا في اول المشاركة ؟    الموجود حاليا ليس تبعي

كما ان يبدو ان لم اوضح سؤالي جيدا

2. سؤالي : عند الضغط علي زر الامر في النمودج الرئيسي  يقوم باضافة الصح في مربع خانة الاختيار للنموذج الفرعي  

3. وكذلك العكس أي في حال الضغط علي زر الامر

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

يكون دلك بدون عمل استعلام تحديث ولكن استعلام تحديث بالكود  .

4. ارجو التكرم منك بالتطبيق علي المثال الدي وضعته في اول المشاركة  

1. انا لم اقم بتغيير مرفقك ،

2. الكود الذي اعطيتك يقوم بهذه العملية ، فكل الذي عليك فعله هو ادخاله في برنامجك ،

3. ضع الكود التالي على حدث النقر على زر الحقل YesNo في النموذج الفرعي:

me.parent.YesNo=me.YesNo

.

جعفر

[الحلبي]

والله اني في غاية التعجب اين راح المرفق      الموجود ليس مرفقي

عموما جزاك الله خيرا ـ استاد جعفر علي مساعدتك لي

ولاني قد عملت المثال اثناء وجودي في العمل فالمرفق علي كمبيوتر العمل

سوف ارفقه مرة اخري صباحا ان شاء الله وكان لنا في العمر بقية

وارجو منك التكرم بالتطبيق عليه 

[الحلبي]

هذا هو المرفق 

1. قد تمكنت من  بعد الضغط علي زر الامر في الرئيسي تنشط خانة الاختيار المسماه (DO) والموجوده في الفرعي وتصبح عليها علامة الصح  وعند الضغط عليها مرة اخري يتم ازالة علامة الصح.
2. المطلوب : بدون عمل استعلام تحديث ولكن التعديل علي الكود الموجود ....... ان تنشط خانة الاختيار ويصبح عليها علامة الصح للسجل الحالي في النموذج الفرعي وليس لجميع سجلات الفرعي.

جزاكم الله خيرا 

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

 

 

CHECK BOX.rar

[jjafferr]

وعليكم السلام أخي محمد

 

هذا ما قاله صاحب الموضوع:

22 ساعات مضت, حلبي said:

اسمح لي ان اسال اين المرفق الدي قمت بوضعه انا في اول المشاركة ؟    الموجود حاليا ليس تبعي

و

20 ساعات مضت, حلبي said:

والله اني في غاية التعجب اين راح المرفق      الموجود ليس مرفقي

عموما جزاك الله خيرا ـ استاد جعفر علي مساعدتك لي

ولاني قد عملت المثال اثناء وجودي في العمل فالمرفق علي كمبيوتر العمل

سوف ارفقه مرة اخري صباحا ان شاء الله وكان لنا في العمر بقية

وارجو منك التكرم بالتطبيق عليه 

 

جعفر

[jjafferr]

6 ساعات مضت, حلبي said:

هذا هو المرفق 

 

تفضل

 

الكود على حدث نقر زر "تفعيل  خانة الاختيار في النموذج الفرعي":

    Dim rst As DAO.Recordset
    Set rst = Me.ORDER.Form.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    What_Was_The_First_Selection = rst!Do
    
    For i = 1 To RC
        rst.Edit
            rst!Do = Not What_Was_The_First_Selection
        rst.Update
        rst.MoveNext
    Next i
    
    rst.Close: Set rst = Nothing
    

 

جعفر

528.CHECK BOX.accdb.zip

[الحلبي]

استادنا / محمد طاهر 

اولا احييك علي المتابعة واهتمامكم بمثل هده الامور

ثانيا قد شرف موضوعي بمداخلتكم وسؤالكم عن ما حدث دليل على ان المنتدي تحت قيادة حكيمة تتابع الامور .

والله انا عملت اضافة موضوع جديد واضفت مثال مرفق به طلبي ولكني فوجئت بان المثال ليس لي ولا ادري اين مرفقي وبعدها وجد مشاركتي مكررة ثلاث مرات

المرفق يظهر لي ولكنه ليس الدي قمت باضافته ممكن يكون الخلل من عندي الله اعلم

استادي / جعفر

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

والله يرحم والديك في الدنيا والأخرة

نعم هدا هو المطلوب 100%

جزاك الله خير اخي / جعـــــفر