running an Access database from another Access database

[ease20022002]

Hi,

I am currently running a database from another database. Everything works fine, but I am trying to put in a precautionary step.

I have a form from the 1st database that imports a .csv file into another database. The only "problem" I am having with my precautionary step is that when I purposely corrupt the .csv file before importing to check if some type of error message would be genereated importing the macro with specs, etc., I do not see an error box appear stating there were errors importing my text file and have me press OK to see the error table, but unfortuantely no errors are produced. How do you make sure with some return code that the error message will appear when I am doing all this from another database.

I have already tried DoCmd.SetWarnings(WarningsOn).

Here is the code I have that runs the macro that does a simple TransferText method in the other database:

I set appAccess as an Access.Application. If there there is something outside this code I must do, please let me know.

code:
--------------------------------------------------------------------------------

With appAccess
.OpenCurrentDatabase strPath & strFile
.DoCmd.RunMacro mcrName2 ' macro is simple transfertext with with warnings on
.CloseCurrentDatabase
.Quit

End With
--------------------------------------------------------------------------------

Again, I have tried entering .DoCmd.SetWarnings(WarningsOn), it doesn't work. I have also tried making the application visible...unfrotunately..nothing...

Any help would be greatly appreciated

 

[gillrowley]

Hi - I'm wondering if instead of calling a macro you can call a sub from your second database instead. Create a new module and add something like this to it:

Public Sub MoveText()
On Error Goto WriteError
DoCmd.TransferText ...... 'transfertext stuff goes here

RightHere:
Exit Sub

WriteError:
MsgBox "Import Error"
DoCmd.OpenTable "tblName"
Resume RightHere
End Sub

Then your first bit of code would be:

With appAccess
.OpenCurrentDatabase strPath & strFile
Call MoveText
.CloseCurrentDatabase
.Quit
End With

Not sure if that will work, but it seems you might trap any import errors that way.

 

[ease20022002]

Thanks for the try gillrowley, it doesn't recognize the call in the current instance of access. I tried to store it as a function and DoCmd.RunFunction etc... and it wouldn't take it...

Any ideas???