found it in Tools, Startup.
---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