kombinieren zwei Optionsgruppen in Zugriff

Question

Ich habe ein Formular mit einem Unterformular und mehreren Optionsgruppen.

Es funktioniert gut, Datensätze im Unterformular mit 1 einzigen Option Gruppe, auszuwählen, aber ich versuche, zwei oder mehr Optionsgruppen zu kombinieren.

Ich verwende diesen Code für 1 Optionsgruppe:

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 

enz .....

Answer 1

Hier Beispiel Ihre zweite Option Rahmen der Umsetzung:

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