访问 - 使用父表单上的按钮使子表单字段不可见:)

Posted 2023-05-08

【中文标题】访问 - 使用父表单上的按钮使子表单字段不可见:)

【英文标题】：Access - Make a subform field no visible with a button on the parent form :)

【发布时间】：2011-12-20 23:02:08

【问题描述】：

我有一个访问数据库，其父表单在数据表视图中有一个子表单。子表单具有不需要一直可见的高级字段，让我们在子表单“deliverylines”中使用一个字段“productcode”，父表单是“deliveryheaders”。所以我需要一个按钮，主窗体将使“产品代码”列可见。

这是我一直在尝试的，但它只是向我抛出错误:(

    Private Sub showadvanced_Click()
Me.DeliveryLines.Productcode.Visible = True
end sub

【参考方案1】：

为了在数据表视图中隐藏一列，您需要使用如下代码：

Forms(Me.Name)("deliverylines").Form.Controls("productcode").ColumnHidden = True

这将设置列隐藏属性

请注意，引用子窗体上的控件的完整语法如下：

Forms("Your Form Name")("Subform Control Name").Form.Controls("Your Control Name")

我提供的示例代码假定您的子表单控件名称是deliverylines

【讨论】：

非常感谢！这完美无缺。圣诞快乐:)

【参考方案2】：

对于数据表，您需要将列宽设置为零：http://msdn.microsoft.com/en-us/library/aa224081(v=office.11).aspx

【讨论】：

王牌，非常感谢@remou。我走错了路，这正是我所需要的。圣诞快乐:)

【参考方案3】：

Private Sub showadvanced_Click()


If [DeliveryLines].Form![Productcode].ColumnWidth > 1 Then
[DeliveryLines].Form![Productcode].ColumnWidth = -2
Else
[DeliveryLines].Form![Productcode].ColumnWidth = 20
End If

End Sub