如何用订单号数量限制入库数量

可能為我以前設置的例子相似,供參考!

源碼:

Private Sub 收料重量_BeforeUpdate(Cancel As Integer)
Dim A As String
Dim B As String
A = Me!收料重量
B = Me.收發帳本結餘_生產單號_子表單!結餘
If A = Null Then
MsgBox "您沒有輸入收料重量", vbInformation, "重量不能為空"
End If

If A > B Then
MsgBox "請確認,您輸入的數量為" & A & "kg,超過結餘數量" & B & "kg", vbInformation, "數據不正確"
DoCmd.OpenForm "其他單號清單"
End If

End Sub