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