صباح النور ... بم ان المعادلة في aa1 و aa2 معقدة و لا يمكن وضعها في مربع نص واحد ... لذلك وضعتها في مربعي نص ... و وضعت هذا الكود في الحالي للنموذج ... Private Sub Form_Current() If IsNumeric([Mob-15]) Then addmo = aa2 Else addmo = aa1 End If End Sub اذا الخلية 15 يوجد فيها رقم فعدد الارقام = aa2 و الا = aa1 * ملاحظة : يجب ادخال الارقام في الحقول بالتسلسل ... مثلا اذا كان للموظف رقم واحد فلا يجوز وضعه في الخلية 2 او 3 و هكذا ...