وعليكم السلام ورحمة الله وبركاته
تقبل الله طاعانكم ورفع درجاتكم استاذي الكريم صالح
وعيدكم مبارك اعاده الله عليكم وعلى الجميع بالخير واليمن والبركات
سلمت استاذي الكريم على مثالك الرائع .ورايكم في الوزن سآخذ به
يوجد ملاحظة صغيرة هو ان الخانتين الاوليتين من اليسار هما بداية الكود في العموم لها استعمالات. ولا تحتسب من رقم المادة في حالات كثيرة
منها هذه.
يبقى خمس خانات لرقم المادة وخمس اخرى للوزن /السعر
واول خانة من اليمين تكون خانة الفحص وهي تنتج بشكل الي من الباركود حسب معادلة معينة وتهمل عند فصل الوزن /السعر من الباركود
ساحاول التعديل ان شاء الله.
بارك الله فيك وجزاك الخير
وكل عام وانتم بالف خير
استاذي الكريم صالح
عدلت في الكود
Me.date_factu = Date
Me.sub_tbl6.SetFocus
DoCmd.GoToRecord , , acNewRec
a = Left(Me.code_ar, 7)
[sub_tbl6].Form![code_article] = Right(a, 5)
[sub_tbl6].Form![article] = DLookup("article", "tbl1", "code_art='" & [sub_tbl6].Form![code_article] & "'")
b = Right(Me.code_ar, 6)
[sub_tbl6].Form![Qte] = Left(b, 5) / 1000
[sub_tbl6].Form![prix] = DLookup("prix", "tbl1", "code_art='" & [sub_tbl6].Form![code_article] & "'")
[sub_tbl6].Form![total] = [sub_tbl6].Form![prix] * [sub_tbl6].Form![Qte]
Me.Refresh
End Sub
وان شاء الله تكون الامر تمام
بقيت حاجة صغيرة في نفسي لاكمل الموضوع
في حالة الوزن صفر وهو للمواد التي نبيعها بالحبة مثل ضمة نعنع
فما رأيك ان يتغير اول خانتين من اليسار ليدل على اصناف الحبة وبالتالي لها مسار اخر لتأخذ السعر من الباركود
بارك الله فيك وجزاك الخير