Error not suppressed?

[geoB]

I've borrowed some code from lala posted recently to enumerate the rowsources in table fields. The piece I've got:

Public Function HasProperty(obj As Object) As Boolean
   'Purpose: Return true if the object has the property.
   Dim varDummy As Variant
   On Error Resume Next
   varDummy = obj.Properties("rowsource")
   HasProperty = (Err.number = 0)
End Function

still hangs with a "Property not found" error message at the varDummy line. Which I expected the On Error line to avoid.

Clearly I'm missing something! But what?

Thanks.

George

 

[Guus2005]

In the VB IDE, open menu: Options | General | Error Trapping
You probably have selected: "Break on all errors". When you should be selecting
"Break on unhandled errors."

HTH

 

[geoB]

Guus: Probability = 1.

Thanks immensely.

gwb