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

访问 - 如何使用子窗体中填充的所有表创建下拉列表？

1 个答案: