السلام عليكم
اخواني الاعزاء
لدي كود استخدمه لادخال عن الباركود ولكن احتاج الي تعديل
اذا لم يكن الباركود يبدا ب 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