在訪問中結合了兩個選項組

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