在访问中将表达式转换为 VBA

Question

我创建了一个表达式，将 3 个文本框加在一起成为第 4 个总框。表达式为：

=Cdbl(Nz[txtPart1],0)) + Cdbl(Nz[txtPart2],0)) + Cdbl(Nz[txtPart3],0))

我正在尝试将其转换为 VBA 代码，因为我创建的表单上有很多东西运行这就是计算缓慢的原因。我希望能够添加一个沙漏，这样用户就不会认为该程序无法运行。我尝试在所有三个文本框的更新后事件中放置一个对 3 求和的代码，但这没有用。请帮忙！

我在 3 个文本框的 AfterUpdate 中有这段代码：

me.total = me.txtpPart1 + me.txtPart2 + me.txtPart3

谢谢

Answer 1

那么你可以使用：

Me!Total.Value = 0
' Ignore error from non-numeric input.
On Error Resume Next
Me!Total.Value = CDbl(Nz(Me!txtPart1.Value, 0)) + CDbl(Nz(Me!txtPart2.Value, 0)) + CDbl(Nz(Me!txtPart3.Value, 0))

在访问中将表达式转换为 VBA

Converting an expression to VBA in access

ms-access

vba

calc