Dim fs: Set fs = CreateObject("Scripting.FileSystemObject") Dim tso: Set tso = fs.OpenTextFile("C:\xxx\AllFormsControls.txt", 2, True) Dim ct As DAO.Container For Each ct In CurrentDb.Containers If ct.Name = "Forms" Then Dim doc As DAO.Doc…