السلام عليكــم ورحمـة الله وبركاتــه
جربت هذا الكود ولكنه لم يعمل
Note :
Text49 : قيمة الرصيد في الفورم
Text32 : قيمة المصروفات المدخلة في الفورم
///////////////////////////////////////
Private Sub Text32_AfterUpdate()
Form.Requery
If Text49 < 0 Then
MsgBox "الرصيد غير كافي"
Exit Sub
End If
End Sub
////////////////////////////////
لكن لم يظهر أي رسالة عند جعل الرصيد بالسالب بزيادة قيمة المصروفات عن الرصيد