اجراء العمليات الحسابية داخل الوحدة النمطية
السلام عليكم اساتذتي الاعزاء
لدي ملف اكسس لحساب الراتب وفية وحدة نمطية فيها ثلاث دوال Function (salary1,salary12,salary3) استخدمت فيها Select Case
ولدي استعلام فيه قائمة منسدلة للدرجة بالراتب من (1-5) وقائمة اخرى للمرحلة بالراتب ايضا من (1-5)
اريد تعديل الاكواد واجراء عمليات حسابية داخل الوحدة النمطية حصرا تظهرالنتيجة في الاستعلام من خلال الحقل مجموع الراتب
يتم استدعائه من خلال الدالة salary3
مثلا : عند اختيار الرقم 1 من الدرجة بالراتب واختيار الرقم 1
هذه مشاركة مع اخوتي واحبتي ، لعلها تفي بالغرض
Public Function Subsalary(GradeNumber As Byte, RankNumber As Byte) As Double
Subsalary = Nz(DLookup("GradeSalary", "Degree", "GradeNO=" & GradeNumber & " And RankNO=" & RankNumber), 0)
End Function
salary3.accdb
