الخصم المشروط في جدول مبيعات

تفضل اخي الكريم ملفك بعد التعديل وفق ما طلبت

السلام عليكم ورحمة الله

عفوا أخي الكريم 

عندما حاولت تحميل المرفق ظهرت هذه الرساله :

لا تملك صلاحيات لتحميل المرفق 

اشكرك على المجهود على اية حال

السلام عليكم ورحمة الله

الاخ صفوت على حق  لا يمكن تحميل المرفق

الاخ الفاضل

مع الاسف الكثير ينظر للحلول البرمجية انها الهدف الرئيس من حل المشكلات. مع الاسف نفتقد الكثير من بناء المنطق Logic . الحل البرمجي سهل جدا لطلبك لكن الحل نفسه سيولد مشكلة! المشكلة عندك لو تم الخصم المبلغ بنسبة 5% فيتم حسم المبلغ ويتم حفظ القيمة (overwriting) لو اردت الان الغاء الخصم كيف تسترجع المبلغ الاصلي حيث انه تم استبداله بالمبلغ بعد الخصم!!

انت محتاج لبعض التعديلات قبل البدء في الحل البرمجي

اولا يفترض ان تعمل حقل اضافي في الجدول وتسميه  Deduction حيث الحقل سيحمل قيمة الخصم و في نفس الوقت سيمنع من تاثر المبلغ من التغيير وبالتالي نستيطع استعادته اثناء الغاء الخصم

ثانيا قم باضفة هذا الحقل Deduction الى الفورم  مع تبديل القيم المبدئية Default value الى 0

ثالثا قم بتعديل المعادلة في الاستعلام الى التالي

total: ([quantity]*[price])-[deduction]

الان ضف هذا الكود الى الفورم

Private Sub Cash_Click()

Call get_deduction

End Sub

Private Sub Price_AfterUpdate()

Call get_deduction

End Sub

Private Sub Quantity_AfterUpdate()

Call get_deduction

End Sub

Public Sub get_deduction()

Const deductionPercent = 0.05 '5%

If Me.Cash = -1 Then

    Me.Deduction = 0

    Me.Deduction = Me.Total * deductionPercent

        Else

            Me.Deduction = 0

End If

End Sub

بالتوفيق

تحياتي

شكرا جزيلا لك ايها الاخ الفاضل  ...انا اشاركك وجهة نظرك تماما واتفق معك في كل ما قلته

وللحقيقة ما طلبته لا يمت بصله للمبيعات , فقط اردت  تطبيق الفكرة بموضوع مختلف تماما , وقد وصلت الفكرة

بالنسبة لعملية الخصم يمكن تطبيقها من خلال وضع حقل للمدفوع ووضع شرط انه اذا كان  مساويا لقيمة المبيع نجري عملية الخصم وهذا امر سهل كما تعرف

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

على اية حال اشكرك مرة اخرى   وتحياتي