disable shift key sto start up tis access

[adi32]

me to parakato mporei na ginei diasable h enable to shift otan arxizei mia vasi access <BR>This Code disables the shift key<BR>'**********************************<BR>Public Sub SetAllowByPassKeyProperty()<BR>Dim db As Database<BR>Dim prp As Property<BR>Set db = CurrentDb<BR>Set prp = db.CreateProperty("AllowByPassKey", dbBoolean, False)<BR>db.Properties.Append prp<BR>End Sub<BR>'**********************************<P>This Code enables the shift key<BR>'**********************************<BR>Public Sub RemoveAllowByPassKey()<BR>Dim db As Database<BR>Set db = CurrentDb<BR>db.Properties.Delete "AllowByPassKey"<BR>db.Properties.Refresh<BR>End Sub<BR>'**********************************<BR>pos akrivos ginetai na leitoyrgisei ayto<BR>se access 2000