在访问中结合了两个选项组

Question

我有一个带子窗体和几个选项组的窗体。

它工作正常，选择1个单一选项组， 子窗体上的记录，但我试图结合两个或更多的选项组。

我使用1个选项组验证码：

Dim strFilter As String 

Select Case [Frame26] 
Case 1 
    'Forms!YourFormName.Form.FilterOn = False 
Case 2 
    'strFilter = "[YourFieldName] = 'Open - Normal' Or [YourFieldName] = 'Open - Urgent'" 
    'Forms!YourFormName.Form.Filter = strFilter 
    'Forms!YourFormName.Form.FilterOn = True 
case3 

恩茨.....

Answer 1

这里的例子实现你的第二个选项框：

Dim strFilter As String 
Dim strFilter2 As String 

Select Case [Frame26] 
Case 2 
    strFilter = "[YourFieldName] = 'Open - Normal' Or [YourFieldName] = 'Open - Urgent'" 
case3 
'............ 

End Select 

' Add second filter - replace all your logic and fields to fit second options 
Select Case [Frame<##>] 
Case 2 
    strFilter2 = "[YourFieldName] = 'Open - Normal' Or [YourFieldName] = 'Open - Urgent'" 
case3 

if strFilter = "" AND strFilter2 = "" Then 
    Forms!YourFormName.Form.FilterOn = False 
    Exit Sub 
End If 

If strFilter <> "" AND strFilter2 <> "" then 
    ' Join both filters 
    strFilter = "(" & strFilter & ") AND (" & strFilter2 & ")" 
Else If strFilter2 <> "" then 
    ' Just Using second filter 
    strFilter = strFilter2 
End if 

Forms!YourFormName.Form.Filter = strFilter 
Forms!YourFormName.Form.FilterOn = True