Private Sub Tot_Mokab_GotFocus()
If Not IsNull(Mokab_RName) Then
Me.Tot_Mokab = Qty_in * Mokab_RName
Else
Me.Tot_Mokab = unit_price * Qty_in
End If
End Sub
هذا الكود كنت استخدمه فى حاله وجود قيمه فى حقل Mokab_RName يتم ضرب Qty_in * Mokab_RName اما فى حالة خلو حقل Mokab_RName من القيم يتم ضرب unit_price * Qty_in والان اريد تعديل الكود بيحث يقوم بتنفيذ الشرط الاول وهو Qty_in * Mokab_RName اما فى حالة خلو الحقل Mokab_RName من القيم لا تتم اى عملية ضرب من الاساس على ان يتم التعديل فى حقل جملة المكعب فى الفاتوره
