我对使用 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
我有一个数据库，它有一个表单，可以通过在文本框中输入关键字并点击搜索来执行“自定义搜索”，但会将关键字输入到查询中。我有很多字段，想要创建一个选项，根据表单中的复选框显示或隐藏查询中的列。
任何帮助或建议将不胜感激
表格及查询图片：
您可以通过使用以下命令访问查询列来显示和隐藏它们QueryDefs.Fields.Properties收藏。
您可以通过以下方式使用它：
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
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
