检索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