[Resolvido]Gerar relatório com itens selecionados em uma listbox (quando não há seleção)

pessoal,

estou utilizando o código abaixo para gerar relatórios de itens selecionados em uma listbox, porém, quando não há itens selecionados, dá um erro e vai para depuração. Como faço para abrir uma caixa de mensagem quando o usuário clica no botão de comando sem selecionar o(s) item(ns) na listbox para avisá-lo que a seleção é obrigatória?

Private Sub Comando0_Click()

Dim sel As Variant
Dim strWhere As String

strWhere = "nome in ("
For Each sel In Me.Lista0.ItemsSelected
strWhere = strWhere & "'" & Me.Lista0.ItemData(sel) & "',"
Next
strWhere = strWhere & ")"

DoCmd.OpenReport "Relatório1", acPreview, , strWhere

End Sub


thanks

Leandro

valeu Avelino!

grande mestre!!!!!!!!!!!!