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.
Controle | Mal-Intencionado |
---|---|
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 títulos, conforme mostrado no diagrama a seguir.
Se uma caixa de listagem de várias colunas estiver associada, o Microsoft Access armazenará os valores de uma das colunas.
Use uma caixa de lista de desvinculação para armazenar um valor que você pode usar com outro controle. 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. Você também pode usar uma caixa de lista de desvinculação para encontrar um registro com base no valor selecionado 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.
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 lista chamada ColorID exibe uma lista de cores armazenadas na tabela Cores . Conforme você digita na caixa de texto FilterBy , os itens em ColorID são filtrados dinamicamente.
Para fazer isso, use 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
- AfterUpdate
- BeforeUpdate
- Click
- DblClick
- Enter
- Exit
- GotFocus
- KeyDown
- KeyPress
- KeyUp
- LostFocus
- MouseDown
- MouseMove
- MouseUp
- AddColon
- AfterUpdate
- AllowValueListEdits
- Application
- AutoLabel
- BackColor
- BackShade
- BackThemeColorIndex
- BackTint
- BeforeUpdate
- BorderColor
- BorderShade
- BorderStyle
- BorderThemeColorIndex
- BorderTint
- BorderWidth
- BottomPadding
- BoundColumn
- Column
- ColumnCount
- ColumnHeads
- ColumnHidden
- ColumnOrder
- ColumnWidth
- ColumnWidths
- Controls
- ControlSource
- ControlTipText
- ControlType
- DefaultValue
- DisplayWhen
- Enabled
- EventProcPrefix
- FontBold
- FontItalic
- FontName
- FontSize
- FontUnderline
- FontWeight
- ForeColor
- ForeShade
- ForeThemeColorIndex
- ForeTint
- GridlineColor
- GridlineShade
- GridlineStyleBottom
- GridlineStyleLeft
- GridlineStyleRight
- GridlineStyleTop
- GridlineThemeColorIndex
- GridlineTint
- GridlineWidthBottom
- GridlineWidthLeft
- GridlineWidthRight
- GridlineWidthTop
- Height
- HelpContextId
- HideDuplicates
- HorizontalAnchor
- Hyperlink
- IMEHold
- IMEMode
- IMESentenceMode
- InheritValueList
- InSelection
- IsVisible
- ItemData
- ItemsSelected
- LabelAlign
- LabelX
- LabelY
- Layout
- LayoutID
- Left
- LeftPadding
- ListCount
- ListIndex
- ListItemsEditForm
- Locked
- MultiSelect
- Name
- NumeralShapes
- OldBorderStyle
- OldValue
- OnClick
- OnDblClick
- OnEnter
- OnExit
- OnGotFocus
- OnKeyDown
- OnKeyPress
- OnKeyUp
- OnLostFocus
- OnMouseDown
- OnMouseMove
- OnMouseUp
- Responsável
- Properties
- ReadingOrder
- Recordset
- RightPadding
- RowSource
- RowSourceType
- ScrollBarAlign
- Section
- Selected
- ShortcutMenuBar
- ShowOnlyRowSourceValues
- SmartTags
- SpecialEffect
- StatusBarText
- TabIndex
- TabStop
- Tag
- ThemeFontIndex
- Top
- TopPadding
- ValidationRule
- ValidationText
- Valor
- VerticalAnchor
- Visible
- Width
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.