Open access form from spread sheet

[jcaptchaos2]

I posted this in the excel forum and probably should have posted it here,
I have this code that is very close but don't understand why the access database and form open and then close right away, looking for some advice.

Sub OpenAccess()


    Dim LPath As String
    Dim LCategoryID As Long

    'Path to Access database
    LPath = "N:\Fishbowl Databases\Labor Collection Min.accdb"
    
    'Open Access and make visible
    Set oApp = CreateObject("Access.Application")
    oApp.Visible = True
    
    'Open Access database as defined by LPath variable
    oApp.OpenCurrentDatabase LPath
    
    'Open form called CLOSECASTOPFRM
    oApp.DoCmd.OpenForm "CLOSECASTOPFRM"
    oApp.Visible = True


End Sub

 

[jcaptchaos2]

Ok I got this to work but it is not opening the form, it does open the database and the main form that opens when the database is manually opened. I would like it to open the "op10edit" form.

Sub OpenAccess2()
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 "N:\Fishbowl Databases\Labor Collection Min.accdb"
ac.UserControl = True
ac.App.DoCmd.OpenForm "op10edit"
End If
AppActivate "Microsoft Access"
End Sub

 

[boblarson]

First off

Change this line:
ac.App.DoCmd.OpenForm "op10edit"

to this

ac.DoCmd.OpenForm "op10edit"

Second, put the

ac.UserControl = True

line AFTER the last line where you want to control because that particular line severs the link between the variable and the object. So, after that line you will want to use

Set ac = Nothing

 

[jcaptchaos2]

Perfect, Thanks again Bob