访问错误2427：您输入的表达式没有值

Question

我有一个表单，正在计算子表单中的记录数。有时子表单是空的，我想检查它，但它会抛出

Run-time error '2427': You entered an expression that has no value

很明显为什么会发生这种错误，但不太明显的是如何解决它。这是导致错误的代码。 MainTableComboBox.Value包含RecordID。

DCount("*", "[SubFormTable]", "[SubFormTable].[RecordID] = " & MainTableTextBox.Value)

我尝试过以下但仍然出错。

• 使用If(IsError(Dcount...)) then (do stuff)
• Checking that the number of records is larger than zero
• Nested Nothing, IfNull, and IfEmpty statements
• Using an error handler

还有哪些方法可以解决此错误？

Answer 1

我认为您可以将记录集设置为等于子表单数据源，并使用IF rs.EOF = True Then查看在运行dcount函数之前是否有要显示的记录。有关详细信息，请参阅this问题。