Table of contents
TOC
Recolher sumário
Expandir sumário

Objeto ComboBox (Access)ComboBox Object (Access)

office 365 dev account|Última Atualização: 12/02/2018
|
2 Colaboradores

Este objeto corresponde a um controle de caixa de combinação. O controle da caixa de combinação combina os recursos de uma caixa de texto e de uma caixa de listagem. Use uma caixa de combinação quando quiser ter a opção de digitar um valor ou de selecionar um valor de uma lista predefinida.This object corresponds to a combo box control. The combo box control combines the features of a text box and a list box. Use a combo box when you want the option of either typing a value or selecting a value from a predefined list.

ComentáriosRemarks

Controle:Control:Ferramenta:Tool:
Controle de caixa de combinaçãoFerramenta de caixa de combinação

No modo Formulário, o Microsoft Access não exibirá a lista até você clicar na seta da caixa de combinação.In Form view, Microsoft Access doesn't display the list until you click the combo box's arrow.

Se você tiver Assistentes de Controle ativados antes da seleção da ferramenta de caixa de combinação, poderá criar uma caixa de combinação com um deles.If you have Control Wizards on before you select the combo box tool, you can create a combo box with a wizard.Para ativar ou desativar os Assistentes de Controle, clique na ferramenta Assistentes de Controle na caixa de ferramentas.To turn Control Wizards on or off, click the Control Wizards tool in the toolbox.

A configuração da propriedade LimitToList determina se você pode inserir valores que não estejam na lista.The setting of the LimitToList property determines whether you can enter values that aren't in the list.

A lista pode ter uma ou várias colunas, e as colunas podem aparecer com ou sem títulos.The list can be single- or multiple-column, and the columns can appear with or without headings.

Link fornecido por: Luke Chung, FMS, Inc.Link provided by: Luke Chung,FMS, Inc.

ExemploExample

O exemplo a seguir mostra como usar vários controles ComboBox para fornecer critérios para uma consulta.The following example shows how to use multiple ComboBox controls to supply criteria for a query.

Exemplos de código, fornecido pela:ícone do membro da comunidade comunidade UtterAccessSample code provided by:Community Member Icon The UtterAccess community

Os membros da UtterAccess podem baixar um banco de dados com este exemplo daqui.UtterAccess members can download a database that contains this example from here.

Private Sub cmdSearch_Click()
    Dim db As Database
    Dim qd As QueryDef
    Dim vWhere As Variant

    Set db = CurrentDb()

    On Error Resume Next
    db.QueryDefs.Delete "Query1"
    On Error GoTo 0

    vWhere = Null
    vWhere = vWhere & " AND [PymtTypeID]=" + Me.cboPaymentTypes
    vWhere = vWhere & " AND [RefundTypeID]=" + Me.cboRefundType
    vWhere = vWhere & " AND [RefundCDMID]=" + Me.cboRefundCDM
    vWhere = vWhere & " AND [RefundOptionID]=" + Me.cboRefundOption
    vWhere = vWhere & " AND [RefundCodeID]=" + Me.cboRefundCode

    If Nz(vWhere, "") = "" Then
        MsgBox "There are no search criteria selected." & vbCrLf & vbCrLf & _
        "Search Cancelled.", vbInformation, "Search Canceled."

    Else
        Set qd = db.CreateQueryDef("Query1", "SELECT * FROM tblRefundData WHERE " & _
        Mid(vWhere, 6))

        db.Close
        Set db = Nothing

        DoCmd.OpenQuery "Query1", acViewNormal, acReadOnly
    End If
End Sub

O exemplo a seguir mostra como definir a propriedade RowSource de uma caixa de combinação quando um formulário é carregado. Quando o formulário for exibido, os itens armazenados no campo Departments da caixa de combinação tblDepartment serão exibidos na caixa de combinação cboDept.The following example shows how to set the RowSource property of a combo box when a form is loaded. When the form is displayed, the items stored in the Departments field of the tblDepartment combo box are displayed in the cboDept combo box.

Código de exemplo fornecido por:Colaborador MVP Bill JelenMrExcel.comSample code provided by:MVP Contributor Bill Jelen,MrExcel.com

Private Sub Form_Load()
    Me.Caption = "Today is " & Format$(Date, "dddd mmm-d-yyyy")
    Me.RecordSource = "tblDepartments"
    DoCmd.Maximize  
    txtDept.ControlSource = "Department"
    cmdClose.Caption = "&Close"
    cboDept.RowSourceType = "Table/Query"
    cboDept.RowSource = "SELECT Department FROM tblDepartments"
End Sub

O exemplo a seguir mostra como criar uma caixa de combinação que esteja associada a uma coluna ao exibir outra. A configuração da propriedade ColumnCount como 2 especifica que a caixa de combinação cboDept exibirá as duas primeiras colunas da fonte de dados especificada pela propriedade RowSource. Configurar a propriedade BoundColumn como 1 especifica que o valor armazenado na primeira coluna será retornado quando você inspecionar o valor da caixa de combinação.The following example show how to create a combo box that is bound to one column while displaying another. Setting the ColumnCount property to 2 specifies that the cboDept combo box will display the first two columns of the data source specified by the RowSource property. Setting the BoundColumn property to 1 specifies that the value stored in the first column will be returned when you inspect the value of the combo box.

A propriedade ColumnWidths especifica a largura das duas colunas. Ao configurar a largura da primeira coluna como 0in., a primeira coluna não será exibida na caixa de combinação.The ColumnWidths property specifies the width of the two columns. By setting the width of the first column to 0in., the first column is not displayed in the combo box.

Código de exemplo fornecido por:Colaborador MVP Bill JelenMrExcel.comSample code provided by:MVP Contributor Bill Jelen,MrExcel.com

Private Sub cboDept_Enter()
    With cboDept
        .RowSource = "SELECT * FROM tblDepartments ORDER BY Department"
        .ColumnCount = 2
        .BoundColumn = 1
        .ColumnWidths = "0in.;1in."
    End With
End Sub

O exemplo a seguir mostra como adicionar um item a uma caixa de combinação associada.The following example shows how to add an item to a bound combo box.

Código de exemplo fornecido por:Referência do programador do Microsoft Access 2010Sample code provided by: The Microsoft Access 2010 Programmer's Reference

Private Sub cboMainCategory_NotInList(NewData As String, Response As Integer)

    On Error GoTo Error_Handler
    Dim intAnswer As Integer
    intAnswer = MsgBox("""" & NewData & """ is not an approved category. " & vbcrlf _
        & "Do you want to add it now?" _ vbYesNo + vbQuestion, "Invalid Category")

    Select Case intAnswer
        Case vbYes
            DoCmd.SetWarnings False
            DoCmd.RunSQL "INSERT INTO tlkpCategoryNotInList (Category) "
                & _ "Select """ & NewData & """;"
            DoCmd.SetWarnings True
            Response = acDataErrAdded
        Case vbNo
            MsgBox "Please select an item from the list.", _
                vbExclamation + vbOKOnly, "Invalid Entry"
            Response = acDataErrContinue

    End Select

    Exit_Procedure:
        DoCmd.SetWarnings True
        Exit Sub

    Error_Handler:
        MsgBox Err.Number & ", " & Error Description
        Resume Exit_Procedure
        Resume

End Sub

EventosEvents

NameName
AfterUpdateAfterUpdate
BeforeUpdateBeforeUpdate
ChangeChange
ClickClick
DblClickDblClick
DirtyDirty
EnterEnter
ExitExit
GotFocusGotFocus
KeyDownKeyDown
KeyPressKeyPress
KeyUpKeyUp
LostFocusLostFocus
MouseDownMouseDown
MouseMoveMouseMove
MouseUpMouseUp
NotInListNotInList
UndoUndo

MétodosMethods

NameName
AddItemAddItem
DropdownDropdown
MoveMove
RemoveItemRemoveItem
RequeryRequery
SetFocusSetFocus
SizeToFitSizeToFit
UndoUndo

PropriedadesProperties

NameName
AddColonAddColon
AfterUpdateAfterUpdate
AllowAutoCorrectAllowAutoCorrect
AllowValueListEditsAllowValueListEdits
ApplicationApplication
AutoExpandAutoExpand
AutoLabelAutoLabel
BackColorBackColor
BackShadeBackShade
BackStyleBackStyle
BackThemeColorIndexBackThemeColorIndex
BackTintBackTint
BeforeUpdateBeforeUpdate
BorderColorBorderColor
BorderShadeBorderShade
BorderStyleBorderStyle
BorderThemeColorIndexBorderThemeColorIndex
BorderTintBorderTint
BorderWidthBorderWidth
BottomMarginBottomMargin
BottomPaddingBottomPadding
BoundColumnBoundColumn
CanGrowCanGrow
CanShrinkCanShrink
ColumnColumn
ColumnCountColumnCount
ColumnHeadsColumnHeads
ColumnHiddenColumnHidden
ColumnOrderColumnOrder
ColumnWidthColumnWidth
ColumnWidthsColumnWidths
ControlsControls
ControlSourceControlSource
ControlTipTextControlTipText
ControlTypeControlType
DecimalPlacesDecimalPlaces
DefaultValueDefaultValue
DisplayAsHyperlinkDisplayAsHyperlink
DisplayWhenDisplayWhen
EnabledEnabled
EventProcPrefixEventProcPrefix
FontBoldFontBold
FontItalicFontItalic
FontNameFontName
FontSizeFontSize
FontUnderlineFontUnderline
FontWeightFontWeight
ForeColorForeColor
ForeShadeForeShade
ForeThemeColorIndexForeThemeColorIndex
ForeTintForeTint
FormatFormat
FormatConditionsFormatConditions
GridlineColorGridlineColor
GridlineShadeGridlineShade
GridlineStyleBottomGridlineStyleBottom
GridlineStyleLeftGridlineStyleLeft
GridlineStyleRightGridlineStyleRight
GridlineStyleTopGridlineStyleTop
GridlineThemeColorIndexGridlineThemeColorIndex
GridlineTintGridlineTint
GridlineWidthBottomGridlineWidthBottom
GridlineWidthLeftGridlineWidthLeft
GridlineWidthRightGridlineWidthRight
GridlineWidthTopGridlineWidthTop
HeightHeight
HelpContextIdHelpContextId
HideDuplicatesHideDuplicates
HorizontalAnchorHorizontalAnchor
HyperlinkHyperlink
IMEHoldIMEHold
IMEModeIMEMode
IMESentenceModeIMESentenceMode
InheritValueListInheritValueList
InputMaskInputMask
InSelectionInSelection
IsHyperlinkIsHyperlink
IsVisibleIsVisible
ItemDataItemData
ItemsSelectedItemsSelected
KeyboardLanguageKeyboardLanguage
LabelAlignLabelAlign
LabelXLabelX
LabelYLabelY
LayoutLayout
LayoutIDLayoutID
LeftLeft
LeftMarginLeftMargin
LeftPaddingLeftPadding
LimitToListLimitToList
ListCountListCount
ListIndexListIndex
ListItemsEditFormListItemsEditForm
ListRowsListRows
ListWidthListWidth
LockedLocked
NameName
NumeralShapesNumeralShapes
OldBorderStyleOldBorderStyle
OldValueOldValue
OnChangeOnChange
OnClickOnClick
OnDblClickOnDblClick
OnDirtyOnDirty
OnEnterOnEnter
OnExitOnExit
OnGotFocusOnGotFocus
OnKeyDownOnKeyDown
OnKeyPressOnKeyPress
OnKeyUpOnKeyUp
OnLostFocusOnLostFocus
OnMouseDownOnMouseDown
OnMouseMoveOnMouseMove
OnMouseUpOnMouseUp
OnNotInListOnNotInList
OnUndoOnUndo
ParentParent
PropertiesProperties
ReadingOrderReadingOrder
RecordsetRecordset
RightMarginRightMargin
RightPaddingRightPadding
RowSourceRowSource
RowSourceTypeRowSourceType
ScrollBarAlignScrollBarAlign
SectionSection
SelectedSelected
SelLengthSelLength
SelStartSelStart
SelTextSelText
SeparatorCharactersSeparatorCharacters
ShortcutMenuBarShortcutMenuBar
ShowOnlyRowSourceValuesShowOnlyRowSourceValues
SmartTagsSmartTags
SpecialEffectSpecialEffect
StatusBarTextStatusBarText
TabIndexTabIndex
TabStopTabStop
TagTag
TextText
TextAlignTextAlign
ThemeFontIndexThemeFontIndex
TopTop
TopMarginTopMargin
TopPaddingTopPadding
ValidationRuleValidationRule
ValidationTextValidationText
ValueValue
VerticalAnchorVerticalAnchor
VisibleVisible
WidthWidth

Sobre os colaboradoresAbout the Contributors

Luke Chung é o fundador e presidente da FMS, Inc. um fornecedor líder de soluções de banco de dados personalizado e ferramentas de desenvolvedor.Luke Chung is the founder and president of FMS, Inc., a leading provider of custom database solutions and developer tools.

UtterAccess é o fórum principal de wiki e a Ajuda do Microsoft Access. clique aqui para ingressar.UtterAccess is the premier Microsoft Access wiki and help forum. Click here to join.

Holy Macro! Livros publica livros de entretenimento para as pessoas que usam o Microsoft Office. Veja o catálogo completo em MrExcel.com.Holy Macro! Books publishes entertaining books for people who use Microsoft Office. See the complete catalog at MrExcel.com.

Wrox Press é impulsionada pelo programador para programador filosofia. Livros Wrox são escritos por programadores para programadores, ea marca Wrox significa soluções autoritárias para problemas de programação do mundo real.Wrox Press is driven by the Programmer to Programmer philosophy. Wrox books are written by programmers for programmers, and the Wrox brand means authoritative solutions to real-world programming problems.

Confira tambémSee also

Outros recursosOther resources

Referência do modelo de objeto do AccessAccess Object Model Reference
Membros do objeto ComboBoxComboBox Object Members

© 2018 Microsoft