... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$145,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Desmarcar itens selecionados em um controle Listbox

Observe, na imagem abaixo, um item da lista selecionado pelo clique do mouse. 

Usando Access - listbox

Para remover a marcação da lista, basta atribuir um valor negativo ao controle Listbox.  Neste exemplo, quando o campo Filtrar recebe o foco, a lista é desmarcada.

Private Sub txtFiltro_GotFocus()
Me!Lista = -1
End Sub

Agora observe o controle Listbox abaixo, configurado para Seleções Múltiplas:

Usando Access - Listbox

A técnica para desmarcar a lista é passar o valor da propriedade Selected(item) da Listbox para False. 

Private Sub txtFiltro_GotFocus()
Dim n As Integer
'------------------------------------------------------
'Percorre a lista do último item para o primeiro item
'------------------------------------------------------
For n = (Me!Lista.ListCount - 1) To 0 Step -1
   '------------------------------
   'Vai desmarcando item por item
   '------------------------------
   Me!Lista.Selected(n) = False
Next
End Sub

Se desejar marcar todos os itens da lista, através de um botão, basta passar o valor da propriedade Selected(item) para True

Private Sub btSelecionaTudo_Click()
Dim n As Integer
For n = (Me!Lista.ListCount - 1) To 0 Step -1
   '------------------------------
   'Vai marcando item por item
   '------------------------------
   Me!Lista.Selected(n) = True
Next
Me!txtFiltro.SetFocus
End Sub

Bom estudo!


 

 


Não há comentário

Envie seu comentário: