microsoft.public.access

Are you saying that the error still happens when you've got the reference
set to DAO and you've declared the variables properly?

Try what Albert Kallal has in his "By Pass Shift Key Code" at
http://www.members.shaw.ca/AlbertKallal/msaccess/msaccess.html

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)


"germainHuberdeau" wrote in
message news:A415A477-7CB2-4D2A-B844-EBCED4094C4B@microsoft.com...
> Thanks for your reply.
>
> I also had previously tried the Dim dbs As DAO.Database, prp As
> DAO.Property
> ( I had to add the reference MS 3.6 object in the library.)
>
> I tried many variation of solutions from different programmers with
> basically the same coding. I stepped through the code everytime to see
> where
> it err's and for all of them I get the same error on the following code
> statements:
>
> dbs.Properties(strPropName) = varPropValue
> and
> Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
>
> "Douglas J. Steele" wrote:
>
>> Not sure whether this is the problem, but your declaration should be
>>
>> Dim dbs As DAO.Database, prp As DAO.Property
>>
>> If that doesn't solve the problem, try single-stepping through the code
>> to
>> identify the exact line that's raising the error.
>>
>> --
>> Doug Steele, Microsoft Access MVP
>> http://I.Am/DougSteele
>> (no private e-mails, please)
>>
>>
>> "germainHuberdeau" wrote in
>> message news:00C6A367-7634-4CEF-B940-5E2E19BCF05B@microsoft.com...
>> > When I try to execute the AllowBypassKey function further below I get
>> > the
>> > following error
>> >
>> > => object variable or with block variable not set
>> >
>> > Sub SetBypassProperty()
>> > Const DB_Boolean As Long = 1
>> > ChangeProperty "AllowBypassKey", DB_Boolean, False
>> > End Sub
>> >
>> > 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
>> >
>>
>>
>>