You can do it but it gets complicated (you'll have to
some research) and be prepared to implement serious error
trapping...
First, you have to disable "AllowBypassKey" property,
which can only be done in code. This is the shift key
which lets you bypass the Startup settings. Create a
macro which runs the code sample. It takes effect the
next time you open your database.
Second, set your desired startup settings
(Tools|Startup), such as "Display Database Window", your
startup form which will be the main interface to your
database.
Third, disable any unwanted menu items, etc.
Fourth, remember to make a backup copy of your original
mdb file before "playing" with the "AllowBypassKey"
property. You might inadvertantly lock yourself out of
your own database!
Fifth, make your mde file with the (encrypted data
option).
Change property routines (code might be jumbled by
newgroup editor/viewer: clean it up before testing):
Function SetBypassProperty(PropValue As Boolean)
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, PropValue
End Function
Function ChangeProperty(strPropName As String,
varPropType As Variant, varPropValue As Variant) As
Integer
On Error GoTo ErrorHandler
Const conPropNotFoundError = 3270
Dim dbs As Object, prp As Variant
Set dbs = CurrentDb
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
ExitHandler:
Exit Function
ErrorHandler:
If Err = conPropNotFoundError Then '
Property not found.
Set prp = dbs.CreateProperty(strPropName,
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
ChangeProperty = False ' Unknown
error.
Resume ExitHandler
End If
End Function
-----Original Message-----
I have created a number of systems using MS Access which I sell to
clients. However, I haven't found a way of compiling these programs.
I have tried creating an MDE file but it still enables the client to
view the tables, forms, code etc. Is there a way where I can create an
executable and stop the user from viwing the forms, tables, code, etc ?
------------------------------------------------
