Option Group not working in Continouse form

[Lamatamang]

Hello everyone,

I need help from all of you. I am currently working on sub form in master form. The sub form is continuous form having 1000 records from Table. I want these records to filter by using option value.

Option 1 is intended to show all records in form
Option 2 is intended to just filter Safety Boot
Option 3 is intended to just filter Safety Glass in Continuous form.

This is the code i am using and it works to see all the records but the second one does not have any affect at all. My Code is Here:

Private Sub Frame4_AfterUpdate()
Dim Mysql As String
Select Case Me.Frame4.Value
Case 1
If Me.Frame4 = 1 Then
Mysql = "Select * From PPERecordsT Where Frame4 =" & Frame4
End If
 
Case 2
if Me.Frame4 = 2 Then
Mysql = "Select * From PPERecordsT Where TypeOfPPE = 2 Order By PPEID"
End if
End Select
Forms!EmployeePPERecordsFF!ListSubF.Form.RecordSource = Mysql

End Sub

Thank you,

[zmbd]

Looks like your post was buried under a fairly heavy traffic day - sorry, we do try our best !)

Please take a look at the following articles from our Insights area, you may very well find other information in this are of great help with your project, I'm fairly certain these will point you in the right direction.

Form Filter and Cascasde
From the Bytes > Sitemap > Microsoft Access / VBA Insights
42.Cascaded Form Filtering
156.Cascading Combo/List Boxes
168.Example Filtering on a Form.

45.How to select Records in an Access Subform from a Combo Box

164.Referring to Items on a Sub-Form