---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()
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
IsItMDE = False
Function SetBypassProperty() 'to not allow shift key on start up
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
I am using Access 2003.
What am I doing wrong?
Posted by: John Viescas <firstname.lastname@example.org>
|Reply via web post||•||Reply to sender||•||Reply to group||•||Start a New Topic||•||Messages in this topic (4)|