Re: [MS_AccessPros] Re: hide startupwindow in mde no longer working IGNORE

 

Sarah-

Note that setting AllowByPassKey to false takes effect only the *next* time the database is opened.

John Viescas, Author

Microsoft Access 2010 Inside Out

Microsoft Access 2007 Inside Out

Microsoft Access 2003 Inside Out

Building Microsoft Access Applications 

SQL Queries for Mere Mortals 

http://www.viescas.com/ 

(Paris, France)

On Jan 28, 2016, at 12:17 AM, sarahk@schemesoftware.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:

found it in Tools, Startup.

Sarah

---In MS_Access_Professionals@yahoogroups.com, <sarahk@...> wrote :

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: John Viescas <johnv@msn.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (4)

Visit Your Group

• New Members 3

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___