Access Invisible

[asnyder]

I am using the following code to open a password protected database. I know the code is working, because if I misspell the database or form name I get an error that the database or form is missing or doesn't exist, but I can't see the access window or the form. Please help.

Option Compare Database

Dim appAccess As Access.Application
Sub OpenTest()
Const strConPathToDB = "P:\test.mdb"
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "P:\test.mdb", , "test"
appAccess.DoCmd.OpenForm "Main Menu"

End Sub

 

[ghudson]

You have the wrong arguments for this line...

appAccess.OpenCurrentDatabase "P:\test.mdb", , "test"

That line only allows for a boolean like...

appAccess.OpenCurrentDatabase "P:\test.mdb",False

to open the db as exclusive or not.

 

[asnyder]

You have the wrong arguments for this line...

appAccess.OpenCurrentDatabase "P:\test.mdb", , "test"

That line only allows for a boolean like...

appAccess.OpenCurrentDatabase "P:\test.mdb",False

to open the db as exclusive or not.

"test" is the password and is an optional string for the command.

 

[MrTibbs]

grappling with Visible and Enabled

Look for visible and enabled attributes on the form or for some ability to refresh the display.

 

[MarkK]

Dim appAccess As Access.Application

Sub OpenTest()
Const myPath = "Y:\nwData.mdb"
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase myPath
appAccess.Visible = True
End Sub

 

[asnyder]

Thanks

Dim appAccess As Access.Application

Sub OpenTest()
Const myPath = "Y:\nwData.mdb"
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase myPath
appAccess.Visible = True
End Sub

Thanks, that worked.