Private Sub unitprice_Enter() If [ccc] = "ÏíäÇÑ" Then [unitprice] = [unitprice] * [exchang_price] End If End Sub
السلام عليكم
جمعة مباركة ان شاءالله اخواني الكرام
في المثال المرفق المطلوب ان يتغير سعر للالف حسب سعر الصرف المحدد في نموذج سعر الصرف
ففي فاتورة المبيعات عندما اقوم باختيار العملة (بالدينار) يظرب سعر اللالف في سعر الصرف المدخل حسب اخر تاريخ
حيث ان السعر للالف (unit price) موجوده في جدول item و يتم ادخاله من هناك
و سعر الصرف (exchang_price) موجود في جدول exchang price و يتم ادخاله من نموذج سعر الصرف
فمثلا اذا كان سعر للالف للمادة f هو 0.023 وكان سعر الصرف حسب اخر تاريخ ادخال هو 1100 فيضرب الرقمين 0.023 * 1100 ليكون ناتج 25.3 و هو السعر اللاف بعد تحويل العمله
انا قمت باستخدام هذا الكود لكنه بالتاكيد به مشاكل و هو بحاجة للمسه منكم
بانتظاركم اخواني
