Filtering a form: Making a blank filter to show all records

[CoZak]

Last but not least this is the code I use

Private Sub cmb_bound_AfterUpdate()

q_get_measurement_subform.Form.Filter = "[Bound]='" & Me.cmb_bound.Text & "'"
q_get_measurement_subform.Form.FilterOn = True




End Sub


Private Sub cmb_kp_AfterUpdate()


q_get_measurement_subform.Form.Filter = "[KP]= " & Str(Nz([Screen].[ActiveControl], 0))
q_get_measurement_subform.Form.FilterOn = True
End sub

etc...



but if i set a filter, it works but if i sent another, the first one goes away, how can I keep the other filtered and the filter another one?

Thanks!

[davegri]

Maybe check to see if a filter exists, and if so concatenate new criteria with AND

Private Sub cmb_kp_AfterUpdate()

if len(q_get_measurement_subform.Form.Filter) > 0 then
    q_get_measurement_subform.Form.Filter = q_get_measurement_subform.Form.Filter & " AND [KP]= " & Str(Nz([Screen].[ActiveControl], 0))
else
    q_get_measurement_subform.Form.Filter = "[KP]= " & Str(Nz([Screen].[ActiveControl], 0))
end if
q_get_measurement_subform.Form.FilterOn = True
End sub

[Gicu]

You can modify the graphs source in the same VBA event (http://www.accessmvp.com/strive4peace/Access_Graphs.htm) Build the SQL dynamically like you do for the subform than assign it to the graph's row source property.

Cheers,
Vlad

[CoZak]

Hey davegri, sadly your code doesnt work, it returns 0 values, i ve tried to change it and tweak it a bit with no success

Vlad, I havent managed to assign a subform as the graph s row source .... the closest i ve come is [subform].[form] but it still doesnt work as intended, I tried using another query where I d filter according to the subform but no luck there either...