使用另一个表单上的命令按钮过滤表单答案

【问题标题】：Filter a form using a command button on another form使用另一个表单上的命令按钮过滤表单
【发布时间】：2010-03-30 13:10:49
【问题描述】：

我有一个带有 cmdbutton 的表单，目前打开另一个表单并显示几种类型的 PartitionStyles 和 TrimFinishs（目前为 486 个）的所有记录，我需要能够过滤第二个表单以仅显示 TrimFinish I需要。

私人子 lbl600SeriesS_Click() 暗淡 stDocName 作为字符串将 stLinkCriteria 调暗为字符串

stDocName = "frmModules"
stLinkCriteria = "Forms!frmModules![TrimFinish] = 1"
DoCmd.OpenForm stDocName, , , stLinkCriteria

结束子

目前它只显示一条新记录，我知道应该有 162 条记录使用 1，我错过了什么或做错了什么。

【问题讨论】：

【解决方案1】：

stLinkCriteria 基于 frmModules 的 RecordSource 中的字段。因此，如果 RecordSource 包含一个名为 TrimFinish 的数字字段，请尝试以下操作：

stLinkCriteria = "[TrimFinish] = 1"

如果 RecordSource 是来自多个表的查询图，您可以使用表别名来限定字段名称：

stLinkCriteria = "YourTableAlias.[TrimFinish] = 1"

如果您仍有问题，请编辑您的问题以描述 frmModules 的 RecordSource。如果是查询，则粘贴到查询的 SQL 视图中。

【讨论】：

谢谢，stLinkCriteria = "[TrimFinish] = 1" 有效。有人问我是否可以在同一段代码中为 PartitionStyle 添加另一个过滤器。
@Shaun 过滤 PartitionStyle 来代替或补充过滤 TrimFinish？ PartitionStyle 是文本还是数字数据类型？
HansUp。设法对其进行排序。 Private Sub lbl600SeriesS_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmModules" stLinkCriteria = "[PartitionStyle] = 1" stLinkCriteria = stLinkCriteria & "AND [TrimFinish] = 1" DoCmd.OpenForm stDocName, , , stLinkCriteria End Sub 欢呼.