A
ali
I want to open a new instance of Access 2007 application from current Access
application, But the window returns to current. I want to keep the new
application on top view without closing current Access. Can anybody out there
hlep me?
Dim strDB As String
strDB = "C:\users\Fabrication.accdb"
Set MyAccess = CreateObject("access.application")
MyAccess.Echo False
On Error Resume Next
MyAccess.CloseCurrentDatabase
MyAccess.OpenCurrentDatabase strDB
MyAccess.DoCmd.OpenForm "Projects"
MyAccess.Application.Visible = True
MyAccess.DoCmd.RunCommand acCmdAppMaximize
MyAccess.Echo True
MyAccess = Nothing
application, But the window returns to current. I want to keep the new
application on top view without closing current Access. Can anybody out there
hlep me?
Dim strDB As String
strDB = "C:\users\Fabrication.accdb"
Set MyAccess = CreateObject("access.application")
MyAccess.Echo False
On Error Resume Next
MyAccess.CloseCurrentDatabase
MyAccess.OpenCurrentDatabase strDB
MyAccess.DoCmd.OpenForm "Projects"
MyAccess.Application.Visible = True
MyAccess.DoCmd.RunCommand acCmdAppMaximize
MyAccess.Echo True
MyAccess = Nothing