使用VBA访问Access 2007中的数据表标题

Question

由于某种原因，相关表格字段说明中的文字自动填充了表单上的数据表标题属性，而不是状态栏文本属性。我想用这个值更新状态栏文本。我不确定如何在设计模式中引用数据表标题并运行以下代码：

建议？

Dim ctl As Control

For Each ctl In [Forms]![frmInventory].Controls
    Select Case ctl.ControlType
        Case acCommandButton, acCheckBox, acTextBox, acListBox, acComboBox, acToggleButton
        ctl.StatusBarText = ctl.Properties("DataSheetCaption")
    End Select
Next

Answer 1

在表级，DAO.Field对象中的数据表标题为.Properties("Caption")。 （如果没有为该字段定义自定义标题，则可能不存在。）

该属性不会直接复制到表单上的数据控件。也就是说，文本框控件在.Properties("Caption")中没有标题。相反，标题位于附加到文本框控件的标签的.Caption中。

因此，如果您想将字段的数据表标题复制到控件的状态栏文本，则可能需要

• 从控件的.ControlSource获取字段名称，
• 在Fields对象的TableDef集合中查找字段，然后
• 从Field对象的.Properties("Caption")属性（如果存在）中提取标题。