💥 التحدي 3 : ونعم ، يمكنك الاستعانة بالذكاء الاصطناعي لعمل الباركود Code128 و QR

[jjafferr]

السلام عليكم

الموقع https://zingl.github.io يعرض طريقة لعمل الباركود Code128, QR, Aztec, DataMatrix بالكود ويدون الاستعانة ببرامج خارجية.

في الموقع مرفق اكسس (وقد عملت تعديل بسيط عليه لعمل الصور التالية ، والمرفق موجود في اسفل المشاركة) ، وهنا اعرض مثالين على العرض:

.

.

طبعا Code128 غير مناسب للكلمات الطويلة.

الكود يقوم بعرض الباركود داخل حقل نص Textbox ، وهو يستعمل Line لعمل الباركود :

اقتباس

rpt.Line (x, y)-Step(1, 1), Text.ForeColor, BF

.

المشكلة ان الاكسس يقوم بتنفيذ الامر Line على خلفية التقرير/النموذج ، وبعدها يقوم بعرض بقية الكائنات ،

بمعنى ، اذا وضعنا كائن/حقل صورة خلف حقل نص الباركود ، فاننا لا نستطيع رؤية الباركود ، لأنه اصبح خلف الصورة.

 

في الصورة التالية ، التقرير الاول هو ما تم عرضه سابقا ، بينما في التقرير الثاني وضعت صورة زرقاء خلف كائنات/حقول الباركود:

.

ونتيجة التقرير الثاني:

.

 

مع وجود الصورة في الخلف ، المطلوب اظهار الباركود على الصورة ، وبأي طريقة.

من تجربتي ، لإظهار الباركود ، يجب وضعه في كائن/حقل صورة ، امام الصورة الخلفية.

 

ارفق لكم من نفس الموقع ، مرفق اكسل كذلك.

ومن موقع www.lebans.com ارفق قاعدة البيانات A2KPictureBoxVer35.accdb ، والتي بها نموذج و مكتبات قد تساعد الذكاء الاصطناعي بالعمل (نعم ، قد يحتاج الى مساعدتك في توجيهه).

 

 

QR_barcode.accdb A2KPictureBoxVer35.accdb barcode.xlsm

[ابوخليل]

عليكم السلام

لدي تساؤلات

بعد ملاحظتي ان الصورة عبارة عن خلفية ملونة ,, اي مجرد لون
انت جمعت هذه الانواع في تفصيل واحد .. هل على ارض الواقع تستخدم كلها؟ .. ام واحد فقط؟
اذا كلها وخلفها صورة يمكن جعل الصورة خلفية بدلا من كائن ويرسم اطار  حول كل حقل لتمييزه

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

 

[jjafferr]

حيا الله اخوي ابوخليل 🙂

الحاجة كالتالي:

نريد عمل هوية موظف ، فالصورة الخلفية ستكون لشكل الهوية ، وسنحتاج الى احد انواع الباركود سواء Code128 او QR وهو المفضل.

انظر المثال للتوضيح:

.

سؤال: لماذا لا نضع صورة الهوية في خلفية قسم التفصيل ، بحيث يمكن عمل الباركود فوقها (كما في الامثلة اعلاه).

الجواب: بعض الاوقات نحتاج الى تحريك صورة الخلفية (بعيدا عن اطراف قسم التفصيل) ، بحيث ممكن نكتب شيء فوقها او على طرفها ، لذلك لابد من طباعة الباركود على كائن الصورة الخلفية

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

واجهتني مشكلة بخصوص الملف A2KPictureBoxVer35 وهو أنه لم يعمل على الإصدار  64 للأسف 🙂 ..

وظهر عندي الخطأ التالي عند تحميل النموذج ، بعد تعديل التوافق بإضافة Ptrsafe كتجربة ..

 

[jjafferr]

منذ ساعه, Foksh said:

واجهتني مشكلة بخصوص الملف A2KPictureBoxVer35 وهو أنه لم يعمل على الإصدار  64 للأسف 🙂 ..

وظهر عندي الخطأ التالي عند تحميل النموذج ، بعد تعديل التوافق بإضافة Ptrsafe كتجربة

اعطني السطر الذي به المشكلة حتى اعالجه.

 

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

وعادة يترك في الكود جميع انواع المكتبات ، سواء كانت مهمة لذلك الموضوع او لا ، ثم يقوم بتصفيتها في النهاية.

والاسهل ان تُدخل الكود في الذكاء الاصطناعي وتطلب منه حذف المكتبات الغير مطلوبة ، وتحويل الباقي ليعمل على النواتين 🙂

[Foksh]

39 دقائق مضت, jjafferr said:

اعطني السطر الذي به المشكلة حتى اعالجه.

انا فقط قمت بإضافة PtrSafe إلى جميع الوظائف والدوال في المديولين ..

 

الخطأ الأول عند تحميل النموذج :-

pb.ImageControl = Me.Image0

بعد فتح النموذج وتجاهل الخطأ السابق ، يظهر الخطأ التالي عند الزر :-

Private Sub Command30_Click()
pb.DIBFlipHorizontal
End Sub

وهكذا في جميع الأزرار التي تستدعي

pb.

 

انا شرحت المشكلة التي قد تواجه بعض المستخدمين الذي قاموا بتحميل الملف والعمل على بيئة 64 وليس 32 . فالملف يعمل بشكل سليم على أوفيس 32 

[jjafferr]

37 دقائق مضت, Foksh said:

انا فقط قمت بإضافة PtrSafe إلى جميع الوظائف والدوال في المديولين

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

 

على العموم ، قاعدة البيانات هذه كانت معمولة على الاكسس 2000 ، فمن المتوقع ان لا تشتغل على الاصدارات الجديدة ، وخصوصا نواة 64 بت

[ابوخليل]

15 ساعات مضت, jjafferr said:

حيا الله اخوي ابوخليل 🙂

الحاجة كالتالي:

نريد عمل هوية موظف ، فالصورة الخلفية ستكون لشكل الهوية ، وسنحتاج الى احد انواع الباركود سواء Code128 او QR وهو المفضل.

انظر المثال للتوضيح:

.

سؤال: لماذا لا نضع صورة الهوية في خلفية قسم التفصيل ، بحيث يمكن عمل الباركود فوقها (كما في الامثلة اعلاه).

الجواب: بعض الاوقات نحتاج الى تحريك صورة الخلفية (بعيدا عن اطراف قسم التفصيل) ، بحيث ممكن نكتب شيء فوقها او على طرفها ، لذلك لابد من طباعة الباركود على كائن الصورة الخلفية

بعد التجارب والمحاولة

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

لذا اي شيء  أضعه سوف يغطي الرسم

فقط الصورة كخلفية هي التي تسمح

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

يمكن يتبادر السؤال التالي ... هل يمكن ايجاد كائن آخر غير مربع النص يمكن لاكسس الرسم فيه؟
 

[jjafferr]

11 ساعات مضت, ابوخليل said:

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

ربما لم احسن وصف/شرح طريقة عمل الامر Line. في النماذج/التقارير ، وشرحك هو اقرب الى ما كنت اقصده ،

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

 

11 ساعات مضت, ابوخليل said:

هل يمكن ايجاد كائن آخر غير مربع النص يمكن لاكسس الرسم فيه؟

نعم ، يمكنه الرسم في كائن الصورة ، ولهذا السبب ارفقت البرنامج الآخر A2KPictureBoxVer35  والذي به مثال

هكذا:

.

ولما نقرت على الزر Save to File ، فحفظ الصورة اعلاه.

 

وهذا اللي قلته

في 21‏/5‏/2026 at 00:28, jjafferr said:

من تجربتي ، لإظهار الباركود ، يجب وضعه في كائن/حقل صورة ، امام الصورة الخلفية.

[jjafferr]

1. المطلوب جعل الكود يكتب على حقل صورة في النموذج/التقرير مباشرة ، بدل ان يكتب على حقل نص ، 

2. او ان يحول  المكتوب في حقل النص ، الى صورة ويحفظها على الحاسبة ، ثم يربطها بكائن الصورة الموجود في النموذج/التقرير (وهذه هي الطريقة المتعارف عليها في ربط الصور).

 

الافضل هي الطريقة الاولى ، لأن الطريقة الثانية تحتاج تنظيف مستمر لتلك الصور التي تم حفظها على الحاسبة

[منتصر الانسي]

اعتقد أني قد وجدت طريقتين لإظهار الرسم فوق الصورة

- الطريقة الأولى هي أن يتم الرسم في تقرير فرعي

- الطريقة الثانية هي بأن نجعل منطقة رسم الكود في الصورة شفافة

مرفق لكم المثال الذي يوضح ما أقصده

تحياتي

QR_barcode_New.rar