نجوم المشاركات

السلام عليكم ورحمة الله وبركاته كل عام وحضراتكم بخير حقيقة حثني الشوق الي المرور بالمنتدي بعد غيبة طالت فمررت لاعيد علي الاحبة فجذب انتباهي هذا التحدي الذي اثار فضولي ورغم قطع أخي @Foksh مجال النقاش إلا إني احببت أن ادلي بدلائي القاصرة وفكرة ربما تكون لم تطرق في مجال نقاش الموضوع من الأساتذة الكرام. الفكرة هو تحويل الكتابة من التقرير الي الكتابة علي كائن صورة - هذا الكائن المستعصي علي التعديل إلا ان المرفق الخاص بـ labins لفت الانتباه الي خاصية هامة في كائن الصورة DIB التي يمكن من خلالها حقن كائن الصورة بمجموعة من الداتا علي هيئة بايتس للرسم في اطار الصورة الفكرة كانت تحويل الخطوط المرسومة الي صورة ترسم بالذاكرة دون الحاجة الي حفظ صور خارجية ثم حقن كائن الصورة بالتقرير بالبايتس الموجودة بالذاكرة وكانت النتيجة كما يلي والمرفق بالاسفل لا ادعي انه اجتهاد محض مني ولكن هو ذلك الذكاء الاصطناعي الذي ابتلينا به او ان شئت قل هو الذي ابتلي بنا 😀 والمرفق بالاسفل ابقيت علي المودلز الاصلية والتي تم التعديل عليها اضفت اليها كلمة new قبل اسمها لتسهل عملية المقارنة وافردت مدل مستقل لرسم الصورة بالذاكرة ما استعصي علي هو ضبط ارتفاع code128 وجزاكم الله خيرا QR_barcode.accdb

وعليكم السلام ورحمة الله وبركاته جرب الان واخبرني

هذا يمكن حله بتعديل خاصية Size Mode للصورة بدل Zoom إجعلها Stretch أما فيما يخص العمل ككل فلا غبار ولكني رأيت أن فرض حفظ الصورة على المستخدمين فكرة لن يحبذها الجميع لذلك فكرت أن أعطي التطبيق مرونة أكثر ليناسب أغلب المستخدمين إن لم يكن جميعهم لذلك وبعد إذن الأخ @Foksh قمت بإضافة نموذج فيه أربعة أزرار لفتح التقرير في أربع حالات 1- فتح التقرير بدون حفظ للصور 2- حفظ الصور بدون فتح التقرير 3- فتح التقرير مع حفظ جميع الصور عند الفتح 4- فتح التقرير مع حفظ الصور بشكل فردي أثناء التنقل من وجهة نظري أن هذه هي جميع الخيارات التي قد يحتاجها أي مستخدم لذا يمكن لأي شخص الإستفادة مما جاء في التعديل لتطبيق الخيار الذي يفضله ولو كان بإمكان الأخ @Foksh إضافة هذه الخيارات كمعلمة لإختيار أحدها وتنفيذ الأمر مباشرة سيكون أفضل تحياتي QR_Barcode - 4.accdb

يعني انت تريد تنظيف الأكواد من الاعتماد على Tag كلياً ؟ فقط سنقوم بإزالة الجملة الشرطية التي تختص بالـ Tag ، من المديول ModulQRCode . If level = "" Then i = InStr(LCase(Text.Tag), "qrcode") If (i > 0 And i + 5 < Len(Text.Tag)) Then level = Mid(Text.Tag, i + 6, 1) End If تم نقل الدالة الى المديول وتحويلها الى Public ، وتنظيف أكواد التقرير ، والإعتماد فقط على الاستدعاء :- 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 وكملاحظة ، قمت بإضافة مربع النص PgCount داخل التقرير في Page_Footer ، والهدف منه كان لتجربة بأن يتم تصدير كافة الرموز Qr/Code128 عند فتح التقرير ، أو تستطيع الغاء مربع النص هذا وسيتم تصدير الصور داخل المجلد حسب الصفحة التي يتم فتحها فقط . المرفق بعد التعديل :- QR_Barcode - 3.accdb

تفضل أخي @jjafferr .. الآن تم الدمج بحيث لديك جميع الخيارات :- القديمة عن طريق Tag . الجديدة من خلال قيمة مربع النص لكل QR أو Code128 .. حفظ الصور في المجلد QRImg بجانب قاعدة البيانات . ( وهنا سيكون لنا وقفة مرهونة بتجربتك 😉 ) QR_barcode.accdb

تمام ، قمت بالتطبيق مسبقاً بإجراءات بسيطة واستخدام فكرة الرسم والتدوير من الملف المرفق الأصلي A2KPictureBoxVer35 .. New QR.accdb

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