تعديل كود

[اشرف]

السلام عليكم

اخواني الاعزاء

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

اذا لم يكن الباركود يبدا ب BA لايطبق عليه  x1 ... انما يذهب مباشرة الي اخر خمسة اسطر في الكود والتي تبدأ ب me (فكل ما يبدا ب BA منتج يخص المحل اما اي اكواد اخري تخص المنتجات الخارجية مثل المعلبات وعيرها ) مثال BA1001 hg الكود الذي يبدأ ب BA  مكون دائما من سته 

انا معرفتش استخدم if علشان معرفتش اقوله اللي يبدا ب كذا اكتبها ازاي ولقيت ان مش منطقي اكتبها علي = واكتي كل الاكواد 

ارجوكم افيدوني

Private Sub باركود_AfterUpdate()
 Dim x1, x2, x3
 x1 = Mid([باركود], 2, 6)

x2 = Mid([باركود], 8, 5)

x3 = Mid([باركود], 9, 3) & "." & Mid([باركود], 12, 13)

باركود = x1

رقم_الصنف = x1

الكمية = x2 / (1000)

Me![رقم_الصنف] = Me![باركود].Column(1)
Me![وحدة_البيع] = Me![باركود].Column(3)
Me![السعر] = Me![باركود].Column(4)
Me![أسم_الصنف] = Me![باركود].Column(2)
[صنف_مكرر] = [رقم_الصنف] & [fatora]

End Sub

تم تعديل فبراير 22, 2020 بواسطه اشرف
كلمة خطأ املائي