Compartilhar via

Objeto ListBox (Access)

Este objeto corresponde a um controle de caixa de listagem. Controle de caixa de listagem exibe uma lista de valores ou alternativas.

Comentários

Control Mal-Intencionado
Controlo caixa de listagem Ferramenta de caixa de listagem

Em muitos casos, é mais rápida e fácil selecionar um valor em uma lista do que lembrar de um valor para digitar. Uma lista de opções também ajuda a garantir que o valor inserido em um campo esteja correto.

A lista de uma caixa de listagem consiste em linhas de dados. As linhas podem ter uma ou mais colunas, que podem aparecer com ou sem cabeçalhos, conforme mostrado no diagrama seguinte.

Caixa de listagem com várias colunas

Se uma caixa de listagem de várias colunas estiver associada, o Microsoft Access armazenará os valores de uma das colunas.

Utilize uma caixa de listagem desvinculada para armazenar um valor que pode utilizar com outro controlo. Por exemplo, você poderia usar uma caixa de listagem não associada para limitar os valores em outra caixa de listagem ou em uma caixa de diálogo. Também pode utilizar uma caixa de listagem não vinculada para localizar um registo com base no valor que selecionar na caixa de listagem.

Se você não tiver espaço em seu formulário para exibir uma caixa de listagem, ou se quiser digitar novos valores e selecionar valores em uma lista, use uma caixa de combinação em vez de uma caixa de listagem.

Exemplo

Este exemplo demonstra como filtrar o conteúdo de uma caixa de listagem enquanto você digita em uma caixa de texto.

Neste exemplo, uma caixa de listagem denominada ColorID apresenta uma lista de cores armazenadas na tabela Cores . À medida que escreve na caixa de texto FilterBy , os itens no ColorID são filtrados dinamicamente.

Para tal, utilize o evento Alterar da caixa de texto para criar uma instrução SQL que servirá como o novo RowSource da caixa de listagem.

Private Sub FilterBy_Change()

    Dim sql As String
    
    'This will match any entry in the list that begins with what the user 
    'has typed in the FilterBy control
    sql = "SELECT ColorID, ColorName FROM Colors WHERE ColorName Like '" & Me.FilterBy.Text & "*' ORDER BY ColorName"
    
    'If you want to match any part of the string then add wildcard (*) before
    'the FilterBy.Text, too:
    'sql = "SELECT ColorID, ColorName FROM Colors WHERE ColorName Like '*" & Me.FilterBy.Text & "*' ORDER BY ColorName"
    
    Me.ColorID.RowSource = sql
    
End Sub

Eventos

Métodos

Propriedades

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

  • Last updated on