Solved Extract Forms/Reports/Scripts/Modules/Queries from external database

[Alt]

Hi guys,

I'm able to import tables from an external file (each table renamed) but having en error message (see mod_ExportDocs). Can you help me to figure out plz?

Merry Christmas to everyone!

 

[CJ_London]

What is the error message?

 

[Alt]

What is the error message?

Object required

 

[Alt]

On what line of code? Did you include the database you are linking to?
When you want us to debug something, you need to give us all the pieces and tell us where the error is happening.

Everything is well attached... You have the error message when you press "Export Docs" button

 

[Alt]

1. This is the message I get. I'm assuming it thinks some db named TestDB.accdb should be in the folder but of course, it wasn't included in the download so it isn't there. Am I supposed to create an empty database with this name?
View attachment 105432

2. I created the db but of course that wasn't the problem at all. It needs to be a db with objects in it.

3. VOILA! Turns out the problem is caused by sloppy coding. EVERY module should have as its first two lines:

Option Compare Database
Option Explicit

So, start by changing the Access option to require variable declaration. Then fix the compile errors to fix your problem.

you can read any external db but I've revised the zip files to include this testDB.accdb.

 

[Alt]

That's fine but we don't know you your app works so you might have mentioned that. Did you fix the Option Explicit since that was what hid the problem from you?

If you want to see my error message, press "Go" button (this will fill the form) then "Export Docs". You cna chech "mod_ExportDocs" (into VB editor)

 

[Alt]

Did you understand my instruction on HOW TO FIX THE ERROR? You have dim'd the database name as dbs but most of the references are to db. If you had Option Explicit turned on, you would see this because of the compile errors it causes!!

yes I put those two lines in every module and I no longer have an error message (Thanks... zip file is updated)
But I'm still unable to create txt files when I hit Export Docs" (mod_ExportDocs).

 

[ebs17]

Application.SaveAsText acForm, doc.Name, sExtDbPath & Format(Date, "yyyymmdd") & doc.Name & ".txt"

SaveAsText creates text files. These are to be stored in a folder in the file system, not in an access file. Consequently, one would not use a file selection dialog here, but a directory selection dialog to generate valid paths for the export.

 

[arnelgp]

here test this one:

the reason that your code does not work is that you are using Application.SaveAsText.
the "Application" there pertains to the Currentdb's Application and not the External db's Application.
remember the Forms (or objects) you are trying to Export is in another db not in the Currentdb.

you need to Open an Access.Application, and open the external db using the New access instance.

 

[Alt]

here test this one:

the reason that your code does not work is that you are using Application.SaveAsText.
the "Application" there pertains to the Currentdb's Application and not the External db's Application.
remember the Forms (or objects) you are trying to Export is in another db not in the Currentdb.

you need to Open an Access.Application, and open the external db using the New access instance.

working fine... Thanks a lot.

 

[Alt]

If it is working, I guess you fixed the compile errors.

arnelgp provide a solution (no mention of compile errors...)

 

[Gasman]

arnelgp provide a solution (no mention of compile errors...)

Really?
Here are two

Private Sub Commande19_Click()
    Call ImportAllFrms(txtFilename)
End Sub

Private Sub Commande20_Click()
    Call ImportAllQrys(txtFilename)
End Sub

Functions do not exist. However there only appears to be one button now to import everything?
Any that did exist, arnel would have likely corrected anyway.

 

[Alt]

Really?
Here are two

Private Sub Commande19_Click()
    Call ImportAllFrms(txtFilename)
End Sub

Private Sub Commande20_Click()
    Call ImportAllQrys(txtFilename)
End Sub

Functions do not exist. However there only appears to be one button now to import everything?
Any that did exist, arnel would have likely corrected anyway.

some modules was removed because I don't have any issue with.

 

[Gasman]

some modules was removed because I don't have any issue with.

Perhaps, but it still does let it compile?
Unless it does, how do you know what on earth you have? just in syntax alone?

 

[arnelgp]

Your original error was caused because you defined an object using one name and referenced it with another.

with due respect to the OP, that is not the "original" error.
even if you resolved the missing object, or just delete every code in the form and just
leave the code on the "Export Docs" button, you will still get the "original error" which is
(by debugging):

that is Exporting an Object (on this case the Forms), that are Not in the Currentdb (see post #14).

 

[arnelgp]

only that you couldn't get to the second error without fixing the compile error

if you will have time to test the db, before justifying, you will see that it never complains about any undefined sub/function.
when you press the "Export docs" button it goes directly to "ExportDocs" subs.
and will error on the first form name.