ms-access - 如何以显示/隐藏查询列的形式制作 vba 代码？ (MS-Access)

Question

我对使用 Access 非常陌生，并且在编写将执行以下操作的 VBA 代码时遇到了问题:

Private Sub YesNoShowHide ()

        If DateTested_checkbox = 'yes'
            Then show 'DateTested' column in 'search query' query
        Else DateTested_checkbox = 'no'
            Then hide 'DateTested' column in 'search query' query 
End Sub

我有一个数据库，它有一个表单，该表单将通过在文本框中键入关键字并点击搜索来执行“自定义搜索”，但关键字会进入查询。我有很多字段，我想做一个选项，根据表单中的复选框显示或隐藏查询中的列。

如有任何帮助或建议，我们将不胜感激

表单和查询图片:

Answer 1

您可以使用 QueryDefs.Fields.Properties 集合 Access 它们来显示和隐藏查询列。

您可以通过以下方式使用它:

CurrentDb.QueryDefs("search query").Fields("DateTested").Properties("ColumnHidden") = True

请注意，这不会更改打开的查询，直到它被刷新，并且会永久改变查询。如果您想永久防止修改查询，您可以执行以下操作:

CurrentDb.QueryDefs("search query").Fields("DateTested").Properties("ColumnHidden") = True
DoCmd.OpenQuery "search query"
CurrentDb.QueryDefs("search query").Fields("DateTested").Properties("ColumnHidden") = False