Usando Access

Desmarcar itens selecionados em um controle Listbox

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

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

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:

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!

Os dez artigos mais visitados

MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access

Vídeo - Controle personalizado de Acesso de Usuários

Vídeo - Aprenda sobre filtragens

Vídeo - Segurança máxima, usando o OPEN

Uma ajuda para quem está começando um negócio ou um projeto

Desabilitando a faixa(ribbon) superior do Access

Vídeo - Programação de relatórios - Parte 1

Integrando o Access com Servidor MySQL - Introdução

Como carregar o seu menu sem que ele vá para lista de suplementos

Adquira o kit UsandoAccess e aprenda em alta velocidade

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |