اجراء العمليات الحسابية داخل الوحدة النمطية

[ابوخليل]

هذه مشاركة مع اخوتي واحبتي ، لعلها تفي بالغرض

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