Dear Experts,
I encountered again a strange problem in option group button when click. The other button works fine but when i click the "2-3: PFD down to "2-8: Procedure" buttons wont work and it pops up the "Enter Parameter Value". I dont want to pops it up when i hit the button.
I attached a screenshot of the table, form and code:
I hope some experts again will share their talents in MS Access
Thank you!
Code:
Private Sub SelectOption2_AfterUpdate()
Dim intFilter As Integer: intFilter = Me!SelectOption2
Select Case intFilter
Case 1
Me!SubDMMechanicals.Form.FilterOn = False
Case 2
Me!SubDMMechanicals.Form.Filter = "Category = '2.1'"
Me!SubDMMechanicals.Form.FilterOn = True
Case 3
Me!SubDMMechanicals.Form.Filter = "Category = '2.2'"
Me!SubDMMechanicals.Form.FilterOn = True
Case 4
Me!SubDMMechanicals.Form.Filter = "Cagegory = '2.3'"
Me!SubDMMechanicals.Form.FilterOn = True
Case 5
Me!SubDMMechanicals.Form.Filter = "Cagegory = '2.4'"
Me!SubDMMechanicals.Form.FilterOn = True
Case 6
Me!SubDMMechanicals.Form.Filter = "Cagegory = '2.5'"
Me!SubDMMechanicals.Form.FilterOn = True
Case 7
Me!SubDMMechanicals.Form.Filter = "Cagegory = '2.6'"
Me!SubDMMechanicals.Form.FilterOn = True
Case 8
Me!SubDMMechanicals.Form.Filter = "Cagegory = '2.7'"
Me!SubDMMechanicals.Form.FilterOn = True
Case 9
Me!SubDMMechanicals.Form.Filter = "Cagegory = '2.8'"
Me!SubDMMechanicals.Form.FilterOn = True
End Select
End Sub