I made some changes to your code
Private Sub Units_Recived_BeforeUpdate(Cancel As Integer)
If NZ(Me.Units_Recived , 0) > NZ(Me.Units_Ordered, 0) Then 'only greater, Received and ordered can be the same
MsgBox "Units Received Cannot Be More Than Units Ordered", vbOKOnly...