show all records in my subform

[ochalove26]

hi all,
i'm a new programmer...
i use a combo box to filtering the records in my sub form..it was works...but when i want to show all records in my sub form it doesnt works..how it would be?please help me. thx..

private sub combo2_afterupd ate()
dim rs as object
if not isnull(me.combo 2) then
if me.dirty then
me.dirty = false
end if
set rs = me.recordsetclo ne
rs.findfirst "[field1] = '" & Me![combo] & "'"
if me![combo] = "ALL" ---> i'll make this item as an icon to show all records
???---> wat should i fill to this part, so i can show all records in my form
else
me.bookmark = rs.bookmark
end if
set rs = nothing
end if
end sub

[Lysander]

hi all,
i'm a new programmer...
i use a combo box to filtering the records in my sub form..it was works...but when i want to show all records in my sub form it doesnt works..how it would be?please help me. thx..

private sub combo2_afterupd ate()
dim rs as object
if not isnull(me.combo 2) then
if me.dirty then
me.dirty = false
end if
set rs = me.recordsetclo ne
rs.findfirst "[field1] = '" & Me![combo] & "'"
if me![combo] = "ALL" ---> i'll make this item as an icon to show all records
???---> wat should i fill to this part, so i can show all records in my form
else
me.bookmark = rs.bookmark
end if
set rs = nothing
end if
end sub

The way I do this is to make the combo box a union query, e.g.

SELECT tblMandal.Mandal_ID, tblMandal.MandalName FROM tblMandal ORDER BY tblMandal.MandalName  union select 0,"<All>" from tblMandal;
 

and then in the after_update event of the combo box

If cboMandal = 0 Then
    Me.FilterOn = False
Else
    DoCmd.ApplyFilter , "Mandal_ID=" & cboMandal
End If
 

In this case, Mandal is an area in a country, like a US state or UK county, and the form is showing towns and villages, filtered by Mandal