Does anyone have any ideas about the following error?

"Runtime error '451':

 Property let procedure not defined and property get procedure did
 not return an object."

I get this in message in a popup when I call a function on a custom class. The function is supposed to return a boolean value if the code it contains executed successfully. It is used in a manner similar to the following:

'Calling code

Dim myClassInstance as myClass
Dim success as boolean

set myClassInstance = new myClass
success = myClassInstance.SomeFunction 'NOTE: Here is where the debugger takes me

'In the class module

'Class declaration
Public Function SomeFunction()
     functionOK = False
     if (test = True) then
          functionOK = True
     end if
     SomeFunction = functionOK
End Function

Why do I get this error upon calling a function (not a Property)? I've googled, but found only one reference to the same code in reference to a C++ project. One site indicates that error '451' means 'Object not a Collection'.

Thanks for any suggestions,

J


"It is better to light a candle than to curse the darkness."  -Chinese proverb

Try changing the Function declaration to...

Public Function SomeFunction() As Boolean

That way VBA knows what the return type will be. There may be other things causing this error, but I would try that first.

Mike


Mike
EchoVue.com