Access
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…
Dim fs: Set fs = CreateObject("Scripting.FileSystemObject") Dim tso: Set tso = fs.OpenTextFile("C:\xxx\AllReportsControls.txt", 2, True) Dim ct As DAO.Container For Each ct In CurrentDb.Containers If ct.Name = "Reports" Then Dim doc As DAO…
VBScript Option Explicit Const acOutputReport = 3 Const acViewPreview = 2 Const acFormatXLS = "Microsoft Excel (*.xls)" Const acFormatRTF = "Rich Text Format (*.rtf)" Const acFormatSNP = "Snapshot Format (*.snp)" Const acFormatHTML = "HTML…