Hi ?

Try this to open C:\OrderDatabase.mdb

Sub test()
Dim ac As Object
On Error Resume Next
Set ac = GetObject(, "Access.Application")
If ac Is Nothing Then
Set ac = GetObject("", "Access.Application")
ac.OpenCurrentDatabase "C:\OrderDatabase.mdb"
ac.UserControl = True
End If
AppActivate "Microsoft Access"
End Sub

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"יריב החביב" wrote in message ...
Hello,

What is the code (if possible) to open access application from excel ?

thank you


--
תודה רבה