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

[Alhaithm]

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

أعزائي الكرام أريد تعديل على الكود أدناه بحيث يقوم بتقسيم ما يقرأة قاري الباركود من أرقام في حقلين يضع في الحقل الأول الأرقام الستة الأولى  من الباركود ، ويضع بقية الأرقام في حقل السعر علما بأن ما يوضع على حقل السعر قد يحتوي مبالغ على النحو الآتي: 2972.00 أو 972.05 أو ، 75.15 أو 1.14 أو .052

والباكود كاملا يكون بهذا الشكل: 2150023942.75

21500357.75

2150045.77

215005267.75

الأزرق هو كود الصنف والأسود السعر

مرفق قاعدة بيانات بها كود صممته العملاقة زهرة سنة 2012 لنفس قاعدة البيانات ولكن كانت مهمته تقسيم الباكورد على 3 حقول (رمز الصنف و الكمية و السعر)

وقد أجريت على كود زهرة التعديل أدناه وقد نجح هذا التعديل ولكن ظلت مشكلة الفلسات يتجاهلها قارئ الباركود

Dim xProductID, xSalesPrice
xProductID = Mid([ProductID], 1, 6)
xSalesPrice = Format(Mid([ProductID], 7, 4), "0000")
If xProductID = 215002 Or xProductID = 215003 Or xProductID = 215004 Then
ProductID = xProductID
SalesPrice = xSalesPrice

za-Exam-UP2.rar

تم تعديل نوفمبر 8, 2018 بواسطه ابوخليل
تعديل عرض الأسطر البرمجية

[Shivan Rekany]

السلام عليكم ورحمة الله وبركاته
تم تنزيل المرفق لكن لم ارى اي باركودات بهذا الشكل 
 

في ٨‏/١١‏/٢٠١٨ at 18:29, Alhaithm said:

والباكود كاملا يكون بهذا الشكل: 2150023942.75

21500357.75

2150045.77

215005267.75

في قاعدة بياناتك
على الرقم كل شي جرب التغيير في هذا السطر

في ٨‏/١١‏/٢٠١٨ at 18:29, Alhaithm said:

xSalesPrice = Format(Mid([ProductID], 7, 4), "0000")

غيره الى هذا

xSalesPrice = Format(Mid([ProductID], 7), "##0.00")

 

[Alhaithm]

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

شكرا لك

توضيحا لتعجبك أنك لم ترى باركودات بهذا الشكل:

هو باركود خاص ينطبع على ورق حراري طابعة صغيرة وهو نتيجة عمل أحد الموظفين يحتوي على رقم الموظف (الستة الأرقام الأولى) وهو نفسة رمز الصنف وباقي الأرقام هي إجمالي القيمة ، عند قراءة الباركود بالاسكنر في كاونتر المبيعات في الفاتورة يتم معرفة اسم الموظف الذي قام بالمهمة والمبلغ والصنف الذي نفذه