难倒一方豪侠的假设代码

好好　发表于：2014-03-13 11:26:23 　

“当不是销售订单或者不是特例呈报单或者不是调整单的其中之一”时，如果父单ID为空就提示

请问如何写代码呢

If Me.单据类型.Column(3) <> "销售订单" Or Me.单据类型.Column(3) <> "特例呈报单" Or Me.单据类型.Column(3) <> "调整单" Then
        If IsNull(Me.父单id) Then
            MsgBox "请选择父单据1111！"
            Exit Sub
        End If
        Exit Sub
    End If

以上，出现，无论是什么单都提示

If Me.单据类型.Column(3) <> "销售订单" Or Me.单据类型.Column(3) <> "特例呈报单" Or Me.单据类型.Column(3) <> "调整单" And IsNull(Me.父单id) Then
        MsgBox "请选择父单据1111！"
        Exit Sub
    End If

以上，无论什么情况下都提示，即使添加了父单也提示

Top

杜超-2号发表于：2014-03-13 11:35:45

Top

好好发表于：2014-03-13 12:51:17

If Me.单据类型.Column(3) <> "销售订单" Then
If Me.单据类型.Column(3) <> "特例呈报单" Then
If Me.单据类型.Column(3) <> "调整单" Then
        If IsNull(Me.父单id) Then
            MsgBox "请选择父单据！"
            Exit Sub
        End If
    End If
    End If
    End If

Top

zhaoyoulong 发表于：2014-03-13 20:16:01

If Me.单据类型.Column(3) <> "销售订单" and Me.单据类型.Column(3) <> "特例呈报单" and Me.单据类型.Column(3) <> "调整单" Then
        If IsNull(Me.父单id) Then
            MsgBox "请选择父单据1111！"
            Exit Sub
        End If
        Exit Sub
    End If

Top

西出阳关无故人发表于：2014-03-15 12:41:45

If InStr("销售订单特例呈报单调整单", Me.单据类型.Column(3)) = 0 Then
        If IsNull(Me.父单id) Then
            MsgBox "请选择父单据！"
            Exit Sub
        End If
End If

Top

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

Access交流中心

[5分]难倒一方豪侠的假设代码