检索Access数据库中的表单列表

Question

如何检索MS-Access数据库中所有表单的列表？

要检索所有表的列表，我使用它：

For Each TDef In CurrentDb.TableDefs
    If Left(TDef.Name, 4) <> "MSys" And Left(TDef.Name, 7) <> "~TMPCLP" Then
        Debug.Print TDef.Name
    End If
Next

另见this issue。

但我不能为表格做这件事。

Answer 1

您可以使用AllForms获取名称列表。这些不是形式的实例，只是名称。

Sub ListForms()
Dim frm As Object
Dim LiveForm As Form

    For Each frm In CurrentProject.AllForms
        Debug.Print frm.Name
        ''To use the form, uncomment
        ''DoCmd.OpenForm frm.Name, acViewDesign
        ''Set LiveForm = Forms(frm.Name)
        ''Do not forget to close when you are done
        ''DoCmd.Close acForm, frm.Name
    Next
End Sub