vba - 在表单的标签或文本框中显示字段的描述

Question

我想做的是在我的表单上的标签中显示当前所选字段的描述。我觉得它当前显示的位置（左下状态栏）几乎不引人注意。

如何在状态栏中访问该值？例如，在我的表单上，当我选择了员工姓名字段时，在左下角的小字中显示“您正在注册的员工姓名”。

我知道在我的表单上的某些事件中，我需要这样的代码

 me.lblControlDescription.Caption = me.statusbar.caption

如何访问 VBA 状态栏中的文本（字段描述）？

score 0 · Accepted Answer

状态栏中的文本是当前字段的Description属性。

从 VBA，您可以访问Description表单记录集中的字段。

Debug.Print Me.Recordset.fields("id").Properties("Description")

因此，如果您有一个名为的标签控件lblDescription，则可以将其.Caption值设置为字段的Description.

Me.lblDescription.Caption = Me.Recordset.fields("id").Properties("Description")

然而，这可能更复杂。 Description是一个用户创建的属性，这意味着它不存在，直到你给它一个值。而且，如果您有一组，但稍后删除它的值，则该属性本身不再存在。

如果您尝试检索Description不存在的时间，VBA 将抛出错误 #3270，“找不到属性”。您可以捕获该错误，并设置Me.lblDescription.Caption为何vbNullString时发生。

你还需要一个何时改变的策略Me.lblDescription.Caption。您可以创建一个过程来根据当前活动控件进行设置。然后从每个表单控件的焦点事件中调用该过程。对此可能有更好的方法，但我现在还没有看到。

1 回答 1