excel vba to open access form...form won't stay visible

[ExcelTard]

I got this one from 101 ready to use macros. When I run it, it shows an instantaneous flash of the form, but then the form shuts down. Any suggestions?

Sub Macro95()


'Step 1: Declare your variables
Dim AC As Access.Application

'Step 2: Start Access and open the target database
Set AC = New Access.Application
AC.OpenCurrentDatabase _
("C:\Temp\Database171.accdb")

'Step 3: Open the target form and make Access visible
With AC
.DoCmd.OpenForm "DatabaseForm", acNormal
.Visible = True
End With

End Sub

 

[ExcelTard]

Disregard. I found a different way of doing it in another thread.

 

[Mjoza]

Disregard. I found a different way of doing it in another thread.

Can you please share how you fixed this problem. Thanks

 

[ExcelTard]

Can you please share how you fixed this problem. Thanks

Sure...I copied and pasted the code in the last reply in this thread...

http://www.mrexcel.com/forum/microsoft-access/673585-open-access-form-excel.html

This was the code I used from the thread, except I deleted the two lines with "shop floor data entry" bc I don't know what I'm doing and it didn't work with them in

[COLOR=#333333]Sub OpenAccess2()Dim ac As Object[/COLOR]
Dim str As StringOn Error Resume NextSet ac = GetObject(, "[COLOR=#417394]Access[/COLOR].Application")If ac Is Nothing ThenSet ac = GetObject("", "[COLOR=#417394]Access[/COLOR].Application")ac.OpenCurrentDatabase "N:\Fishbowl Databases\Labor Collection Min.accdb"'str = ac.CurrentDb.Properties("Shop Floor Data Entry")ac.DoCmd.Close 2, "Shop Floor Data Entry" 'or strac.DoCmd.OpenForm "Earned Hours_Cast"ac.UserControl = TrueSet ac = NothingEnd IfAppActivate "Microsoft [COLOR=#417394]Access[/COLOR]" </pre>[COLOR=#333333]End Sub[/COLOR]

 

[ExcelTard]

Sorry for how the code turned out...it displays properly in the thread I linked to though.