访问表单字段显示错误

Question

我在表单上有一个字段，它对原始数据表中的总金额进行求和。

如果未加载表，该字段将显示错误，如下所示：

如果字段中的公式所引用的表尚未加载（而不是上面的错误参考），我想让字段显示为零。

所以不要将该公式用于该单元格 = DSum（＆＃34; [金额]＆＃34;，＆＃34; [原始数据表]＆＃34;）

我正在尝试使用以下内容： = IIf（IsError（DSum（＆＃34; [Amount]＆＃34;，＆＃34; [Raw Data Table]＆＃34;）），0，DSum（＆＃34; [Amount]＆＃34; ，＆＃34; [原始数据表]＆＃34;））

但是，如果未加载表，这仍会在字段中显示错误。

你能帮忙吗？

由于

Answer 1

您可能必须使用这样的辅助函数：

Public Function NzDSum(ByVal Field As String, ByVal Table As String) As Double

    Dim Result  As Double

    On Error Resume Next
    Result = DSum(Field, Table)

    NzDSum = Result

End Function

然后这个表达式：

=NzDSum("[Amount]","[Raw Data Table]")