为什么我在这个 MS Access 代码中得到运行时错误 91？

Question

所以，我有一个 MS Access 数据库应用程序。在这个应用程序中是一个主窗体，其中包含许多子窗体。特别是一个表单有一个下拉框，我用数据库查询中的日期填充它。选择其中一个日期时，我运行一个子例程，该子例程应该使用历史信息更新子表单上的记录集。下面是一些经过编辑的代码（只是从查询中删除了大量字段）

Private Sub pickdate_AfterUpdate()
'''''''''''''''''''''''''''''''''''''''''
'   Add review history by selected date
'''''''''''''''''''''''''''''''''''''''''
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT model, entered_date FROM history WHERE entered_date=#" & Me.pickdate.value & "# ORDER BY model DESC", dbOpenDynaset, dbSeeChanges)

If rs.BOF = False Then rs.MoveFirst
While rs.EOF = False

    Forms!main!histories.Form.Recordset.AddNew
    Forms!main!histories.Form.Recordset![model] = rs![model]
    Forms!main!histories.Form.Recordset![entered_date] = rs![entered_date]
    Forms!main!histories.Form.Recordset.Update

    rs.MoveNext
Wend
End Sub

我在Forms!main!histories.Form.Recordset.AddNew 行收到错误。

我已经尝试过该行的以下版本：

Forms!main!histories.Form.Recordset.AddNew
main!histories.Form.Recordset.AddNew
histories.Form.Recordset.AddNew
Me.Form.Recordset.AddNew
Me.Recordset.AddNew
Me.AddNew
Me.main!histories.Form.Recordset.AddNew
Me!histories.Form.Recordset.Addnew
Me!main!histories.Form.Recordset.AddNew

我实在是束手无策，试图找出问题出在哪里。 该子表单具有存储信息的所有适当框。我给了他们标签以匹配他们将进入他们的数据库列。我尝试将它们的控制源设置为数据库列名，而不是将它们设置为任何内容。我查找了一百种不同的“解决方案”，似乎没有一个适合问题或工作。

我觉得我忽略了一些非常容易的事情。

Answer 1

我认为你的名字有问题。检查所有这些。不要忘记子表单由两部分组成，子表单控件和包含的表单。这些通常具有相同的名称，但并非总是如此。在您使用的代码中，您必须具有子窗体控件的名称，而不是包含的窗体。如果手动向子表单输入数据无法正常工作，则说明您的控件未绑定。

这适用于我的示例表。

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT atext from table1 WHERE akey=21")

If rs.BOF = False Then rs.MoveFirst
While Not rs.EOF '= False
    Me.Table1_subform1.Form.Recordset.AddNew
    Me.Table1_subform1.Form.Recordset!AText = rs!AText
    Me.Table1_subform1.Form.Recordset.Update

    rs.MoveNext
Wend

要运行查询，您可以说：

sSQL="INSERT INTO NameOfTable (model, entered_date) " _
& "SELECT model, entered_date FROM history WHERE entered_date=#" _
& Me.pickdate.value & "#"

CurrentDB.execute, dbfailOnError

您可以在查询设计窗口中检查 sql 的工作情况。