where to write shiftkey disable code

[neelesh kumar]

sir,
now when i open the database tools menu is not coming.i want that only.
but if i open my database by pressing shift button tools menu is coming.i have a code to disable the shift key
where i have to write the code.
where is the database property allowbypassshiftkey.i didnt find that
where i have to write the shiftkey disable code

[ADezii]

sir,
now when i open the database tools menu is not coming.i want that only.
but if i open my database by pressing shift button tools menu is coming.i have a code to disable the shift key
where i have to write the code.
where is the database property allowbypassshiftkey.i didnt find that
where i have to write the shiftkey disable code

I use the code frequently but I am at work and do not have it handy. I'll post it for you early this evening unless someone beats me to the punch.

[ADezii]

sir,
now when i open the database tools menu is not coming.i want that only.
but if i open my database by pressing shift button tools menu is coming.i have a code to disable the shift key
where i have to write the code.
where is the database property allowbypassshiftkey.i didnt find that
where i have to write the shiftkey disable code

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
   Dim dbs As Object, prp As Variant
   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    ' Property not found.
       Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
       dbs.Properties.Append prp
       Resume Next
   Else
       ' Unknown error.
       ChangeProperty = False
       Resume Change_Bye
   End If
End Function

To call the Function:

Const DB_Boolean As Long = 1
'To allow the SHIFT Key By By-Pass
ChangeProperty "AllowBypassKey", DB_Boolean, True

[neelesh kumar]

sir
i know the code.
but where we have to write that code in modules or where
i am not getting
please help me

[ADezii]

sir
i know the code.
but where we have to write that code in modules or where
i am not getting
please help me

You can place the code in the Open() Event of your Main Form. The next time you Open your Database, the change will have taken effect. Be sure you allow yourself a 'Backdoor' into the Database.

[jamjar]

You can place the code in the Open() Event of your Main Form. The next time you Open your Database, the change will have taken effect. Be sure you allow yourself a 'Backdoor' into the Database.

Thanks - I've been wondering how you do this. Three questions:

1. How does this run if holding the shift key down prevents the main form from opening?
2. How do you set a backdoor?
3. Is there any way to re-establish the full menus once the db is opened?

I guess - depending if the backdoor has to be activated at startup or can be done later - questions 2 and 3 are related.



James

[neelesh kumar]

Sub DisableShiftKey()

Dim db As DAO.Database
Dim prp As DAO.Property

Set db = CurrentDb
db.Properties.Delete "AllowBypassKey"
Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, False, True)
db.Properties.Append prp

db.Properties.Refresh

Set prp = Nothing
Set db = Nothing

End Sub
i wrote this code in the start up form on open event.but it is not working
what to do
please help me.when i convert to mde format tables r opening.iwant tables sholu not open.is there any way.

[ADezii]

Thanks - I've been wondering how you do this. Three questions:

1. How does this run if holding the shift key down prevents the main form from opening?
2. How do you set a backdoor?
3. Is there any way to re-establish the full menus once the db is opened?

I guess - depending if the backdoor has to be activated at startup or can be done later - questions 2 and 3 are related.



James

For some Databases, I'll disable the SHIFT ByPass and also deselect all Options in Tools ==> StartUp among other things. To get back in to the Database, I'll create an AutoKeys Macro with a complex Shortcut Key combination which will execute RunCommand ==> StartUp Properties. I will then select all Options and open the Database again to allow full access.