AllowBypassKey

[scoobey]

Can any one helpme here? I'mquite new toVBA, but i'm trying to prevent users from bypassing the autoexec macro by pressing the shift key. I have looked at help files and read a few solutions on the threads, but I keep getting error messages. I'm not sure how to run the code either. When I do, I keep getting a 'user defined type not defined' error message, which highlights 'Dim dbs As Database' inmy code. I'm really pulling my hair out onthis one. Any help would be grately appreaciated, it's more than likely tobe something i'm doing/not doing?

 

[AshleyRickards]

This happens all the time .. in your VB window go to TOOLS REFERENCES and make sure MS DAO 3.6 Library is installed. Ashley L Rickards
SQL DBA

 

[Alcar]

Public Function lockDB()

On Error GoTo HandleErr
vKey = InputBox("Enter value to set key", "Enter Code&quot
If Val(vKey) = 1234 Then
SetBypassKey True
Else
SetBypassKey False
End If
lockDB = True
ExitHere:
Exit Function
' Error handling block added by Error Handler Add-In. DO NOT EDIT this block of code.

' Automatic error handler last updated at 12-20-2000 14:53:36 'ErrorHandler:$$D=12-20-2000 'ErrorHandler:$$T=14:53:36

HandleErr:
Select Case Err.Number
Case Else
MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "Utility.lockDB" 'ErrorHandler:$$N=Utility.lockDB

End Select

' End Error handling block.
End Function

Sub SetBypassKey(ByVal vKey As Boolean)
Dim cp As CurrentProject
On Error GoTo HandleErr
Set cp = CurrentProject

cp.Properties("AllowBypassKey&quot = vKey

ExitHere:
Exit Sub

' Error handling block added by Error Handler Add-In. DO NOT EDIT this block of code.

' Automatic error handler last updated at 12-20-2000 14:53:49 'ErrorHandler:$$D=12-20-2000 'ErrorHandler:$$T=14:53:49

HandleErr:

Debug.Print Err.Number

Select Case Err.Number

Case 2455

cp.Properties.Add "AllowBypassKey", vKey

Resume Next

Case Else

MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "Utility.SetBypassKey" 'ErrorHandler:$$N=Utility.SetBypassKey

End Select

' End Error handling block.

End Sub


This is what I wrote for that...
hth
Alcar

 

[scoobey]

Thanks for all the help guys - that works ASH001 - you are a star BUT I'm still having problems. When I run the code for the 'ByPassKey' that comes with the access help file, it comes up with 'Type Mismatch - Run Time error 13'. It then takes me to the code and highlights the following line 'Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)'. I called the function with an onLoad event timer in my startup form like this 'ChangeProperty "AllowBypassKey", dbBoolean, False'. Any other clues guys???