By pass keys (Access 2000/3)

[Adonis Walmsley-McCarthy]

Hello all,

I tried that solution detailed below. However, I get the error "run-time
error 13. Type mismatch".

The offending line is:

Set prop = db.CreateProper ty("AllowByPass Key", dbBoolean, False)

Do you have any ideas?

Adonis.

Function DisableShiftKey ByPass() As Boolean
' The next time the database is opened
' after this function is run,
' the autoexec macro will not be bypassed,
' even if the shift key is pressed.
On Error GoTo errDisableShift
Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270
Set db = CurrentDb()
db.Properties(" AllowByPassKey" ) = False
DisableShiftKey ByPass = True

exitDisableShif t:
Exit Function

errDisableShift :
' The AllowByPassKey property is a user-defined
' property of the database that must be created
' before it can be set. This error code will execute
' the first time this function is run in a database.
If Err = conPropNotFound Then
Set prop = db.CreateProper ty("AllowByPass Key", dbBoolean, False)
db.Properties.A ppend prop
Resume Next
Else
MsgBox "Function DisableShiftKey ByPass did" & "not complete
successfully."
DisableShiftKey ByPass = False
GoTo exitDisableShif t
End If
End Function

[Allen Browne]

What data type is prop?
Try explictly declaring it as DAO.Property or more generically as a
Variant.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Adonis Walmsley-McCarthy" <aw*******@blue yonder.co.uk> wrote in message
news:GR******** *********@news-binary.blueyond er.co.uk...

Hello all,

I tried that solution detailed below. However, I get the error "run-time
error 13. Type mismatch".

The offending line is:

Set prop = db.CreateProper ty("AllowByPass Key", dbBoolean, False)

Do you have any ideas?

Adonis.

Function DisableShiftKey ByPass() As Boolean
' The next time the database is opened
' after this function is run,
' the autoexec macro will not be bypassed,
' even if the shift key is pressed.
On Error GoTo errDisableShift
Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270
Set db = CurrentDb()
db.Properties(" AllowByPassKey" ) = False
DisableShiftKey ByPass = True

exitDisableShif t:
Exit Function

errDisableShift :
' The AllowByPassKey property is a user-defined
' property of the database that must be created
' before it can be set. This error code will execute
' the first time this function is run in a database.
If Err = conPropNotFound Then
Set prop = db.CreateProper ty("AllowByPass Key", dbBoolean, False)
db.Properties.A ppend prop
Resume Next
Else
MsgBox "Function DisableShiftKey ByPass did" & "not complete
successfully."
DisableShiftKey ByPass = False
GoTo exitDisableShif t
End If
End Function

[Adonis Walmsley-McCarthy]

Hi there,

I understand what you are saying Allen, but I've already declared the
variable "prop" as a DAO property.

Any ideas?
Adonis.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Allen Browne]

The code you posted contained:
Dim prop As Property

That's ambiguous, e.g. the ADOB library also has a Property type.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Adonis Walmsley-McCarthy" <a.********@blu eyonder.co.uk> wrote in message
news:3f******** *************@n ews.frii.net...

Hi there,

I understand what you are saying Allen, but I've already declared the
variable "prop" as a DAO property.

Any ideas?