查询文本框随意输入后报错的问题

Access leev　发表于：2013-12-26 09:54:38 　

材料费文本框用代码：

Function ZBCL() As Integer
增补材料费 = DLookup("单价", "增补项目", "系统材料名称= '" & [Forms]![报价]![增补项目名] & "'") * [增补数量]
End Function

材料费文本框随意填写数字时报错

调试问题指向合计：用鼠标查看三个控件都有数值

关闭调试后也执行计算：

哪里的问题求教。。。。。

奇玉发表于：2013-12-26 12:12:02

错误那一行为什么把 me 去掉了呢？ Me.增补合计 = Val(Me.增补材料费) + Val(Me.增补人工费)

Access leev 发表于：2013-12-26 13:07:14

去不去Me都一样的报错

zhaoyoulong 发表于：2013-12-26 16:13:28

Function ZBCL() As Integer
增补材料费 = DLookup("单价", "增补项目", "系统材料名称= '" & [Forms]![报价]![增补项目名] & "'") * [增补数量]

End Function

按以上算 ZBCL 函数的值始终是0

Function ZBCL() As Integer
ZBCL = DLookup("单价", "增补项目", "系统材料名称= '" & [Forms]![报价]![增补项目名] & "'") * [增补数量]

End Function

HJ函数也是同样问题

??? 增补合计=增补材料费+增补人工费

Function FJ() as integer

HJ=Me.增补材料费+Me.增补人工费

end function

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

Access交流中心