Question

我有一个名为“鱼”的常规表格。它有一个名为“loctree”的TreeCtl，我用它作为位置选择器来更改Fish中的字段。

我已经为Fish添加了几个子表单。其中两个有我想使用loctree的位置字段。由于我不想为每个子表单实例化一个新的TreeCtl，我想我可以让loctree知道它当前目标是哪个控件。我认为定义当前目标的最简单方法是在我的Fish表单中添加一个属性：

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

然后在Fish表单的Open事件中，我可以设置locfield的默认值：

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

不幸的是，每当我尝试打开表单时，都会出现以下错误：

财产程序的定义相同的属性是不一致的，或属性过程有一个可选的参数，ParamArray或无效设置最终参数

那是什么给了什么？

谢谢，仁

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

这有用吗？

Access 2003 VBA：自定义表单属性问题

1 个答案: