حساب اخر ثلاثة ارقام أو اقل - كسور للكيلو جرام

[qathi]

السلام عليكم اخواني واساتذتي الافاضل 
حياكم الله وبعد

معروف ان وزن الكيلو جرام يساوي 1000 جرام
وكذلك ان الباركود يحتوي على 13 رقم: 000120000512

000 :    اول ثلاثة اصفار معرف داخلي ولا يتبع لأي جهة
00012 :  الارقام التالية عبارة عن باركود الصنف مع الاصفار 
0000512: والارقام المتبقية وزن الصنف بالجرام
اخر رقم يتم توليده تلقائيا ولا يتم احتسابه
=========================================

المطلوب:
بعد اضافة الباركود وتخزينة للجدول
أن يتم تحويل اخر ثلاثة ارقام أو أقل في الباركود الى كسور 1 كيلو

فمثلاُ
اذا كان الباركود هكذا : 000120000512
فانة يتم تخزينة الوزن في الجدول الرقم 512
والمطلوب: يتم احتسابة كسور (اجزاء) من 1 الكيلو جرام هكذا 0.512

وكذلك بالنسبة للكود 000120003512
يتم تخزينة:  3512
والمطلوب : 3.512

وكذلك بالنسبة للكود 000120033512
يتم تخزينة:  33512
والمطلوب : 33.512

...الخ 

بحيث يكون ال 3 أو 33 هو وزن كيلوه جرام
و 512 كسور للكيلو الواحد

أذا لم يكون شرح الطلب واضحاً الرجاء مراسلتي للتوضيح اكثر

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

مرفق ملف للاستاذ القدير حسين العربي فجزاه الله عنا خيرا

كاشير.rar

 

[husamwahab]

السلام عليكم 

تفضل هذه المحاولة ارجو ان تكون مفيدة

ملاحظة : حسب ما فهمت من طلبك فان المرفق لا يشابه طلبك لذا هذه المحاولة لطريقتين 

الاستعلام الاول : اذا كان الباركود كامل ونريد استخراج الوزن

الاستعلام الثاني : اذا كان الموجود الوزن وجزء من الباركود ونريد الباركود الكامل

Root220.rar

[أبو عبدالله الحلوانى]

السلام عليكم 

ان كانت هذه الافتراضيات صحيحة

1- أن أول 5 أرقام من جهة اليسار للباركود هي ثابته ولن تتحرك جهة اليمين.

2- باقي الأرقام من بعد الخمسة الأولي من جهة اليسار هي عبارة عن وزن الصنف.

اذن هذا الكود سيقوم بتنفيذ ما طلبت باذن الله 

Me.Text0=Val(Right([barcode],len([barcode])-5))/1000

 وطبقت هذا علي مرفقكم مع تعديل كود البار كود كما جاء بمشاركتم الأولي ليظهر فائدة الكود

انظر المرفق ووافنا بالنتائج

 

كاشير.rar

[qathi]

أعتذرا اساتذتي الافاضل عن الرد 

اشكرك استاذي @husamwahab على ردك وبارك الله فيك على مجهودك الطيب

 

============

أستاذي @أبو عبدالله الحلوانى 

في ١٥‏/١٠‏/٢٠٢٠ at 00:04, أبو عبدالله الحلوانى said:

Me.Text0=Val(Right([barcode],len([barcode])-5))/1000

نجح هذا الكود ووفى المطلوب

 

بارك الله فيكما أساتذتي @أبو عبدالله الحلوانى و  @husamwahab  وفي ذريتكما وجزاكم الله عني خيرا .. أسأل الله أن يدخل عليكما سعادة وسرورا يوم أن تلقوه وأن يدخلكما ووالديكما الجنة الفردوس الاعلى

تم تعديل أكتوبر 17, 2020 بواسطه qathi