Access中的OpenArgs问题

Question

我有这样的代码：

Dim strResponses As String
strResponses = Forms!frmResponses.QstnID.OpenArgs
If Len(strResponses) > 0 Then
     Me![QstnID].DefaultValue = Me.OpenArgs
  End If

当我运行它时，它会给出错误438.有人可以帮助我知道错误的位置吗？

Answer 1

当然应该是：

 strResponses = Forms!frmResponses.OpenArgs

或者

 strResponses = Me.OpenArgs

只有表单和更新版本的报表具有OpenArgs属性，因此，我想，错误“对象不支持此属性或方法”。

Answer 2

错误438是否在线上发生：

Me![QstnID].DefaultValue = Me.OpenArgs

如果作为测试，您尝试将Me![QstnID].DefaultValue设置为其他内容会怎样？ e.g。

Me![QstnID].DefaultValue=42

那么问题肯定与OpenArgs有关吗？

Answer 3

要知道您的错误在哪一行，您可以执行以下操作

1. 创建一个myError labal
2. 添加'on error goto myError'子句
3. 为您的代码行编号
4. 使用'erl'值显示错误的行号

您还可以使用MZ-Tools for VBA插件，只需点击几下即可正确参数化。您还可以查看更完整的答案：ms-access-vba-and-error-handling