ComboBox help needed with selecting "ALL"...

[eskelies]

Good day all...I have a combo box that selects numbers (ie. 1,2,3, etc.). What I am looking for is the combo box to have an "ALL" selection. Right now this is what I have for my SQL code:

SELECT [Fund Number Query].Funds, [Fund Number Query].Fund FROM [Fund Number Query] UNION Select "*", "(All)" From [Fund Number Query];

This is what my VB code is showing; however the error is in the:
rs.FindFirst "[Funds]=" & Str(Nz(Me![Combo1], 0)
__________________________________________________ _________
Private Sub Combo1_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Funds]=" & Str(Nz(Me![Combo1], 0)

If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Any help would be greatly appreciated. Thank you.

[eskelies]

bump.................

[eskelies]

I ended up figuring out a way to make it work without adding "ALL." For anyone that cares I placed the following into the criteria of the query.

[forms]![Final 12 Month Rolling Turnover Report].[combo1] is null

[puppydogbuddy]

Good day all...I have a combo box that selects numbers (ie. 1,2,3, etc.). What I am looking for is the combo box to have an "ALL" selection. Right now this is what I have for my SQL code:

SELECT [Fund Number Query].Funds, [Fund Number Query].Fund FROM [Fund Number Query] UNION Select "*", "(All)" From [Fund Number Query];

This is what my VB code is showing; however the error is in the:
rs.FindFirst "[Funds]=" & Str(Nz(Me![Combo1], 0)
__________________________________________________ _________
Private Sub Combo1_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Funds]=" & Str(Nz(Me![Combo1], 0)

If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Any help would be greatly appreciated. Thank you.

I think your problem is the syntax you are using. You are using numeric syntax applied to a string.

Do Either 1 or 2 below:
1. rs.FindFirst "[Funds]= '" & Str(Nz(Me![Combo1], 0) & "'" 'for text syntax
or
2.rs.FindFirst "[Funds]=" & Val(Nz(Me![Combo1], 0) 'for numeric