كل الانشطه

وعليكم السلام ورحمة الله وبركاته .. اعجبتني الفكرة ، و وددت المشاركة بالتالي .. ما عليك فعله بيدك حتى تنجح الفكرة .. في المديول :- الخطوة الأولى اذهب للدالة :- Private Function ExitTimer() As Boolean وقم بحذف السطر :- Call DeleteObject(hRgn1) الخطوة الثانية أيضاً اذهب للدالة :- Public Function GenerateExit() 'MyForm As Form) وأضف بعد هذا السطر :- Do Until ExitTimer() السطر DoEvents ، لتصبح جملة الحلقة :- Do Until ExitTimer() DoEvents Sleep clngTimerInterval Loop وبعد هذه الحلقة مباشرة ، أضف السطر التالي :- Call DeleteObject(hRgn) وعليه ، فأن الملف كاملاً بعد هذه التعديلات يصبح :- db.mdb

تُعد قطع الغيار من العناصر الأساسية التي تضمن استمرارية وكفاءة عمل المجازر الآلية، حيث تعتمد هذه المنشآت على مجموعة كبيرة من المعدات والأنظمة الميكانيكية والكهربائية التي تعمل بشكل متواصل في بيئات تشغيلية مكثفة. لذلك فإن اختيار قطع الغيار المناسبة لا يقتصر على استبدال جزء تالف فحسب، بل يمثل قرارًا استراتيجيًا يؤثر على الإنتاجية والسلامة وجودة العمليات التشغيلية. 1. الجودة ومطابقة المواصفات الفنية يجب أن تتوافق قطع الغيار مع المواصفات الفنية المعتمدة للمعدات المستخدمة داخل المجزر. فالاعتماد على قطع ذات جودة منخفضة قد يؤدي إلى أعطال متكررة وتقليل كفاءة التشغيل، بينما تساهم القطع عالية الجودة في ضمان الأداء المستقر وإطالة العمر التشغيلي للمعدات. 2. التوافق مع المعدات والأنظمة من الضروري التأكد من أن قطع الغيار متوافقة بشكل كامل مع نوع وطراز المعدات المستخدمة. فاختلاف المقاسات أو الخصائص الفنية قد يؤدي إلى ضعف الأداء أو تلف أجزاء أخرى من النظام، مما يزيد من تكاليف الصيانة والإصلاح. 3. الاعتماد على موردين موثوقين اختيار المورد المناسب لا يقل أهمية عن اختيار القطعة نفسها. فالموردون المعتمدون يوفرون منتجات أصلية أو مطابقة للمواصفات، بالإضافة إلى خدمات الدعم الفني والضمان، مما يمنح إدارة المجزر مزيدًا من الثقة والاستقرار التشغيلي. 4. مقاومة التآكل والظروف التشغيلية تعمل معدات المجازر الآلية في بيئة تتعرض للرطوبة وعمليات الغسيل والتعقيم المستمرة، لذلك يجب أن تكون قطع الغيار مصنوعة من مواد مقاومة للصدأ والتآكل، مثل الفولاذ المقاوم للصدأ، لضمان تحمل الظروف التشغيلية القاسية. 5. سهولة التركيب والصيانة يفضل اختيار قطع الغيار التي يمكن تركيبها واستبدالها بسهولة، مما يقلل من فترات التوقف ويحد من تأثير أعمال الصيانة على سير العمليات اليومية داخل المجزر. 6. توفر القطع بشكل مستمر يُعد توفر قطع الغيار في السوق من العوامل المهمة عند الاختيار، لأن صعوبة الحصول على القطع البديلة قد تؤدي إلى توقف المعدات لفترات طويلة، وهو ما ينعكس سلبًا على الإنتاجية وكفاءة التشغيل. 7. الالتزام بمعايير السلامة والصحة يجب أن تتوافق قطع الغيار المستخدمة في المجازر الآلية مع معايير السلامة والصحة الغذائية، خاصة مجفف خضروات التي تتلامس بشكل مباشر مع المنتجات الغذائية، لضمان عدم التأثير على جودة وسلامة المنتجات. 8. الكفاءة التشغيلية وتوفير الطاقة بعض قطع الغيار الحديثة مصممة لتحسين كفاءة المعدات وتقليل استهلاك الطاقة، وهو ما يساهم في خفض التكاليف التشغيلية وتحسين الأداء العام للمجزر على المدى الطويل. 9. الضمان وخدمات ما بعد البيع يفضل اختيار قطع غيار مصحوبة بضمان من الشركة المصنعة أو المورد، مع توفر خدمات الدعم الفني والصيانة، مما يساعد على معالجة أي مشكلات قد تظهر بعد التركيب. 10. التكلفة مقابل القيمة لا ينبغي أن يكون السعر العامل الوحيد في اتخاذ القرار، بل يجب تقييم التكلفة مقارنة بالجودة والعمر التشغيلي والكفاءة المتوقعة. فالاستثمار في قطع غيار عالية الجودة غالبًا ما يكون أكثر توفيرًا على المدى الطويل من شراء قطع منخفضة التكلفة كثيرة الأعطال. الخلاصة يُعد اختيار قطع غيار المجازر الآلية عملية مهمة تتطلب مراعاة الجودة والتوافق والمتانة ومعايير السلامة، إلى جانب الاعتماد على موردين موثوقين. وعندما يتم اختيار القطع المناسبة وفق هذه المعايير، يمكن للمجازر تحقيق أعلى مستويات الكفاءة التشغيلية وتقليل الأعطال وضمان استمرارية الإنتاج بشكل آمن وفعال.

شهدت صناعة اللحوم تطورًا كبيرًا خلال السنوات الأخيرة بفضل الاعتماد على المجازر الآلية التي ساهمت في رفع الطاقة الإنتاجية وتحسين معايير الجودة والسلامة الغذائية. وتعتمد هذه المجازر على مجموعة متكاملة من المعدات والأنظمة الميكانيكية والكهربائية التي تعمل بتناغم لضمان تنفيذ عمليات الذبح والتجهيز والتعبئة بكفاءة عالية. ومع هذا التطور، أصبحت قطع الغيار عنصرًا أساسيًا للحفاظ على استمرارية التشغيل وتقليل فترات التوقف غير المخطط لها. ما هي المجازر الآلية؟ المجازر الآلية هي منشآت متطورة تستخدم أنظمة ميكانيكية وتقنيات حديثة لتنفيذ مراحل الذبح والتجهيز بشكل آلي أو شبه آلي، مما يقلل من التدخل البشري ويزيد من دقة العمليات وسرعتها. وتُستخدم هذه المجازر في معالجة الدواجن والأبقار والأغنام وفق معايير صحية صارمة تضمن جودة المنتج النهائي. أهمية المجازر الآلية توفر المجازر الآلية العديد من المزايا التي تجعلها الخيار المفضل للمنشآت الحديثة، ومنها: زيادة الإنتاجية اليومية. تحسين جودة المنتجات. تقليل الأخطاء البشرية. تعزيز معايير السلامة الغذائية. خفض تكاليف التشغيل على المدى الطويل. تحسين بيئة العمل داخل المنشأة. أهم المعدات المستخدمة في المجازر الآلية تعتمد المجازر الحديثة على مجموعة واسعة من المعدات، من أبرزها: خطوط النقل المعلقة. ماكينات الذبح الآلي. أنظمة إزالة الريش أو الجلد. معدات التنظيف والغسيل. خطوط التقطيع والتجهيز. أنظمة التبريد والتجميد. معدات التعبئة والتغليف. وحدات التعقيم والتطهير. وتعمل جميع هذه المعدات بشكل متكامل لضمان انسيابية العمليات داخل المجزر. أهمية قطع الغيار في المجازر الآلية تلعب قطع الغيار دورًا محوريًا في المحافظة على كفاءة التشغيل. فمع العمل المستمر للمعدات، تتعرض بعض الأجزاء للتآكل أو التلف نتيجة الاستخدام المكثف، مما يجعل استبدالها أمرًا ضروريًا لتجنب الأعطال المفاجئة. كما تساهم قطع الغيار الأصلية في إطالة العمر التشغيلي للمعدات والحفاظ على مستويات الأداء المطلوبة داخل خطوط الإنتاج. أبرز قطع الغيار المستخدمة تختلف قطع الغيار حسب نوع المعدات، إلا أن هناك أجزاء تُعد من الأكثر طلبًا، مثل: السلاسل الناقلة. التروس والمحامل (Bearings). السيور الناقلة. السكاكين وشفرات التقطيع. المحركات الكهربائية. الحساسات وأجهزة الاستشعار. وحدات التحكم الإلكترونية. المضخات والصمامات. قطع أنظمة التبريد. بكرات وخطافات النقل. ويُعد توفر هذه القطع بشكل مستمر عاملًا مهمًا لتجنب توقف الإنتاج. أهمية الصيانة الدورية حتى مع توفر أفضل المعدات وقطع الغيار، تبقى الصيانة الدورية عنصرًا أساسيًا في نجاح تشغيل المجازر الآلية. حيث تساعد برامج الصيانة الوقائية على اكتشاف المشكلات قبل تفاقمها وتقليل تكاليف الإصلاحات الطارئة. كما تسهم الصيانة المنتظمة في الحفاظ على جودة المنتجات وتحقيق أعلى مستويات الكفاءة التشغيلية. معايير اختيار قطع الغيار عند شراء قطع الغيار يجب مراعاة عدة عوامل مهمة، منها: مطابقة القطعة للمواصفات الفنية للمعدة. الاعتماد على الموردين الموثوقين. جودة المواد المستخدمة في التصنيع. توافر الضمان وخدمات الدعم الفني. سهولة التركيب والصيانة. فاختيار قطع غيار منخفضة الجودة قد يؤدي إلى أعطال متكررة وخسائر تشغيلية كبيرة. مستقبل المجازر الآلية مع تطور التكنولوجيا الصناعية، تتجه المجازر الحديثة نحو استخدام أنظمة الذكاء الاصطناعي وإنترنت الأشياء لمراقبة الأداء غلايات بخار صناعية البيانات التشغيلية بشكل لحظي. كما أصبح التنبؤ بالأعطال وإدارة المخزون الذكي لقطع الغيار من الاتجاهات الحديثة التي تساعد على رفع الكفاءة وتقليل التكاليف. الخاتمة تمثل المجازر الآلية نقلة نوعية في صناعة اللحوم بفضل قدرتها على تحسين الإنتاجية والجودة مجفف خضروات الغذائية. ومع ذلك، فإن نجاح هذه المنشآت يعتمد بشكل كبير على جودة قطع الغيار وبرامج الصيانة المستخدمة. فكلما كانت المعدات مدعومة بقطع غيار موثوقة وخطط صيانة فعالة، ازدادت قدرتها على العمل بكفاءة واستمرارية، مما ينعكس إيجابًا على الإنتاج وجودة المنتجات النهائية.

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

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

شكرا على التنبيه أخي ماجد .. 🙂 تم إصلاح الخلل وتحميل الإصدار المحدث

السلام عليكم لكل من النموذج المنبثق والغير منبثق خصائص هامة يطول الشرح فيهما كمثال من الناحية الجمالية عند الخروج (الضغط على زر خروج) : النموذج المنبثق ( PopYes ) يستجيب فى جميع الإصدارات للأمر ( Call GenerateExit ) بالموديول المرفق BasCloseForm بينما الغير منبثق ( PopNo ) لا يستجيب إلا فى أكسس 2003 فقط ، وباقى الإصدارات كأنه غير موجود رغم عدم وجود خطأ هل هناك إضافة للموديول المذكور تجعله راضياً عن النماذج الغير منبثقة ( فى إصدارات 2007 فما فوق ) ؟؟ db.mdb

الإصدار الثاني من لعبة الدومينو والتي تدعم الشبكة ( النسخة الأولى التي تعتمد على الربط بقاعدة بيانات الجداول الخلفية ) . مميزات الإصدار الأول :- إمكانية لعب اللعبة من خلال الشبكة المحلية ( 4 لاعبين = 4 أجهزة ) إمكانية إضافة الكمبيوتر كلاعب للعبة الشبكة . يعني بتقدر تلعب انت وصديقك وتضيف الكمبيوتر كلاعب ثالث أو رابع . أو إنك ممكن تلعب مع 3 لاعبين كمبيوتر 😁 . إتاحة دخول لاعب على الشبكة ،واستبدال لاعب كمبيوتر بإدارة كاملة من المضيف ( صاحب اللعبة الحالية = الهوست Host ) . في حال خروج أحد اللاعبين ( خلينا نسميهم البشريين ) سيتم ملئ مقعده بلاعب كمبيوتر لاستكمال اللعب بدلاً منه . في حال رغبة اللاعب الذي خرج ( لأي سبب من الأسباب ) ، سيتم منحه الإذن بالدخول للعبة إما متفرج أو بدل لاعب كمبيوتر آخر موجود ( أو الذي تم إدخاله بدلاً منه ) ... إلخ من سيناريوهات الخروج والعودة . كل لعبة تسمى غرفة لعب ، لها رقم خاص بها للإنضمام . وذلك لمنع تداخل اللعب في الغرف . في حال كان هناك أكثر من غرفة . يعني بتقدر تلعب اللعبة على 8 أجهزة على سبيل المثال وكل 4 في غرفة منفصلة . في حال انقطاع أو خروج المضيف = الـ Host ، رح يكون معه 60 ثانية للعودة للغرفة نفسها . بشرط أن يتم كتابة نفس الإسم السابق له قبل خروجه . وهذا ينطبق أيضاً على اللاعبين البشريين - كما أسميناهم وللتمييز بينهم وبين الكمبيوتر - عند خروج أحدهم والعودة الى نفس الغرفة = بنفس الإسم . بتقدر كمضيف = Host تحديد قيمة نتيجة الفوز التي تحدد الفائز بالغرفة . طبعاً القيمة الإفتراضية = 500 . وسيكون التجميع تراكمياً بمجموع أرقام الحجارة في يد اللاعب الذي يملك أقل عدد . في لعبة الشبكة بتقدر تختار صورة لشخصيتك من خلال قائمة منسدلة = Avatar . لنفترض انك كلاعب بشري سجلت انضمامك للغرفة - قبل بداية اللعبة طبعاً - وكنت بدك تعدل اسمك أو تغيره . كل اللي عليك انك ترجع تسجل انضمام جديد بفتح اللعبة من جديد لنفس الغرفة . لن تظهر أي حجارة عندما يكون عدد الاعبين أكثر من 2 . وإلا فسيأخذ اللاعب الثاني ( إذا كانت اللعبة تضم لاعبين اثنين فقط ) مكان الكمبيوتر وستظهر حجارة كلا اللعبين مقابل بعضهما البعض . ستظر صورة لشخصية ترفع يدها في واجهة اللاعبين للدلالة على أن الدور له ، حتى لو كان الكمبيوتر احد اللاعبين المنضمين الى لعبة الشبكة . لنفترض أن الغرفة فيها 3 أو 4 لاعبين ، وأراد لاعب رابع الإنضمام الى اللعبة . فسيتم إظهار رسالة في واجهة المضيف الـ Host فقط ، تخبره أن هناك لاعب يرغب بالإنضمام الى الغرفة . وستكون الخيارات للمضيف كالآتي :- * استبدال لاعب كمبيوتر باللاعب الجديد فوراً = في حال وجود لاعب كمبيوتر * قبول اللاعب كمتفرج حتى الفوز التام = سيتم إدخاله كمتفرج فقط ، و ينتظر حتى يحقق أحد اللاعبين القيمة التي تحدد الفائز في الغرفة * رفض الانضمام = عدم إدخاله أساساً * قبول الانضمام والبدء بلعبة جديدة كلياً = تصفير اللعبة والبدء من جديد بانضمام اللاعب الجديد محاكاة كاملة لسير اللعب والحركة والسحب وتمرير الدور عند جميع اللاعبين . إذا كان عدد الاعبين أكثر من 2 ، فسيتم إظهار عدد الحجارة في يد كل لاعب ، والنتيجة التي حققها من فوز في كل لعبة ؛ في واجهة كل اللاعبين . والكثير من المميزات سأترك لكم اكتشافها بأنفسكم 😉 . وسأكتفي بهذا القدر من النقاط . ما عليك فعله لضبط اللعب في الشبكة :- ربط جميع واجهات اللعب بالملف المرفق TBL ، وهو قاعدة بيانات الجداول التي تخص الشبكة على السيرفر فقط . وهنا في التحديث الجديد لاحقاً سيتم الاستغناء عنه كلياً بحيث يتم اللعب على الشبكة من خلال وسيط يعمل كسيرفر يربط اللعبة من خلال رقم الغرفة بشكل ديناميكي عجيب . وقد تم بناؤه من خلال لغة C# . المرفق مفتوح المصدر لعشاق البحث والتقصي 😁 . وليس هنا أي أسرار هذه المرة 😜 . ويسعدني تعليقاتكم حول آلية تطبيق اللعبة . Domino Network.zip

يرجى مراجعة الخطأ عند إنشاء نسخة احتياطية

بارك الله فيكم أستاذنا الكبير .. يفي بالغرض بالطبع . وأتفق معكم بهذا التفكير تماماً .. ويسعدنا أن نشارك به جميعنا إن أمكن . لكم كل الشكر والإحترام على تجاوبكم معنا . وفقكم الله ورعاكم

هل فى الوقت الحالي هذا غير كافي؟ الغرض من وضح الحد ، هو الحذف الدوري للملفات غير الضرورية للحفاظ على مساحة السيرفر احيانا مثلا يكون هناك موضوع قديم تم رفع عشرون ملف فيه و تم التوصل للحل المناسب بعد عدد من المحاولات ، فيكون الافضل حفاظا على وقت القارئ المستقبلي و ايضا مساحة السيرفر حذف بعض التجارب التي لم تفي بالغرض بعد فترة ، و هو ما يتم عمله عند تنقيح المواضيع القديمة

المعذرة اخوي منتصر ، احنا نتكلم عن النسخة في هذه المشاركة ، والتي يكون في اطرافها المساحة البيضاء الاضافية : . 2. الكود كان يأخذ اطول بكثير في العمل ، وكنت اسمع صوت CPU الجهاز يصرخ لأن جهازي قديم 🙂 1. في الواقع التقصير مني ما تطرقت للكود بعد ان حصلت على رسالة الخطأ ، فالمعذرة 😞

😮 رأيي الفني 😅!! فكرة أخونا الأستاذ أبو عبدالله جميلة بلا شك وأحييه على الفكرة التي خرج بها . ولكنك ستشعر الفرق عندما تتعامل مع سجلات كثيرة .. فالفكرة الأساسية التي اعتمد عليها وهي rpt.Line الأساسية ستكون بطيئة جداً لو افترضنا التعامل مع تقرير يحتوي 100 سجل على سبيل المثال . ولكن في فكرة التعديل الذي قمنا به وابتعادي عن الفكرة السابقة هي باستخدام GDI APIs التي أتت من المرفق A2KPictureBoxVer35.accdb الذي شاركنه أخي جعفر . يعني افتح التقرير rpt_BG_img_Barcode في مرفق الأستاذ عبدالله ، وانتقل لعرض الصفحة الثانية !!! ستشعر الفرق 100% وختاماً لست في مكان أقييم به عمل أحد من الأساتذة والأعضاء ، فأخوكم ما زال يتعلم ولله الحمد 😇

بالعكس لو قمت بفتح الصورة ستجدها لاتحتوي على هوامش هذا هو الوضع عندي لصورتين في نفس التقرير لهما نفس الأبعاد (عرض وإرتفاع) ولكن الأولى قيمة الخاصية فيها هي Zoom والأخرى Stretch (قمت بإبراز الإطار للتوضيح) وللتأكيد قمت بتطبيق هذا على الحل المقدم من الأخ @أبو عبدالله الحلوانى ,لكن ولأن الكود نفسه يقوم بإضافة هوامش حول الرسم فستلاحظ أن الإطار الأبيض حول الكود يختلف بين الصورتين لكنه موجود وبعد تعيين الهوامش على القيمة صفر ستظهر بهذا الشكل وبصراحة لاأدري لماذا لم تنجح الفكرة لديك وحتى عند الأخ @Foksh كما سبق ورد انها لم تنجح معه ولكني وضحت لكم وبالصور نجاح الفكرة في الأخير أود التنويه إلى الحل المقدم من الأخ @أبو عبدالله الحلوانى فهو حل أراه مثيراً للإهتمام فقد توصل إلى نفس النتائج ولكن بدون إستخدام وحدة الكلاس والحقيقة كنت أود معرفة الرأي الفني من الأخ @Foksh عن الفرق بين الطريقتين من حيث الأداء وإستهلاك الموارد فهو أستاذ في هذه الأمور تحياتي

شكرا لك جزاك الله خير الجزاء

hegazee شكرا لمرورك انا احتاج فقط تشغيل ايقونة المعاينة لتصبح الورقة A5 وشكرا

متابع

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

انا اجرب قبل ان اضع رد 🙂 عندنا كائن الصورة في التقرير والذي به يمكن عمل تعديل الخاصية كما تفضلت ، ولكن هذا يعتمد 100% على الصورة نفسها ، ولكن هذه المسافة البيضاء هي جزء من الصورة ، فلا تصلح الخاصية ، ولا يمكنك محاذات الصورة في الكائن ايضا ، لان العيب في الصورة. وفكرة ممتازة في تقسيم العمل حسب حاجة المستخدم ، وتقليل وقت التنفيذ 🙂

شكرا جزيلا لاحظت ، هذه المرة تم تعبئة كائن الصورة بخطوط اثخن. انا استخدم قراءة الباركود من الشاشة بواسطة الموبايل فقط للتأكد ان القيمة صحيحة ، وللتأكد النهائي ، فاني ارسلها لأحد المؤسسات حتى يطبعوها على الهوية البلاستيك بأبعادها الحقيقية والباركود بالحجم المناسب ، ثم نقارن حجم النتيجة الحالية بحجم النتيجة الاصلية التي لدينا ، والاهم هو نتائج سرعة قراءة الباركود. طبعنا حسب كود مرفقك السابق والنتيجة كانت ممتازة ، وسنطبع اعتقد غدا ان شاء الله نتائج هذه المرفق QR_Barcode-3 ان شاء الله واوافيك بالنتيجة

أعتذر منك أخي الكريم. فالشروط تعجيزية . لعل أحد أساتذة المنتدى يفيدك

اولا اريد ان يكون التوزيع تنازليا بحيث تأخذ اللجان الأخيرة أقل طلاب مثلا رابع اللجان الاولى من 2 والاخيرة من 1 ثانيا عندما اقسم مثلا عدد الطلاب على 14 (سعة اللجنة ) يكون الناتج 14.5 اي 14لجنة واللجنة 15 بقية الطلاب 7 والمشكلة ان اضع 14 لجنة ثالثا لا اريد ان يكون هناك شاغر في اللجان الا اللجنة الاخيرة فقط

تفضل اخي منتصر .. التعديلات التي تمت :- الدالة DrawAndSaveBarcode أصبحت :- Public Sub DrawAndSaveBarcode(txt As TextBox, img As Image, barcodeType As String, Optional bVertical As Boolean = False) Dim saveDir As String Dim fullPath As String Dim parentReport As Report Dim saveMode As String Dim shouldSave As Boolean On Error Resume Next Set parentReport = img.Parent If parentReport Is Nothing Then Set parentReport = img.Parent.Parent On Error GoTo 0 saveMode = "NoSave" If Not parentReport Is Nothing Then saveMode = Nz(parentReport.OpenArgs, "NoSave") End If shouldSave = False If saveMode = "SaveAll" Or saveMode = "SavePage" Then shouldSave = True End If If shouldSave Then saveDir = CurrentProject.Path & "\QRImg\" If Dir(saveDir, vbDirectory) = "" Then MkDir saveDir fullPath = saveDir & barcodeType & "_" & txt.Value & ".bmp" Else fullPath = "" End If If LCase(barcodeType) = "qr" Then Call drawQuickResponseToImage(txt, img, savePath:=fullPath) ElseIf LCase(barcodeType) = "code128" Then Call drawCode128(txt, img, , bVertical, savePath:=fullPath) End If End Sub الإستدعاءات في الأزرار أصبحت :- Private Sub cmdOpenWNavSave_Click() DoCmd.OpenReport "rpt_BG_img_Barcode", acViewPreview, , , , "SavePage" End Sub Private Sub cmdOpenWOSave_Click() DoCmd.OpenReport "rpt_BG_img_Barcode", acViewPreview, , , , "NoSave" End Sub Private Sub cmdOpenWSave_Click() DoCmd.OpenReport "rpt_BG_img_Barcode", acViewPreview, , , , "SaveAll" End Sub Private Sub cmdSave_Click() DoCmd.OpenReport "rpt_BG_img_Barcode", acViewPreview, , , acHidden, "SaveAll" DoCmd.Close acReport, "rpt_BG_img_Barcode", acSaveNo MsgBox "بنجاح QRImg تم توليد وحفظ جميع الصور في مجلد", vbInformation + vbMsgBoxRight, "" End Sub وفي التقرير أصبحت التمرير كالآتي :- Private Sub Report_Open(Cancel As Integer) On Error Resume Next If Nz(Me.OpenArgs, "") = "SaveAll" Then Me.TxtPages.ControlSource = "=[Pages]" Else Me.TxtPages.ControlSource = "" End If On Error GoTo 0 End Sub Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Call DrawAndSaveBarcode(Me.FieldCode128, Me.ImgQR4, "Code128") Call DrawAndSaveBarcode(Me.FieldCode128, Me.ImgQR5, "Code128", True) Call DrawAndSaveBarcode(Me.FieldQRCode, Me.ImgQR2, "QR") End Sub أتمنى أن يلبي ها التعديل المطلوب . طبعاً بالإستعانة بنموذجك أخي منتصر 😉 . QR_Barcode - 5.accdb

اليك التعديلات في الملفتعديلات.xlsm والعفو منك تعديلات.xlsm

يا أخي أريد أن تكون اللجان الاولى تتسع للعدد الاكبر ثم التي يليها وهكذا وتبقى اللجان الأخيرة لأقل طلاب