forms - Access - 如何创建一个下拉列表，所有表格都填充在子表单中？

Question

我有一个包含大约 20 个表的访问数据库。我想创建一个表单，其中包含我所有表格的下拉菜单。选择表时，我试图让子表单反映这些表中的信息。

基本上，不必单击并打开每个表，而是在表单中查看它们。这可能吗？

这可能吗？

Answer 1

你可以调用这个子来填充你的下拉菜单：

Private Sub Add_Tables_To_DropdownMenu()
  Dim T As TableDef

  For Each T In CurrentDb.TableDefs
    If (Left(T.Name, 4) <> "USys") And (T.Attributes = 0) Then
        Dropdownmenu0.AddItem T.Name
    End If
  Next
End Sub

然后，您可以在下拉菜单更改时设置事件，并根据所选值更新子表单的 SourceObject：

Private Sub Dropdownmenu0_AfterUpdate()
    Subform1.SourceObject = "Table." & Dropdownmenu0.Value
End Sub