以Acccess表格过滤VBA

Question

我有一个名为Review List的表单，显示所有请求，但我只想显示需要检查的某些记录。我希望在表单加载时，只有那些[RequestStatus]为“已提交”或“已重新提交”的记录才能显示在列表中。我可以根据其中一个值获取VBA代码进行过滤，但我无法弄清楚如何让它过滤这两个值。

我知道这可能很容易，但我找不到答案，我很难过。

Answer 1

不确定需要VBA代码。你可以使用查询作为窗体的记录源和包括WHERE子句限制的行显示，按您的条件：

WHERE [RequestStatus] IN ('Submitted', 'Re-Submitted') 

但是，如果你想使用VBA应用过滤器，而不是...

Dim strFilter As String 
strFilter = "[RequestStatus] IN ('Submitted', 'Re-Submitted')" 
Debug.Print strFilter '<- examine this in Immediate window; Ctrl+g will take you there 
Me.Filter = strFilter 
Me.FilterOn = True 

Answer 2

还有另一种方法（也许更简单）。你不需要任何vba或甚至修改你的记录源。只要确保在窗体的记录的[RequestStatus]字段包括在内，然后在表格过滤器，添加以下

状态=“提交”或状态=“重新提交”

snapshot