Object does not support this method or property

[Vronsky]

I have a little code on the 'Current' event of a form. It examines certain fields in the current record in order to update some text fields on the form. It all works fine, except that the code refuses to handle one field (an integer), giving the message 'Object does not support this method or property'. I can display the value of all the other fields in the debug window, but this one throws that error no matter what I try to do. The field is called 'Interests' which so far as I can determine is not an Access keyword.

[Bob Fitz]

Hi

Can you post the code?

[Vronsky]

Private Sub Form_Current()

Dim MaskInterests As Integer
Dim i As Integer

' The [interests] field is a bitmask for the interests of the current volunteer
' see which interests he/she has by logical AND

' set selections for current volunteer
MaskInterests = Nz([Interests], 0) ' this line throws error
For i = 0 To lstInterests.ListCount - 1
If (MaskInterests And 2 ^ i) <> 0 Then
lstInterests.Selected(i) = True
End If
Next

End Sub

[khalid]

Hi,

Check if your listbox "lstInterests" Multi Select is set to Extended?

There is no problem with:
lstInterests.Selected(i) = True

[Vronsky]

No. it's set to 'Simple'. If I create a new form and insert this code it works without a problem. Could it be a corrupt form? How can I check that?

[khalid]

I was thinking that this line of code has null values
MaskInterests = Nz([Interests], 0)

but you already use Nz function to recover the null bugs, It happens with the corrupt form sometime and you need to compile your code with Debug >>> Compile, also the db should be compact and repair time to time to overcome such un-known errors.

Glad that your code is working now