Hello everyone,
I hope this is the right place to post this question. I am currently creating a form which I filter while using multiple option groups but for the moment I can just filter individually and not multiple values simultaneously from the other option groups.
My code looks like that, so there are five individual option groups. So far I am thinking of an AND statement but since I am not advanced in VBA/SQL I struggle with the technical implementation.
Code:
Private Sub F_Verkauf_Filter_AfterUpdate()
'Form-Filter setzen
Select Case F_Verkauf_Filter
Case 1
Me.Filter = "[FordV_Int]= 1"
Me.FilterOn = True
Case 2
Me.Filter = "[FordV_Int]= 2"
Me.FilterOn = True
Case 3
Me.Filter = "[FordV_Int]= 3"
Me.FilterOn = True
End Select
End Sub
Private Sub IHS_Filter_AfterUpdate()
'Form-Filter setzen
Select Case IHS_Filter
Case 1
Me.Filter = "[IHS]= 1"
Me.FilterOn = True
Case 2
Me.Filter = "[IHS]= 2"
Me.FilterOn = True
End Select
End Sub
Private Sub NZ_Filter_AfterUpdate()
'Form-Filter setzen
Select Case NZ_Filter
Case 1
Me.Filter = "[Negativzinsen]= 1"
Me.FilterOn = True
Case 2
Me.Filter = "[Negativzinsen]= 2"
Me.FilterOn = True
Case 3
Me.Filter = "[Negativzinsen]= 3"
Me.FilterOn = True
End Select
End Sub
Private Sub Swap_Filter_AfterUpdate()
Select Case Swap_Filter
Case 1
Me.Filter = "[Zins_SWAP_JN]= 1"
Me.FilterOn = True
Case 2
Me.Filter = "[Zins_SWAP_JN]= 2"
Me.FilterOn = True
End Select
End Sub
Private Sub Syn_Filter_AfterUpdate()
'Form-Filter setzen
Select Case Syn_Filter
Case 1
Me.Filter = "[Syndizierung]= 1"
Me.FilterOn = True
Case 2
Me.Filter = "[Syndizierung]= 2"
Me.FilterOn = True
End Select
End Sub
Private Sub TG_Filter_AfterUpdate()
'Form-Filter setzen
Select Case TG_Filter
Case 1
Me.Filter = "[TGeld_JN]= 1"
Me.FilterOn = True
Case 2
Me.Filter = "[TGeld_JN]= 2"
Me.FilterOn = True
End Select
End Sub
I hope someone can help me with my problem.
Best regards!