Listbox query -show all records

[Zeljko]

I'm creating Address book.
Header of the main form (frmAddress) contains combo box (cboFilter) to
filter records by Occupation on main Form(Ocupation1 ). That's working. Combo
box also have "Show All" in one row.

==Combo box query:
SELECT tblOCUPATION.id , tblOCUPATION.tx tOcupation1 FROM tblOCUPATION UNION
Select "(All)" as Bogus, Null as AllChoice From [tblOCUPATION];
==Combo box event:
If IsNull(Me![cboFilter]) Then
DoCmd.ShowAllRe cords
Else
DoCmd.ApplyFilt er , "[Ocupation1] = '" & Me!cboFilter & "'"
End If
Forms!frmAddres s!LstBoxSearch. Requery

That's working.

Here is the Problem.
I have text box on main form to show all records or filtered ones, and to
pick a name from it (it must be the same as records on main form!).
When i pick Ocupation in cboFilter Text box is filtered, Form filtered but
when i select Ocupation in cboFilter=Null (=Show All Records) it dosent show
enything in text box ?! (Note: records on main Form working and showing all
records)?!

==List box query:
SELECT qrySearch.id, qrySearch.Name, qrySearch.Ocupa tion1 FROM
qrySearchWHERE qrySearch.Ocupa tion Like Forms!frmAddres s.cboFilter ORDER BY
qrySearch.Name;
==List box event:
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Cl one
rs.FindFirst "[RedniBroj] = " & Str(Nz(Me![LstBoxPretraziv anje], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

I think that problem is in List box query? maybe something like "...UNION
show all records"... but i tried many ways, search the web and that didnt
worked for me.

Thanks for help
(sorry for bad english)

[Jeff L]

==List box query:
SELECT qrySearch.id, qrySearch.Name, qrySearch.Ocupa tion1 FROM
qrySearchWHERE qrySearch.Ocupa tion Like Forms!frmAddres s!cboFilter &
"*" ORDER BY
qrySearch.Name;

The query is matching only the value entered into
Forms!frmAddres s!cboFilter and nothing more.
Zeljko wrote:

I'm creating Address book.
Header of the main form (frmAddress) contains combo box (cboFilter) to
filter records by Occupation on main Form(Ocupation1 ). That's working. Combo
box also have "Show All" in one row.

==Combo box query:
SELECT tblOCUPATION.id , tblOCUPATION.tx tOcupation1 FROM tblOCUPATION UNION
Select "(All)" as Bogus, Null as AllChoice From [tblOCUPATION];
==Combo box event:
If IsNull(Me![cboFilter]) Then
DoCmd.ShowAllRe cords
Else
DoCmd.ApplyFilt er , "[Ocupation1] = '" & Me!cboFilter & "'"
End If
Forms!frmAddres s!LstBoxSearch. Requery

That's working.

Here is the Problem.
I have text box on main form to show all records or filtered ones, and to
pick a name from it (it must be the same as records on main form!).
When i pick Ocupation in cboFilter Text box is filtered, Form filtered but
when i select Ocupation in cboFilter=Null (=Show All Records) it dosent show
enything in text box ?! (Note: records on main Form working and showing all
records)?!

==List box query:
SELECT qrySearch.id, qrySearch.Name, qrySearch.Ocupa tion1 FROM
qrySearchWHERE qrySearch.Ocupa tion Like Forms!frmAddres s.cboFilter ORDER BY
qrySearch.Name;
==List box event:
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Cl one
rs.FindFirst "[RedniBroj] = " & Str(Nz(Me![LstBoxPretraziv anje], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

I think that problem is in List box query? maybe something like "...UNION
show all records"... but i tried many ways, search the web and that didnt
worked for me.

Thanks for help
(sorry for bad english)

[Zeljko]

"Jeff L" <jl*******@hotm ail.comwrote in message
news:11******** **************@ b28g2000cwb.goo glegroups.com.. .

==List box query:
SELECT qrySearch.id, qrySearch.Name, qrySearch.Ocupa tion1 FROM
qrySearchWHERE qrySearch.Ocupa tion Like Forms!frmAddres s!cboFilter &
"*" ORDER BY
qrySearch.Name;

The query is matching only the value entered into
Forms!frmAddres s!cboFilter and nothing more.

Fast and Perfect. Thanks