empty listbox

[contato]

I use this for populate a listbox

Me.Lista69.RowSource = "select idvenda,codigo,produto,qtd,unit,total from
tbvenda WHERE nvenda like " & nven & " "
Me.Lista69.Requery

when the select is empty or not found any result how i show a msgbox with
mesagge " PRODUCT NOT FOUND"

 

[UpRider]

Contato,
After the .requery line, add:
if lista69.listcount = 0 then
msgbox "list is empty"
exit sub '<or function>
endif

If you want to find the number of hits before you resource the listbox, put
this before your code:

if Dcount("idvenda","tbvenda","idvenda= " & nven) = 0 then
msgbox "no matches for this vendor"
exit sub ' or function
endif
(above assumes nven is a number representing idvenda.)

HTH, UpRider