How to display something in combo box if query returns nothing

[marcin2k]

I have a query that populates my combobox. But if no results are returned instead of leaving the combobox empty I want to set it to display something that I will pick.

Thanks Marcin

 

[Remou]

Hi
Maybe:

If Me.[i]cboCombo[/i].RowSource <> "" Then
    Set rs = CurrentDb.OpenRecordset(Me.[i]cboCombo[/i].RowSource)
    If rs.BOF Then
        strRecError = "No Records. "
    End If
Else
    strRecError = "No recordset. "
End If
If strRecError <> "" Then
    MsgBox (strRecError & "Pick one of these.")
    'Me.[i]cboCombo[/i].RowSource="Some Other Query"
End If
End Sub

 

[gol4]

or another option to display nothing found

strsql = "select field1, field2 from table Me.cboCombo.RowSource = strsql
If Me.cboCombo.ListCount < 1 Then
strsql = strsql & " union select 'Nothing' as field1, 'found' as field2 from table"
Me.cboCombo.RowSource = strsql

 

[marcin2k]

Thanks that worked great gol4