[MS_AccessPros] hide startupwindow in mde no longer working

 

I created a new database and copied all my tables, forms,code etc. from my old database. When I now compile the new db and create the mde file. The db window is no longer hidden when starting the mde application. The code is exactly the same as in the old db. This is part what I have in the autoexec/startup:

Dim dbs As Object

Set dbs = CurrentDb

If IsItMDE(dbs) = True Then 

    a = SetBypassProperty()

End If

Function IsItMDE(dbs As Object) As Boolean 'used for stopping shift on startup

    Dim strMDE As String

    On Error Resume Next

    strMDE = dbs.Properties("MDE")

    If Err = 0 And strMDE = "T" Then

        ' This is an MDE database.

        IsItMDE = True

    Else

        IsItMDE = False

    End If

End Function

 Function SetBypassProperty() 'to not allow shift key on start up

Const DB_Boolean As Long = 1

    ChangeProperty "AllowBypassKey", DB_Boolean, False

End Function

 

I am using Access 2003.

What am I doing wrong?

Sarah

__._,_.___

---

Posted by: sarahk@schemesoftware.com

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (1)

Visit Your Group

• New Members 4

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___