✔ Programação GLOBAL®: VBA Access - Verificando sua Listbox (Check your listbox)

Quando utilizamos uma Listbox...

... Por exemplo, talvez queiramos habilitar um botão na nossa interface quando um determinado item da lista for selecionado, ou talvez queiramos executar uma rotina para retirar a seleção, mas somente se alguns dos itens já estiverem selecionados (caso contrário poderemos estipular outras ações).

A função abaixo tem como alvo um objeto ListBox e retornará True caso qualquer valor estiver selecionado.

Function HaALgoSelecionado (nLista As Access.ListBox) As Boolean
' Retorna true se algum item estiver selecionado no listbox.

Dim nOccur As Long

For nOccur = 0 To lst.ListCount - 1
If nLista.Selected(nOccur) Then
Let HaALgoSelecionado = True
Exit For
End If
Next i

End Function

André Luiz Bernardes
A&A - WORK, DON´T PLAY!
http://al-bernardes.sites.uol.com.br/