更新后事件判断所选客户不相同做出提示！

凌云　发表于：2013-07-26 18:29:27 　

复制

如果我对同一个客户生成托运单单，在我选择是否托运的时候做出判断，如果选择的客户部相同，那么就会做出提示并不能生成应付结算单，如何写更新后事件来判断两个名称不相等？

Top

蟹仔发表于：2013-07-26 19:03:57

我觉得可以先用dcount函数查询当前客户已经办理托运的数量有多少。如果小于一，就可以打钩，大于等于一，就不予更新。

Top

蟹仔发表于：2013-07-26 19:06:30

if dcount("是否托运","你的表","客户名称=“& 客户名称 &”")>=1 then

msgbox"此客户已经办理了托运"

是否托运=false

end if

Top

缪炜发表于：2013-07-26 19:28:12

用dcount判断一下

Top

凌云发表于：2013-07-26 19:57:47

一楼和三楼，谢谢你的回复，但我要的结果是，如果客户名称相同的允许选择，如果客户名称不相同的不允许生成一个托运单。

三楼缪老师，可否说的更加详细一点，也许对我有所启发。今天我是用过dcount函数做过，但不成功。

Top

殷小宝发表于：2013-07-27 15:58:35

在是否托运AfterUpdate事件中写上下面代码：

if me..是否托运=true then

if dcount("*","订单表","是否托运=-1")>=2 then

if dcount("*","订单表","是否托运=-1 and 客户名称='" & Me.客户名称 &"'")<2 then

msgbox"你选择的客户名称不相同,请重新选取!",vbcritial,"提示"

me.是否托运=false

end if

Top

凌云发表于：2013-07-28 12:28:53

三楼繆老师有一个更好的办法解决了这个问题，谢谢繆老师，同时也谢谢小宝老师的回复！

Private Sub 是否托运_AfterUpdate()
Dim selectCount As Long
selectCount = DCount("*", "客户订单", "是否托运=-1")
selectCount2 = DCount("*", "客户订单", "是否托运=-1and 客户名称='" & Me.客户名称 & "'")
    If Me.是否托运 = True Then

        If selectCount <> selectCount2 Then
            MsgBox "你选择的【" & Me.订单编号 & "】不属于同一个客户，请重新选取!", vbCritical, "提示"
            Me.是否托运 = False

End If

End Sub

Top

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

Access交流中心

[5分]更新后事件判断所选客户不相同做出提示！