custom form property

dnagirl · June 30th, 2009, 01:52 PM

I have a regular form called "Fish". It has a TreeCtl called "loctree" which I used as a location chooser to populate another control on Fish.

I've since added several subforms to Fish. Two of these have location fields that I would like to use loctree for. Since I didn't want to instantiate a TreeCtl for each of these subforms, I thought I could just let loctree know which control its current target is. I thought the easiest way to define the current target would be to add a property to my Fish form:

Code:

 
Option Compare Database
 
Private locfield As Field
 
Property Let loc_focusField(target As Field)
    locfield = target
End Property
 
Property Get loc_focusField()
    loc_focusField = locfield
End Property

And then in the Open Event for the Fish form, I could set the default value of locfield:

Code:

 
Private Sub Form_Open(Cancel As Integer)
  locfield = Forms!fish_moves!fish_moves_loc_id
End Sub

Unfortunately, every time I try to open my form I get the following error:

Quote:

Definitions of property procedures

Quote:

for the same property are inconsistent, or property procedure has an optional parameter, a ParamArray, or an invalid Set final parameter

So what gives?

Thanks,
Jen