Views

Histats

Vitrine

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/

bernardess@gmail.com
inanyplace
bernardess@gmail.com

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias