تم اضافة الكود التالي في حدق عند الخروج في حقل الكمية
Private Sub quantity_Exit(Cancel As Integer)
If (DLookup("[balance]", "Query3", "Xname='" & Me.sanaf.Column(1) & "'") < Me.quantity) Then
MsgBox "الرصيد غير كافي"
DoCmd.CancelEvent
Me.Undo
End If
End Sub
وظيفة الكود الاستعلام عن الرصيد فاذا كان اقل من الكمية المراد بيعها يتم الغاء العملية مع رسالة تنبيه بان الرصيد غير كافي
تحياتي