How to create Access.Application object?

The application written in VB6 run this code:

Code:

---

Private Sub Image7_Click()
    Dim objaccess As Access.Application
    Set objaccess = CreateObject("Access.Application")
   
    objaccess.OpenCurrentDatabase "MyAccessDB.mdb"
   
    objaccess.DoCmd.RunMacro "SomeMacro"
    objaccess.DoCmd.Maximize
End Sub

---

However the application fails with the error message:

Code:

---

"Run time error '429', ActiveX component can't create object"

---

Is this message related to the library msacc9.olb or some other library?
Do I need to register some library with Windows 7?
Or what should I do?

is microsoft access installed?
i guess it is, else you would have some other error
create object should work without any reference to access, but as you have a reference you could try

Code:

---

set objaccess = new access.application

---

note: the reference must match the version of the installed access, for either method

for further information see
https://docs.microsoft.com/en-us/off...ss.application

Use

Code:

---

Dim objaccess As Object

---

@westconn1 No. Its a virtual machine with Windows 7, 32 bit. I don't have the right to install MS Office since I am not an admin. Its a problem with the licenses. I don't think they will allow me use even VirtualBox and Windows 7. I had my own copy :) :D

Hmm, if I have the name of the DLL or OCX I need to add to the virtual machine... I have MS Office 2000 installed on the host PC.

Which MS Access 2000 OLB, DLL or OCX file should I copy to my virtual machine installation for this VBA code to work?

But i already have msacc9.olb included which should be "Microsoft Access 9.0 Object Library"

Not sure what you are attempting to do here. If you want to work with the data in and mdb then you can do that without Access and without using anything related to the access application object.
If on the other hand you are trying to automate access and use its features then you must have Access installed on the system or in this case the VM. You can't automate something that doesn't exist.

Hi,

I created a Makro to export a Table to a Textfile, this is an old Access 2000 Database
I do however have Access 2010 Installed, so it might not work with you situation
see if it helps

Code:

---


Dim AccessApp As Access.Application



Private Sub Command1_Click()
On Error Resume Next
Set AccessApp = New Access.Application
With AccessApp
    .OpenCurrentDatabase "D:\SE.mdb"
    .RunCommand acCmdWindowHide
    .Application.Visible = False
    .DoCmd.RunMacro "Makro1"
    MsgBox "done !"
.CurrentDb.Close
    .Quit
End With
On Error Resume Next
With AccessApp
    .CurrentDb.Close
    .Quit
End With
End Sub

---

what does the Makro do anyway?

An OLB is just a TLB, and they don't contain any object code. They are basically just precompiled source code for definitions of flat calls, interfaces, and constants. When you use late-binding as somebody is indirectly suggesting above only the flat calls and constant definitions are of much use, and I don't think this one even has any flat call definitions anyway.

Access.Application is an ActiveX EXE, in this case MS Access. So without installing MS Access there is no way you can run it, which is what your code is trying to do.

you could try using visdata that is installed as part of vb6, BUT it is not Access