Good Day All,
I am toying with a remote database that I point at my primary database, choose what objects I want to save as text files, then push GO. These I will compare using a 3rd party utility.
Using the SaveAsText method, what is supposed to happen is I open the Primary database in code and create myself a nice directory full of text files.
Once all the files are created, I release the Primary database and all is well.
The problem is, Application.SaveAsText doesn't seem to want to play that way.
Is the issue that because it is an Application function, I actually have to be in the application?
Any input would be great. Here's a snippet.
Set DBApp = DBEngine.OpenDatabase(sPath, False, False, "MS Access")
Set cnt = DBApp.Containers("Forms")
Debug.Print "Documenting Forms:"
For Each doc In cnt.Documents
Debug.Print " " & doc.Name
Application.SaveAsText acForm, doc.Name, fPath & doc.Name & ".txt"
It fails on the Application.SaveText line telling me that I've cancelled the previous operation.