访问“对象未定义”错误中的表单

Question

我在 Word 和 Project 中编写了用户表单没有问题，但在 MS Access 中加载 Form1 时遇到问题。它给了我这个错误：

对象变量或未设置块

当我使用DoCmd.OpenForm "Form1", acNormal, , , , acDialog 时，表单确实会启动。

我现在了解到Load Form1 在 MS Access 中不起作用。所以我必须使用DoCmd.OpenForm...

但我在访问表单中输入的数据时仍然遇到问题。

我的表单有两个输入字段：frm_Company and frm_Date，下面是代码。

Dim str_Company as String 'variable to capture result for form input
Dim date_Forecast as String 'variable to capture result of form input


DoCmd.OpenForm "Form1", acNormal, , , , acDialog

str_Company = Forms!Form1!frm_Company
date_Forecast = Forms!Form1!frm_Date

当代码执行时 Form1 启动，用户输入两个字段的数据并按下“关闭表单”按钮。当 VBA 尝试执行最后两行时，出现错误：

Microsoft 找不到引用的表单 Form1

感谢您的帮助。

Answer 1

不必使用表单对象变量来打开表单。只需引用表单名称 - 就像成功的第三次尝试一样。然后如果调用表单需要引用它打开的表单，使用Forms集合。

Forms!Form1.controlname

或

Forms!Form1!fieldname

Me 限定符引用对象代码落后。

但是，acDialog 会暂停代码执行，直到调用的表单关闭。因此，当第一个表单代码恢复时，第二个表单已关闭且无法找到。第二种形式后面的代码应该首先引用以将值推回第一种形式。替代方法是设置全局变量或 TempVars，然后可以由任何过程引用。