دالة الطرح من الرصيد السابق لاتعمل؟!

السلام عليكم

عندي نموذج اسمه subfrm ادا حطيت في مربع المنصرف ينقص لي من الرصيد...

انا ابي بعد اذا ادخلت في مربع الوارد يجمع لي على الرصيد ....

ومشكرة اوي اووي

الأسم : زهراء

كلمة السر: 5657

مع العلم اني جربت الطريقة:

في حدث بعد التحديث لمربع نص المنصرف ضعي الكود التالي :

1 Me!Text2=Me!Text2-Me!Text1

وكذلك بالنسبة لمربع نص الوارد مع استبدال علامة السالب بعلامة الجمع

ومانفع...

واستخدمة هذا الكود

Private Sub الكمية_AfterUpdate()

Me.اسم_الكت.Value = Forms![frm]![combo1]

'On Error Resume Next

If IsNull(رقم_الكود) = True Then

MsgBox "رقم_الكود خالي"

Me.رقم_الكود.SetFocus

Me.الكمية.Value = Null

Exit Sub

End If

Dim x

Me.Refresh

x = DSum("[الكمية]", "tb1", "[اسم الكت]=[اسم_الكت]") - DSum("[الكمية]", "tb2", "[اسم الكت]= [اسم_الكت]")

Me.الرصيد_السابق.Value = x

If x < 10 Then MsgBox "الكميه المتوفره اقل من 10"

End Sub

في الطرح ونفع ولكن مش راضي يضبط معاي في الجمع؟؟؟؟

أرجوو المساعدة