两表数值比较，超出(大于)时提示

justinliao　发表于：2012-03-24 20:57:25 　

说明：表一ID是不重复编号，表二ID与qty是输入值；当Z001输入40时，查询一Z001之和120大于表一的100时发出无法输入提示。

表一

ID	qty
Z001	100
Z002	80

表二

ID	qty
Z001	50
Z002	40
Z002	20
Z001	30
Z001	40

查询一

ID	total-qty
Z001	120
Z002	60

Top

西出阳关无故人发表于：2012-03-25 00:14:15

应该在表二的窗体的中设置规则

Top

wsl 发表于：2012-03-25 11:12:53

是的，应该在表二的数据录入窗体中设置规则。

可以这样：

Private Sub qty_Exit(Cancel As Integer)
Dim intqty1 As Integer
Dim intqty2 As Integer
intqty1 = DLookup("qty", "表一", "ID='" & Me.ID & "'")
intqty2 = DSum("qty", "表二", "ID='" & Me.ID & "'")
If intqty2 > intqty1 Then
    MsgBox "qty输入当前数据 " & Me.qty & " 后，" & Me.ID & " 的总和是 " & intqty2 _
           & " ,已大于其最高限量 " & intqty1 & " ，请核查。", vbExclamation, "提示"
    Cancel = True
End If
End Sub

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

两表数值比较，超出(大于)时提示