AbuuAhmed

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

هذه مشكلة أخرى ، ليس لها علاقة بمشكلة عنوان الموضوع ، ثم أين الوحدة النمطية التي تتحدث عنها؟!! ، هل تقصد سطور الإرسال؟. هل انتبهت لعدد الملاحظات في مثالك لإجراء واحد فقط؟. هل المطلوب أن نصمم لك البرنامج من جديد؟! أم ماذا؟ لم تجاوب على هذا السؤال ولم تخبرنا أيه يعني T وأيه يعني R اللي فهمته T يعني تم الإرسال. أنت بطريقتك تنسب لنا فشل من غير مفشل وتحرجنا أمام الناس، يا أخي أولا اعترف لنا رجاءً 🙂 أن ما قمنا به تم بشكل صحيح ثم ابحث عن حل للمشلكة الأخرى.

نبارك للمهندس قاسم الترقية ، وعساكم ع القوة

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

نبارك لكم الترقية وعساكم ع القوة.

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

في الموقع مدرستين مدرسة تناصر الجدول الواحد ولها أسبابها. وأخرى تناصر تعدد الجداول ولها أسبابها. أنا من أنصار الجدول الواحد وقد مررنا بتجربة أنت وأنا ونجحت التجربة بشكل ممتاز ، وهذا باعتقادي كاف. لن أخوض في جدال ونصيحتي لك "خلك على مجنونك لا يجيك اللي أجن منه" ، هذا مثل شعبي عندنا بمعنى إذا الذي بين يديك يعمل بدون مشكلات فلماذا التفكير في التغيير فضلا عن التغيير نفسه وبه من ضياع الجهود والوقت الكثير وفي النهاية لن تجد أي إضافات جوهرية فضلا أنك لا تضمن حصولك على مشكلات جديدة مع التقسيم. قد تكون هناك فوائد أنا لم ألمسها ولكن من مساوئها "مثلا" برامج المحاسبة وشجرة العائلة لا يمكن تحديدها بعدد من المستويات وتحتاج إلى نطاق مستويات مفتوح وهذا لن ينجح مع التقسيم وإن نجح فلا ضمانة من العواقب ، لم أدخل أي تجربة في التقسيم ولن أدخل. طبعا أنت مشروعك محدود المستويات ولن يحتاج إلى مستويات مفتوحة. وأعتقد لن ترى أي عون من معارضي أي مدرسة، فـ "احسبها صح" قبل قيامك بالتغيير ، والله الموفق. سامحني هذه آخر مشاركة لي في هذا الموضوع.

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

حياك الله أحينا العزيز ملاحظاتك ليس لها علاقة بالموضوع ولا بالذي قمت أنا بتنفيذه. ومع ذلك أن أطلعت على الكود مرة أخرى وكتبت فيه ملاحظاتي ، أرجو الاطلاع. وأعتذر أخي ، هذه آخر مشاركة لي في هذا الموضوع. موفق. ارسال_04.rar

نحتاج إلى "موصل" حتى نستطيع أن نفهم على بعضنا عموما أنا راجعت الكود وقمت بالتعديل حسب فهمي ارسال_03.rar

أخي أنا لم أرفع لك نسخة جديدة لتجربها 🙂 أنا سألتك سؤالا حتى أعمل التعديل الجديد.

أنا تلخبطت 🙂 هل: Yes = T No = R ؟

أخي يفترض أن تشرح أكثر وخصوصا ربط حقلين في التعديل. كذلك أنا لم أفهم سلوك مربع نص اضطررت أن أزيحه وأبدله بآخر، الآن إذا أحببت أن ترجع مربعك فيمكنك ذلك ولكني لا أنصح باستخدام مثل هالصندوق المزعج. ارسال_02.rar

اكتشفت اخفاق في تلوين صندوق اللون عن طريق نموذج الألوان الخاص بالأستاذ أبو جودي علما أن الكود أنا من كتبه ، يعني الإخفاق أنا سببه 🙂 . تم التصحيح تطبيق لون_10.accdb

وعليكم السلام طمنتني ، شكرا لك أستاذ محمد ، توقعت هكر داخل باسمي بطريقة غير شرعية ، وكنت خائف من العواقب 🙂 . بالتوفيق.

تم تنفيذ المطلوب وزيادة تطبيق لون_09.accdb

نسخة تضم تعديلي وتعديلك. MZ_SUB 10.rar

إذن احذف مرفقك الأخير وأنا أحذف مرفقي الأخير وسأرفع مرفق جديد به تعديلك وتعديلي.

بما أن الكود يفحص نفسه بنفسه ، وبما أنك جربته بعد التعديل ولم يفشل في إضافة أي سجل ولم يفشل في الترتيب فهذا يكفي ، توكل على الله واعتمده ، فأنت أدرى بخفايا برنامجك. موفق أخي. إذا أردت معرفة فائدة الـ Tag فابحث عنه في الكود ، سترى في البداية وضعنا به قيمة المستوى ، وفي النهاية استخدمناه لعرض الشجرة للمستوى الأول فقط حسب رغبتك.

بس اكتشفت خلل 🙂 ، سأرجع لكم بنسخة أخرى وبعد المراجعة لم يكن خللا بل مجرد شك 🙂

كنت ناسيها ، تم الاستفادة من خاصية Tag

وهذه مساهمة إضافية مني awad77_03.xlsm

نبارك لكم الترقية وإلى المزيد من الصولات والجولات القادمة

تم التعديل ، وهذه المرة انسخ الكود كاملا لأنه حصل أكثر من تعديل. وقد يكون غير جيد لتحميل الشجرة. لا أعرف لماذا ثلاثة معرفات ID و Code و TNO؟ حاليا أرى أن لاحاجة لحقل ID وإذا أردت ربطه بجدول آخر فاربطه بحقل Code كذلك حقل TNO لماذا هو "كسري" إن صح التعبير أي Double لماذا لا يكون Integer أو Long Integer؟ MZ_SUB 07.rar

جرب الآن والتعديل في الآتي: 'rst.Sort = "LVLno,Parent,Code" 'ترتيب نصي rst.Sort = "LVLno,CLng(Parent),CLng(Code)" 'ترتيب رقمي وهنا أيضا: For Each nodX In TreeView6.Nodes nodX.EnsureVisible nodX.Expanded = False 'nodX.Sorted = True 'لا تستخدم هذا السطر لأنه سيخرب الترتيب السابق nodX.Bold = True nodX.Selected = False Next MZ_SUB 05.rar