vba - 访问文本框添加值

Question

我有一个带有表单的访问数据库，其中包含许多文本框。文本框根据用户所做的选择填充了货币数据。每条记录可能有不同的值，有些可能没有值。我需要将 3 个 txtboxes 添加在一起，但该值始终显示为 Null。

me.txt1 = Nz(me.txt2.value + me.txt3.value + me.txt3.value)
txt2 = 23.04
txt3 = Null(empty)
txt4 = 15.64

txt1 的值应该是 38.68 而不是它出来的 Null。文本框由从下拉列表的 AfterUpdate 事件调用的子例程填充。

Answer 1

你在哪里使用那个公式？它在VBA中吗？你不需要它。
如果它来自 txt1 的控制源，Me则应替换为Form（或根本不替换）

在 txt1 的 Control Source 属性中，键入= nz(txt2)+nz(txt3)+nz(txt4)
That should be all you need。没有VBA。
如果表单的来源是查询，另一种解决方案是在查询中添加计算字段。
在这两种情况下，您当然不会存储该数据（这将违反第三范式）