访问双击列表打开表单

Question

我在其他人的问题中看到了这个，但解决方案对我不起作用。

我有一个列表框（List0）。我希望能够双击列表框中的项目并打开一个表单（2017返回日志）到单击的特定记录（基于ID）。

我正在使用此代码并且它有效，但由于某种原因它不再有：

Dim strCriteria As String

strCriteria = "[ID] = " & Me.List0.Value

DoCmd.OpenForm "2017 Return Log", , , strCriteria, , acDialog

现在，当我双击列表中的某个项目时，我收到此错误：“查询表达式中的语法错误（缺少运算符）'[ID] ='。

当我单步执行时，Me.List0.Value的计算结果为“null”。

非常感谢任何帮助。

Answer 1

将Nz功能添加到您的代码中。这意味着如果列表框的值为null，那么您的条件字符串将不为空。

strCriteria = "[ID] = " & Nz(Me.List0.Value, 0)

通过此更改，当列表框值为null时，将返回0并且您不会收到错误。您可以在此基础上构建一个消息框，而不是在ID不存在时尝试打开表单。