[ تمت الإجابة ]قيمة من نموذج فرعي

اخي العزيز..

المطلوب الأول:

أكتب هذه المعادلة داخل مربع النص Text13 حيث تكون..

=[Payments Query].Form.Text6

المطلوب الثاني يجب ان يتم عمله من خلال حدث بعد التحديث لكل من مربعات النص التي تدخل في المعادلة التي تود ايجاد نتيجتها في Balance .. بمعنى..

اذهب الى مربع النص ReqAmount واكتب في حدث بعد التحديث له كود المعادلة المطلوبة، ونفس العملية لمربع النص PaidAmount، مع تحياتي.. طبعا هناك طريق اخرى لكن من واقع المثال الموجود هذا المتاح..

هكذا..

Private Sub ReqAmount_AfterUpdate()
Me.BalanceAmount = Me.ReqAmount - Me.PaidAmount - Me.Text13
End Sub

و...

Private Sub PaidAmount_AfterUpdate()
Me.BalanceAmount = Me.ReqAmount - Me.PaidAmount - Me.Text13
End Sub

الأخ/ همام ..... زادك الله همة وعليا ...

ما شاء الله عليك ... بوركت ورزقك رزقا حسنا ...

ألف شكر ... وسلام لأهلنا في فلسطين