ADP Disable Shift Problem 1

[GooGoocluster]

Refered from this thread: thread705-403154

My CODE:

Function DisableShiftKey()
 
   Dim dbs As Object
   Dim prp As Object
   Const PROPERTY_NOT_FOUND As Integer = 3270
   On Error GoTo ErrorHandler
   
   Set dbs = Application.CurrentDb
 

   ' Try to set the property. If it fails, the property does not exist.

   CurrentProject.Properties.Add "AllowByPassKey", False



ExitLine:
   dbs.Close
   Set dbs = Nothing
   Set prp = Nothing
   Exit Function

ErrorHandler:
   MsgBox Err.Number & " " & Err.Description
   
   'If Err.Number = PROPERTY_NOT_FOUND Then
      ' Create the new property.
  '    CurrentProject.Properties.Add "AllowBypassKey", False
  '    Resume Next
  ' Else
   '   Resume ExitLine
  ' End If

End Function

I Know the error handler is the same as above, I had to take it out to see what error I was getting.

Its error Run time 91: Object Varriable or With block not set.

I was able to get the help files version to work with a MDB. but it wont work with my .adp

My version is 2002 SP3

 

[PHV]

Have a look here:

http://support.microsoft.com/default.aspx?scid=kb;en-us;826765

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[GooGoocluster]

Thanks just had to remove all the other garbage and it worked fine.


Anyone looking to Enable the shift key again here is the code

CurrentProject.Properties.Add "AllowByPassKey", True