Kamis, 28 Januari 2016

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 
(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)

.

__,_._,___

Tidak ada komentar:

Poskan Komentar