The topic you requested is included in another documentation set. For convenience, it's displayed below. Choose Switch to see the topic in its original location.

Adding (All) Options to Combo Boxes or List Boxes in Access 2007

Office 2007

This content is outdated and is no longer being maintained. It is provided as a courtesy for individuals who are still using these technologies. This page may contain URLs that were valid when originally published, but now link to sites or pages that no longer exist.

Summary: Learn how to add an (All) entry to the list of items displayed in a list box or combo box in Access 2007.

Office Visual How To

Applies to: 2007 Microsoft Office System, Microsoft Office Access 2007

Joel Krist, Akona Systems

May 2007


Developers frequently use list boxes and combo boxes in Microsoft Office Access 2007 forms to let users specify selection criteria. Adding an (All) option to the list of items can be helpful in scenarios when users might want to select all the items in the list.

This Office Visual How To illustrates how to add an (All) entry to the list of items displayed in a list box or combo box in Access 2007.

Code It

Download the Code Sample

This section describes the two key steps:

  1. Creating the custom function that adds the (All) option to a list or combo box.

  2. Setting the RowSourceType property of the list or combo box to the name of the function.

To create the custom function

  1. In Office Access 2007, select the Database Tools tab on the Office Fluent Ribbon.

  2. In the Macro group, click Visual Basic.

  3. To create a new module, on the Insert menu, click Module.

  4. Next, add the following code for the AddAllToList function to the new module, and then save the module.

    Function AddAllToList(ctl As Control, lngID As Long, _
        lngRow As Long, lngCol As Long, _
        intCode As Integer) As Variant
        Static dbs As Database, rst As Recordset
        Static lngDisplayID As Long
        Static intDisplayCol As Integer
        Static strDisplayText As String
        Dim intSemiColon As Integer
        On Error GoTo Err_AddAllToList
            Select Case intCode
                Case acLBInitialize
                    ' See if function is already in use.
                    If lngDisplayID <> 0 Then
                        MsgBox "AddAllToList is already in use!"
                        AddAllToList = False
                        Exit Function
                    End If
                    ' Parse the display column and display text
                    ' from the Tag property.
                    intDisplayCol = 1
                    strDisplayText = "(All)"
                    If Not IsNull(ctl.Tag) And (ctl.Tag <> "") Then
                        intSemiColon = InStr(ctl.Tag, ";")
                        If intSemiColon = 0 Then
                            intDisplayCol = Val(ctl.Tag)
                            intDisplayCol = _
                            Val(Left(ctl.Tag, intSemiColon - 1))
                            strDisplayText = Mid(ctl.Tag, intSemiColon + 1)
                        End If
                    End If
                    ' Open the recordset defined in the 
                    ' RowSource property.
                    Set dbs = CurrentDb
                    Set rst = dbs.OpenRecordset(ctl.RowSource, _
                    ' Record and return the lngID for this 
                    ' function.
                    lngDisplayID = Timer
                    AddAllToList = lngDisplayID
                Case acLBOpen
                    AddAllToList = lngDisplayID
                Case acLBGetRowCount
                    ' Return number of rows in recordset.
                    On Error Resume Next
                    AddAllToList = rst.RecordCount + 1
                Case acLBGetColumnCount
                    ' Return number of fields (columns) in recordset.
                    AddAllToList = rst.Fields.Count
                Case acLBGetColumnWidth
                    AddAllToList = -1
                Case acLBGetValue
                    If lngRow = 0 Then
                        If lngCol = 0 Or lngCol = intDisplayCol Then
                            AddAllToList = strDisplayText
                        End If
                        rst.Move lngRow - 1
                        AddAllToList = rst(lngCol)
                    End If
                Case acLBEnd
                    lngDisplayID = 0
            End Select
        Exit Function
        MsgBox Err.Description, vbOKOnly + vbCritical, "AddAllToList"
        AddAllToList = False
        Resume Bye_AddAllToList
    End Function

The next step is to direct Access to call the new AddAllToList function when it inserts items into the item list of a list or combo box.

To set the RowSourceType property

  1. To open the form that contains the list box or combo box in design view, in the Navigation Pane, right-click the form's name, and then select Design View.

  2. Right-click the list or combo box on the form and select Properties.

  3. In the Properties dialog box, select the Data tab to display the data-related properties.

  4. Locate the RowSourceType property and set its value to AddAllToList.

Save the form and then display it in Form View. The list of items in the list or combo box should now display an (All) item.

Read It

Developers use list boxes and combo boxes in Access 2007 forms to let users specify selection criteria. For example, a common scenario is to bind a combo box display list to an Access database table and map the list items to the items in the table rows. In some scenarios, it might be useful to add an (All) option to the list of items so that the user can specify all items in the combo box.

To add an (All) item to the list, you first create a custom function that adds the option to the list box or combo box, and then you set the RowSourceType property to the name of this function.

See It

Adding All Options to Combo Boxes or List Boxes

Watch the Video

Video Length: 00:07:26

File Size: 6.12 MB WMV

Visual How-To Code iconGrab the Code

Explore It
© 2015 Microsoft