This code has worked on two different clients' ACCPAC systems (with appropriate db/user/pw changes).
Dim accSession As New AccpacCOMAPI.AccpacSession
On Error GoTo ACCPACErrorHandler
accSession.Init "", "AS", "AS1000", "53A"
accSession.EnforceAppVersion = False
accSession.Open "ADMIN", "password", "ACE08D", Date, 0, ""
On the third system for another client, the Open gets:
Run time error '-2147467259 (80004005)'
The two working systems use SQL Server, the third uses Pervasive. The full ACCPAC front end is installed and I've triple checked the userid/password. The VBA project has refs to ACCPAC COM API and ACCPAC CDO Type Library.
The IAP licenses say Max Users: 1 Current Users: 0
What else can I check?
Dim accSession As New AccpacCOMAPI.AccpacSession
On Error GoTo ACCPACErrorHandler
accSession.Init "", "AS", "AS1000", "53A"
accSession.EnforceAppVersion = False
accSession.Open "ADMIN", "password", "ACE08D", Date, 0, ""
On the third system for another client, the Open gets:
Run time error '-2147467259 (80004005)'
The two working systems use SQL Server, the third uses Pervasive. The full ACCPAC front end is installed and I've triple checked the userid/password. The VBA project has refs to ACCPAC COM API and ACCPAC CDO Type Library.
The IAP licenses say Max Users: 1 Current Users: 0
What else can I check?