sharkatek
Programmer
- Mar 11, 2005
- 51
Hello,
I have an application in Access 2000 that automates the execution of a Cognos Impromptu query. The version of Impromptu is 7.1
Here is the code to the point where the error occurs:
Dim objImpApp As Object
Dim objImpRep As Object
Dim strReport As String
Dim strCatalog As String
Dim strReportImrName As String
strReport = Me.lstReport.Column(3, 4)
strCatalog = Me.lstReport.Column(5, 4)
strReportImrName = Me.lstReport.Column(8, 4)
Set objImpApp = CreateObject("Impromptu.Application")
The CreateObject command gets this error:
Run-time error '-2147024894 (80070002)':
Automation error
The system cannot find the file specified.
I have read through all existing threads looking for an answer to this but have not found any. I have tried a couple of things already. I did change the code to use "Impromptu.Application" instead of "CognosImpromptu.Application" This made no difference.
Also, I checked the impromptu.ini file and changed the temp file to C:\Temp and this made no difference.
The user who is getting the error has MS Access 2003 loaded on her machine and all references in the Access VB code match mine except for one (it runs on my machine with my ID but I have Access 2000). The only different reference is:
mine (Access 2000) Microsoft Access 9.0 Object Library
hers (Access 2003) Microsoft Access 11.0 Object Library
Can anyone give me any suggestions to help get my code to run?
Thank-you!
Sharkatek
I have an application in Access 2000 that automates the execution of a Cognos Impromptu query. The version of Impromptu is 7.1
Here is the code to the point where the error occurs:
Dim objImpApp As Object
Dim objImpRep As Object
Dim strReport As String
Dim strCatalog As String
Dim strReportImrName As String
strReport = Me.lstReport.Column(3, 4)
strCatalog = Me.lstReport.Column(5, 4)
strReportImrName = Me.lstReport.Column(8, 4)
Set objImpApp = CreateObject("Impromptu.Application")
The CreateObject command gets this error:
Run-time error '-2147024894 (80070002)':
Automation error
The system cannot find the file specified.
I have read through all existing threads looking for an answer to this but have not found any. I have tried a couple of things already. I did change the code to use "Impromptu.Application" instead of "CognosImpromptu.Application" This made no difference.
Also, I checked the impromptu.ini file and changed the temp file to C:\Temp and this made no difference.
The user who is getting the error has MS Access 2003 loaded on her machine and all references in the Access VB code match mine except for one (it runs on my machine with my ID but I have Access 2000). The only different reference is:
mine (Access 2000) Microsoft Access 9.0 Object Library
hers (Access 2003) Microsoft Access 11.0 Object Library
Can anyone give me any suggestions to help get my code to run?
Thank-you!
Sharkatek