Access 2003 VBA：カスタムフォームプロパティの問題

Question

"Fish"という規則的なフォームがあります。それは私がフィッシュのフィールドを変更するための位置選択として使用した "loctree"と呼ばれるTreeCtlを持っています。

私はFishにいくつかのサブフォームを追加しました。これらの2つには、loctreeを使用したい場所フィールドがあります。これらのサブフォームのそれぞれに対して新しいTreeCtlをインスタンス化したくないので、私はloctreeに現在のターゲットがどのコントロールかを知らせることができると考えました。

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 

そして魚フォームのOpenイベントで、私はlocfieldのデフォルト値を設定できます：私は、現在のターゲットを定義する最も簡単な方法は、私の魚フォームにプロパティを追加するだろうと思っ

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

残念ながら、私は次のエラーを取得する私は自分のフォームを開こうとするたびに：

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

は何ができますか？

おかげで、 ジェン

Answer 1

IIRCは、あなたの特性は

Property Set loc_focusField(target As Field) 
    set locfield = target 
End Property 

Property Get loc_focusField() as Field 
    set loc_focusField = locfield 
End Property 

がその仕事をするようになっているはずですか？