السلام عليكم ورحمة الله وبركاته
أعزائي الكرام أريد تعديل على الكود أدناه بحيث يقوم بتقسيم ما يقرأة قاري الباركود من أرقام في حقلين يضع في الحقل الأول الأرقام الستة الأولى من الباركود ، ويضع بقية الأرقام في حقل السعر علما بأن ما يوضع على حقل السعر قد يحتوي مبالغ على النحو الآتي: 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