الحلبي قام بنشر يناير 11, 2017 قام بنشر يناير 11, 2017 اخواني الاعزاء تحياتي لكم جميعا لدي نموذج رئيسي به نموذج فرعي والفرعي به خانة الاختيار (صح ) في الرئيسي زر امر الحمد لله تمكنت من الضغط علي زر الامر ان يفعل خانة الاختيار ويجعلها (علامة صح) وعند الضغط عليه مرة اخري يلغي التفعيل ويمحي علامة الصح ولكنه يفعل جميع سجلات الجدول المسمي item ويفعل علامة الصح في جميع سجلات النموذج الفرعي ما اريده ان يفعل خانة الاختيار في النموذج الفرعي حسب الكود (السجل الحالي فقط) وليس جميع السجلات المرفق checkboxv1.rar
الحلبي قام بنشر يناير 11, 2017 الكاتب قام بنشر يناير 11, 2017 هلا باستاذ / جعفر انا تابعت الموضوع الذي ارسلته لي وهو ليس طلبي طلبي ان تكون خانة الاختيار صح للسجل الحالي وليس جميع سجلات جدول النموذج الفرعي بمعني عند فتح النموذج FROM1 نجد ان السجل الاول للرئيسي يحتوي علي كود الصنف رقم GW0004 يحتوي الفرعي به علي اربع (4)سجلات عند الضغط علي الزر تفعل خانة الاختيار للاربع سجلات للنموذج الفرعي لكود الصنف هذا فقط وعند التنقل للسجل التالي GW0005 يكون خانة الاختيار فارغة لاننا فعلنا خانة الاختيار في السجل الاول فقط
jjafferr قام بنشر يناير 11, 2017 قام بنشر يناير 11, 2017 تفضل طبعا الكود في الرابط السابق لن ينطبق على اي من البرامج ، لأن كل برنامج يختلف بحقوله ، ولكن الفكرة هي التي لا تتغير انا غيرت اسم النوذج الفرعي بدل 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 . جعفر
الحلبي قام بنشر يناير 11, 2017 الكاتب قام بنشر يناير 11, 2017 الاستاد / جعفر ارجو ان يتسع صدرك معي شوية لاني انا اتلخبط جدا اسمح لي ان اسال اين المرفق الدي قمت بوضعه انا في اول المشاركة ؟ الموجود حاليا ليس تبعي كما ان يبدو ان لم اوضح سؤالي جيدا سؤالي : عند الضغط علي زر الامر في النمودج الرئيسي يقوم باضافة الصح في مربع خانة الاختيار للنموذج الفرعي وكذلك العكس أي في حال الضغط علي زر الامر مرة اخري يتم تلقائيا إزالة الصح من خانة الاختيار في النموذج الفرعي بشرط ان يتم دلك في السجل الحالي فقط وليس جميع سجلات النمودج الفرعي وارجو ان يكون دلك بدون عمل استعلام تحديث ولكن استعلام تحديث بالكود . ارجو التكرم منك بالتطبيق علي المثال الدي وضعته في اول المشاركة
jjafferr قام بنشر يناير 11, 2017 قام بنشر يناير 11, 2017 23 دقائق مضت, حلبي said: 1. اسمح لي ان اسال اين المرفق الدي قمت بوضعه انا في اول المشاركة ؟ الموجود حاليا ليس تبعي كما ان يبدو ان لم اوضح سؤالي جيدا 2. سؤالي : عند الضغط علي زر الامر في النمودج الرئيسي يقوم باضافة الصح في مربع خانة الاختيار للنموذج الفرعي 3. وكذلك العكس أي في حال الضغط علي زر الامر مرة اخري يتم تلقائيا إزالة الصح من خانة الاختيار في النموذج الفرعي بشرط ان يتم دلك في السجل الحالي فقط وليس جميع سجلات النمودج الفرعي وارجو ان يكون دلك بدون عمل استعلام تحديث ولكن استعلام تحديث بالكود . 4. ارجو التكرم منك بالتطبيق علي المثال الدي وضعته في اول المشاركة 1. انا لم اقم بتغيير مرفقك ، 2. الكود الذي اعطيتك يقوم بهذه العملية ، فكل الذي عليك فعله هو ادخاله في برنامجك ، 3. ضع الكود التالي على حدث النقر على زر الحقل YesNo في النموذج الفرعي: me.parent.YesNo=me.YesNo . جعفر
الحلبي قام بنشر يناير 11, 2017 الكاتب قام بنشر يناير 11, 2017 والله اني في غاية التعجب اين راح المرفق الموجود ليس مرفقي عموما جزاك الله خيرا ـ استاد جعفر علي مساعدتك لي ولاني قد عملت المثال اثناء وجودي في العمل فالمرفق علي كمبيوتر العمل سوف ارفقه مرة اخري صباحا ان شاء الله وكان لنا في العمر بقية وارجو منك التكرم بالتطبيق عليه
الحلبي قام بنشر يناير 12, 2017 الكاتب قام بنشر يناير 12, 2017 هذا هو المرفق قد تمكنت من بعد الضغط علي زر الامر في الرئيسي تنشط خانة الاختيار المسماه (DO) والموجوده في الفرعي وتصبح عليها علامة الصح وعند الضغط عليها مرة اخري يتم ازالة علامة الصح. المطلوب : بدون عمل استعلام تحديث ولكن التعديل علي الكود الموجود ....... ان تنشط خانة الاختيار ويصبح عليها علامة الصح للسجل الحالي في النموذج الفرعي وليس لجميع سجلات الفرعي. جزاكم الله خيرا اقدم اسفي لاستاذ / جعفر لان المطلوب لم يصل له بالطريقة الصحيحة CHECK BOX.rar
jjafferr قام بنشر يناير 12, 2017 قام بنشر يناير 12, 2017 وعليكم السلام أخي محمد هذا ما قاله صاحب الموضوع: 22 ساعات مضت, حلبي said: اسمح لي ان اسال اين المرفق الدي قمت بوضعه انا في اول المشاركة ؟ الموجود حاليا ليس تبعي و 20 ساعات مضت, حلبي said: والله اني في غاية التعجب اين راح المرفق الموجود ليس مرفقي عموما جزاك الله خيرا ـ استاد جعفر علي مساعدتك لي ولاني قد عملت المثال اثناء وجودي في العمل فالمرفق علي كمبيوتر العمل سوف ارفقه مرة اخري صباحا ان شاء الله وكان لنا في العمر بقية وارجو منك التكرم بالتطبيق عليه جعفر
jjafferr قام بنشر يناير 12, 2017 قام بنشر يناير 12, 2017 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 2
الحلبي قام بنشر يناير 12, 2017 الكاتب قام بنشر يناير 12, 2017 استادنا / محمد طاهر اولا احييك علي المتابعة واهتمامكم بمثل هده الامور ثانيا قد شرف موضوعي بمداخلتكم وسؤالكم عن ما حدث دليل على ان المنتدي تحت قيادة حكيمة تتابع الامور . والله انا عملت اضافة موضوع جديد واضفت مثال مرفق به طلبي ولكني فوجئت بان المثال ليس لي ولا ادري اين مرفقي وبعدها وجد مشاركتي مكررة ثلاث مرات المرفق يظهر لي ولكنه ليس الدي قمت باضافته ممكن يكون الخلل من عندي الله اعلم استادي / جعفر لك كل تقدير واحترام ولا املك ان ادعو لك بان الله يزيدك من علمه ويجعل مساعدتك لي في ميزان حسناتك والله يرحم والديك في الدنيا والأخرة نعم هدا هو المطلوب 100% جزاك الله خير اخي / جعـــــفر
binmady قام بنشر يوليو 30 قام بنشر يوليو 30 في 12/1/2017 at 21:22, jjafferr 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 الله يجزيك الخير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.