[احمد عبد الحكيم]

المشكلة لم تنحل مرة اخرى
المشكلة ان عندى 3 مربعات نص
المربع الاول به 20000 وهو سابت المربع الثانى متغير على حسب الخصم
بمعنى
المربع الاول 20000
الثانى 1000
فا الثالث19000
بعد ذلك تتحول العملية الحسابية بين المربع الثانى والثالث

وانا وضعت امر لاكن هذا الامر لا يعمل مع LostFocus

If Trim(txtpak.Text) = "" Then
Try
txtpak.Text = Val(txtq.Text - txtkh.Text)
Catch ex As Exception
Exit Sub
End Try
Else
Try
txtpak.Text = Val(txtpak.Text - txtkh.Text)
Catch ex As Exception
Exit Sub
End Try
End If