How to lock my MS Access from Shift – Enter

Asked By 0 points N/A Posted on -
qa-featured

I created a simple program from MS Access 2003.

I linked all necessary tables from our database to our Existing ERP system. The database is open to anyone who knows how to use shift – enter which can be used to open tables queries on a design mode and override the startup option.

We don't want that to happen. Image below shows that I already deselected any options on a startup.

Am I missing something?

What do I need to do?

SHARE
Answered By 0 points N/A #118678

How to lock my MS Access from Shift – Enter

qa-featured

First of all, you may put a database password to ensure security on unauthorized use of your program.

Second is to solve your problem on disabling the shift key to disallow key passage before the start up properties you need to do the following:

1. Create a module and paste this code:

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer

Dim dbs As Database, prp As Property

Const conPropNotFoundError = 3270

Set dbs = CurrentDb

On Error GoTo Change_Err

dbs.Properties(strPropName) = varPropValue

ChangeProperty = True

Change_Bye:

Exit Function

Change_Err:

 If Err = conPropNotFoundError Then

  Set prp = dbs.CreateProperty(strPropName, _

        varPropType, varPropValue)

  dbs.Properties.Append prp

  Resume Next

 Else

  ChangeProperty = False

  Resume Change_Bye

 End If

End Function

2. Save the module.

3. It is up to you how you will choose to make the function execute. But my advice is to create command buttons for enabling or disabling the function. Make the command buttons not visible to the users but only to you by assigning a password to any textbox you desire to choose to make it visible and invisible.

4. Name the 1st command button "enable" and the 2nd command button "disable".

5. Then write this code for enable on 1st command button:

Private Sub Command1_Click()
 Const DB_Boolean As Long = 1
 ChangeProperty "AllowBypassKey", DB_Boolean, True
End Sub

6. Write this code for disable on 2nd command button:

Private Sub Command2_Click()
 Const DB_Boolean As Long = 1
 ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub

After all these procedures, when you execute the program and click the "disable" command button it will disable the "shift" + "enter" and eventually lead any users to your start up properties. In that case it will not override the start up options anymore. By clicking enable button you can edit again your program by your own choice of updates.

You may opt to do all of these in a separate test program so that when you are ready to write in your operational program, it will be perfectly executed.

I hope this solves your problem.

Login/Register to Answer

Related Questions