Specify the Column in a Multi-Column List Box to Store Data for the Control

  • Article

The following example demonstrates how the BoundColumn property influences the value of a ListBox. The user can choose to set the value of the ListBox to the index value of the specified row, or to a specified column of data in the ListBox.

To use this example, copy this sample code to the Script Editor of a form. To run the code you need to open the form so the Open event will activate. Make sure that the form contains:

  • A ListBox named ListBox1.

  • A Label named Label1.

  • Three OptionButton controls named OptionButton1, OptionButton2, and OptionButton3.

Dim Listbox1 
Dim OptionButton1 
Dim OptionButton2 
Dim OptionButton3 
Dim Label1 
 
Sub Item_Open 
 Set Listbox1 = Item.GetInspector.ModifiedFormPages("P.2").Listbox1 
 Set OptionButton1 = Item.GetInspector.ModifiedFormPages("P.2").OptionButton1 
 Set OptionButton2 = Item.GetInspector.ModifiedFormPages("P.2").OptionButton2 
 Set OptionButton3 = Item.GetInspector.ModifiedFormPages("P.2").OptionButton3 
 Set Label1 = Item.GetInspector.ModifiedFormPages("P.2").Label1 
 
 Listbox1.ColumnCount = 2 
 Listbox1.AddItem "Item 1, Column 1" 
 Listbox1.List(0, 1) = "Item 1, Column 2" 
 Listbox1.AddItem "Item 2, Column 1" 
 Listbox1.List(1, 1) = "Item 2, Column 2" 
 Listbox1.Value = "Item 1, Column 1" 
 OptionButton1.Caption = "List Index" 
 OptionButton2.Caption = "Column 1" 
 OptionButton3.Caption = "Column 2" 
 OptionButton2.Value = True 
End Sub 
 
Sub OptionButton1_Click 
 Listbox1.BoundColumn = 0 
 Label1.Caption = Listbox1.Value 
End Sub 
 
Sub OptionButton2_Click 
 Listbox1.BoundColumn = 1 
 Label1.Caption = Listbox1.Value 
End Sub 
 
Sub OptionButton3_Click 
 Listbox1.BoundColumn = 2 
 Label1.Caption = Listbox1.Value 
End Sub 
 
Sub Listbox1_Click 
 Label1.Caption = Listbox1.Value 
End Sub

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.