Удалить все элементы из ComboBox?

Question

Как программно удалить все элементы из выпадающего списка в VBA?

Answer 1

Код Psuedo впереди (обновляется с помощью фактического кода):

Do While ComboBox1.ListCount > 0
    ComboBox1.RemoveItem (0)
Loop

Как правило, пока у вас есть предметы, удалите первый элемент из списка. После того, как все предметы будут удалены (количество = 0), ваш ящик пуст.

Способ 2: еще лучше

ComboBox1.Clear

Answer 2

К сожалению, вам нужно удалить каждого из них:

       For i = 1 To ListBox1.ListCount

           'Remove an item from the ListBox using ListBox1.RemoveItem 
       Next i

Обновление - я не знаю, почему мой ответ не включал полное решение:

For i = ListBox1.ListCount - 1 to 0 Step - 1 
        ListBox1.RemoveItem i 
Next i 

Answer 3

Самый простой способ:

Combobox1.RowSource = ""  'Clear the list
Combobox1.Clear           'Clear the selected text

Answer 4

Вы можете использовать метод ControlFormat:

ComboBox1.ControlFormat.RemoveAllItems

Answer 5

Лучший способ:

Combobox1.items.clear();

Answer 6

Для Access VBA, который не предоставляет метод .clear в выпадающих списках пользовательских форм, это решение работает без нареканий:

   If cbxCombobox.ListCount > 0 Then
        For remloop = (cbxCombobox.ListCount - 1) To 0 Step -1
            cbxCombobox.RemoveItem (remloop)
        Next remloop
   End If

Answer 7

me.Combobox1.Clear

Это распространенный метод

Answer 8

Private Sub cmdClear_Click()
    ComboBox1.Value = Null
    ComboBox2.Value = Null
End Sub

Answer 9

В Access 2013 я только что проверил это:

While ComboBox1.ListCount > 0
    ComboBox1.RemoveItem 0
Wend

Интересно, что если вы зададите список элементов в Свойствах, он не будет утерян при выходе из представления формы и возвращении в представление дизайна.