条件语句不能正确判断

一半一半　发表于：2009-07-16 16:24:40 　

(起始码.Column(1)) 为库存数量

接受焦点事件：

If Me![本数] > (起始码.Column(1)) Then
MsgBox "销售数量" & Me![本数] & "本>库存数量" & (起始码.Column(1)) & "本" & Chr(10) & Chr(10) & "请检查销售本数是否正确？", vbOKOnly, "提示"
Me.本数.SetFocus
Else
end if

问题是：当库存为16时，销售数量为2时，仍然出现提示框

请帮我看看错在哪里？

Top

钱玉炜发表于：2009-07-16 16:34:37

不要乱加括号，如果你的起始码是个组合框，那就直接用If Me![本数] > 起始码.Column(1)，没必要加上括号

Top

一半一半发表于：2009-07-16 16:41:53

把括号去掉后还是不行？

Private Sub 销售去向_GotFocus()
If Me![本数] > 起始码.Column(1) Then
    MsgBox "销售数量" & Me![本数] & "本>库存数量" & (起始码.Column(1)) & "本" & Chr(10) & Chr(10) & "请检查销售本数是否正确？", vbOKOnly, "提示"
    Me.本数.SetFocus
Else
    Me.销售去向.Dropdown
End If
End Sub

好像缺少什么控制？

Top

麥田发表于：2009-07-16 16:44:50

好像缺少什么控制？具体

Top

一半一半发表于：2009-07-16 16:46:34

我不知道，我把那一段都贴上去了

Top

一半一半发表于：2009-07-16 17:05:29

这一个失去焦点事件也出现不能正确判断的问题

Private Sub 销售额_LostFocus()
Me![税率] = (Me![销售额] - Me![本数] * 6.5) / (Me![本数] * Me![面额] * 50) * 100
If Me![税率] < 起始码.Column(5) Then
MsgBox "扣除工本费后本次销售税率" & CStr(Me.税率) & "%，低于购进税率" & CStr(起始码.Column(5)) & "%" & Chr(10) & " 销售金额" & CStr(Me.销售额 - Me.本数 * 6.5) & "元-购进金额" & CStr(起始码.Column(5) / 100 * Me.本数 * Me.面额 * 50) & "元" & Chr(10) & "请检查本数或销售额是否正确！", vbOKOnly, "提示"
End If
End Sub

当Me![税率] > 起始码.Column(5) 也出现提示框

组合框数据来源内容

起始码为：SELECT fply.可用号, fply.库存, fply.面额, fply.总金额, fply.fpID, fply.税率, fply.税金 FROM fply WHERE (((fply.库存)>0)) ORDER BY fply.fpID;

Top

大洪发表于：2009-07-16 17:16:46

是不是组合框,列数那填的不对吖,检查吖,要不把附件上传