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