ms访问组合框刷新

Question

我有3张桌子

章节（身份证，姓名） 标题（id，name，parentid） 副标题（id，name，parentid）

父母是彼此之上的桌子的ids。

我有一个包含3个组合框的表单

章 标题 副标题。

我有章节和标题的onchange的vba。这段代码工作正常：

Private Sub Chapter_AfterUpdate()
Me.Heading.RowSource = "SELECT [Headings].[ID], [Headings].[Headings], [Headings].[Parent] FROM Headings WHERE [Headings].[Parent] =" & Me.Chapter & " ORDER BY [Headings];"
Me.Heading.Requery
End Sub


Private Sub Heading_AfterUpdate()
Me.Subheading.RowSource = "SELECT [Subheadings].[ID], [Subheadings].[SubHeading], [Subheadings].[Parent] FROM Subheadings WHERE [Subheadings].[Parent] =" & Me.Heading.Value & " ORDER BY [SubHeading];"
Me.Subheading.Requery
End Sub

以上工作正常，表单将信息正确保存到新表中。

但是...

当我打开表单时（关闭访问后），章节显示填充到组合中，但标题和子标题不会。尽管如此，如果我点击vba运行的章节，我保存记录的表格中当前保存的记录会显示正确的子值。副标题相同。

我没有收到任何数据丢失，但我无法让组合框显示已保存的数据，以便在新鲜时打开。

即使是新表格之后。

任何帮助都会非常感谢。

Answer 1

将标题和子标题的更新代码放在表单的Current事件以及After Update事件中。