请老师们帮忙改一段语句

qyjun　发表于：2015-03-31 00:21:48 　

If DLookup("gbmxid", "tblgbmx", " khid= '" & Me.khId & "'and spid= '" & Me.spId & "' and rq=# " & Me.rq & " # ") <> "" Then
MsgBox "此客户已在单车下账中录入,请不要在批量下账中重复添加!", vbOKOnly, "友情提示："
Exit Sub

End If

想实现单车下账的多条记录里的数量（gbsl）和与当前需要输入的批量数量（plsl）相等时，报错提示。上面只能实现同日期下，相同商品（spid）、相同客户（khid）时报错，如果增加数量的控制，就需要求出上面条件下的多条记录中数量的和与批量数量进行比较。不会处理了，请老师们帮忙。

Top

煮江品茶发表于：2015-03-31 08:19:49

and前增加空格

Top

qyjun 发表于：2015-03-31 08:27:40

不是这里语句错误，是在以上条件的基础上再增加一个数量条件，只是数量需要求出几条记录中的和，再与当前输入的汇总数量比较

Top

煮江品茶发表于：2015-03-31 09:15:09

isnull(DLookup("gbmxid", "tblgbmx", " khid= '" & Me.khId & "' and spid= '" & Me.spId & "' and rq=# " & Me.rq & " # "))=false

nz(DLookup("gbmxid", "tblgbmx", " khid= '" & Me.khId & "' and spid= '" & Me.spId & "' and rq=# " & Me.rq & " # "),"") <> ""

Dcount("*", "tblgbmx", " khid= '" & Me.khId & "' and spid= '" & Me.spId & "' and rq=# " & Me.rq & " # ") >0

Top

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

Access交流中心

请老师们帮忙改一段语句