Is it possible to disable delete function?

E

essseeproductions

I have a database and was wondering if it was possible to disable the
user from deleting anything at all or any objects whatsoever from the
database.

Maybe if the database requires a password to delete objects, or
deleting objects was just disabled altogether would be of great help.

If this is not possible then maybe a way to disable the database
window. I have it disabled on startup options but this can easily be
bypassed by just opening it again.

Many thanks to all help in advance.
 
M

Matt

I have a database and was wondering if it was possible to disable the
user from deleting anything at all or any objects whatsoever from the
database.

Maybe if the database requires a password to delete objects, or
deleting objects was just disabled altogether would be of great help.

If this is not possible then maybe a way to disable the database
window. I have it disabled on startup options but this can easily be
bypassed by just opening it again.

Many thanks to all help in advance.
Click to expand...


I asked a few months ago how to password protect the database window.
It is actually pretty easy.
Here is the thread for that question:

http://groups.google.com/group/micr...fcbe6ef048?lnk=st&q=&rnum=12#4a155afcbe6ef048
 
A

Arvin Meyer [MVP]

You can hide the database window using Tools >>> Startup and you can prevent
savy users from using the Shift key and F11 with a bit of code:

Public Function LockDB(blnLock As Boolean)
'=============================================
' Name: LockDB
' Purpose: Kill the Shift key
'
' Inputs: blnLock As Boolean
'
' Author: Arvin Meyer
' Date: April 19, 1999
' Comment: If blnLock = 0, the bypass key is activated,
' If blnLock = -1, the bypass key is deactivated
' Keep a copy of the database without this property
'=============================================
On Error GoTo Err_LockDB
Dim prp As Property

Const PropertyNotFound = 3270

CurrentDb.Properties("AllowBypassKey") = blnLock

Exit_LockDB:
Exit Function


Err_LockDB:
'Create the property if not found.
If Err = 3270 Then
Set prp = CurrentDb.CreateProperty("AllowBypassKey", dbBoolean,
blnLock)
CurrentDb.Properties.Append prp
Resume Next
Else
Resume Exit_LockDB
End If

End Function
 
Top