ارجو المساعدة في عمل برنامج لييبل

[blue sea]

السلام عليكم

ارجو عمل برنامج لطباعة باركود لاسم ورمز الباركود يتم اخذ البيانات من ملف اكسل حسب مقاس ليبل   2.5 *5 cm حيث اني جربت عدة برامج اكسس تقوم بطباعة الباركود لكن لا يتمكن قارئ الباركود من قراءة الليبل 

 

my barcode.xlsx

تم تعديل يوليو 13, 2023 بواسطه blue sea

[عمر ضاحى]

عملت لك ملف على السريع 
هتلاقى داخل الملف المضغوط
3 ملفات 

الاول قاعدة البيانات الاكسيس

الثاني ملف خط الباركود (هتحتاج تسطبه فى الوندوز عندك علشان كل حاجه تكون مظبوطه)

الثالث ملف الاكسيل

انت طبعا لنا تحب تغير ملف الاكسيل اول حاجه لازم يكون اسم ملف الاكسيل هو " MyLabel.xlsx "

بعدها تفتح قاعدة البيانات 

 

هذا للفائدة

تم وضع كود اعادة ربط ملف الاكسيل 

علشان لو نقلت مكان البرنامج بشكل تلقائى يعرف يعيد ربط الاكسيل بالاكسيس

طبعا الكود اخذته من استاذى @Moosak

 

وهو 

 

Sub RelinkLinkedTable()
Dim db As DAO.Database
    Dim tblDef As DAO.TableDef
    
    ' Set the path to the original Excel file
    Dim excelFilePath As String
    excelFilePath = CurrentProject.Path & "\" & "MyLabel.xlsx"
    
    ' Set the name of the linked table
    Dim linkedTableName As String
    linkedTableName = "MyLabel"
    
    ' Open the database
    Set db = CurrentDb()
    
    ' Get the TableDef object for the linked table
    Set tblDef = db.TableDefs(linkedTableName)
    
    ' Update the Connect property to relink the table to the original Excel file
    tblDef.Connect = "Excel 12.0;HDR=YES;IMEX=2;ACCDB=YES;DATABASE=" & excelFilePath
    
    ' Refresh the table to apply the changes
    tblDef.RefreshLink
    
    ' Close the database
    db.Close
    
    ' Cleanup
    Set tblDef = Nothing
    Set db = Nothing
    
    MsgBox "Linked table relinked successfully.", vbInformation
End Sub

 

Label.rar

[blue sea]

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

[عمر ضاحى]

1 ساعه مضت, blue sea said:

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

ممكن توضح اكثر يعنى ايه بيديك قراءة مختلفه ؟

 

[blue sea]

عندما اقرا ليبل رقم 3100002 يعطي نتيجة 11281771 جرب ان تطبع ليبل على ورقة وتقرا الرمز

تم تعديل يوليو 13, 2023 بواسطه blue sea

[دروب مبرمج]

لا اتوقع بأن خطوط الباركود دقيقة اثناء القراءة

من الافضل لك استخدام ادوات انشاء الباركود و بالإمكان استعمالها مع الاكسل و الاكسس

[jjafferr]

السلام عليكم 🙂

 

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

انا استخدم Code39 ،

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

 

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

.

.

فيقوم الاكسس بتعديل مسافات الحواف

1587.Label.zip

[blue sea]

اشكرك جزيل الشكر اخ jjafferr جربت اطبع على ورق A4 ونجح في القراءة لكن حاولت ان اعدل الليبل واضيف الرقم اسفل الباركود واجعله يطبع عمود واحد مع تحديد مقاس الليبل 5في 2.5 سم  لكن اتلخبطت معي .. ارجو تعديل الملصق ليكون كالشكل في المرفق ولك جزيل الشكر مرة اخرى

تم تعديل يوليو 14, 2023 بواسطه blue sea

[jjafferr]

الافضل ترفق لنا المشكلة ، وتخبرنا وين المشكلة 🙂

[blue sea]

@jjafferr ارجو تعديل البرنامج لتكون النتيجة كما في المثال في الصورة ادناه مع الشكر .. 

[jjafferr]

تفضل

1587.Label.zip

[blue sea]

اخي العزيز @jjafferrاواجه مشكلة في ضبط المقاسات .. ارجو عمل المقاسات والتنسيق كما في الصورة المرفقة .. مع الشكر

[jjafferr]

وعليكم السلام 🙂

 

في التقرير ، اتبع هذه الخطوات ، انقر على تبويب Page ، واختار الطابعة لهذا التقرير ، 

ثم ارجع الى Print Options واجعل جميع الارقام التي في المربع الاحمر 0 ، ثم انقر موافق ،

ثم انقر على رقم 3 من جديد لتفتح النافذة المنبثقة ، والآن سترى ان مسافات حواف الطابعة تغيرت ولا تستطيع ان تستعمل ارقام اصغر منها ،

 

.

رجاء النظر في هذه المشاركة لمعرفة تفاصيل اكثر عن عرض التقرير

 

**** رجاء ملادظة ان جهازي لا يستخدم النظام المتري ، فالمقاييس في الصورة هي بالبوصة

1587.Label.zip

[blue sea]

مقاسات الليبل عند الطباعة لم تظهر عندي مضبوطة .. ياريت يا اخ @jjafferr تعملي ليبل جاهز بهذا البرنامج وحسب مقاسات الصورة المرفقة او مايقابلها بالبوصة 😐

تم تعديل يوليو 17, 2023 بواسطه blue sea