Rabu, 27 Januari 2016

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

 

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: sarahk@schemesoftware.com
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (2)

.

__,_._,___

Tidak ada komentar:

Posting Komentar