Supprimer tous les éléments d'un ComboBox?

Comment pouvez-I du programme, retirez tous les éléments d'une zone de liste déroulante dans VBA?

source d'informationauteur sooprise | 2010-06-08

Vous devez supprimer individuellement malheureusement:

       For i = 1 To ListBox1.ListCount

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

Mise à jour - je ne sais pas pourquoi ma réponse n'incluent pas la solution complète:

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

26

Pseudo code de l'avance (mis à jour avec code):
```
Do While ComboBox1.ListCount > 0
    ComboBox1.RemoveItem (0)
Loop
```
En gros, tandis que vous avez des articles, supprimer le premier élément de la liste déroulante. Une fois que tous les éléments ont été supprimés (count = 0), votre boîte est vide.

Méthode 2: Encore mieux
```
ComboBox1.Clear
```

La façon la plus simple:

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

5

Vous pouvez utiliser le ControlFormat méthode:
```
ComboBox1.ControlFormat.RemoveAllItems
```
4

Meilleure Façon:
```
Combobox1.items.clear();
```
0

Dans Access 2013, je viens de testé ce:
```
While ComboBox1.ListCount > 0
    ComboBox1.RemoveItem 0
Wend
```
Fait intéressant, si vous définissez l'élément de la liste de Propriétés, ce n'est pas perdu lorsque vous quittez le mode Formulaire et le retourner à la Vue de Conception.

Pour l'Accès VBA, ce qui ne fournit pas .méthode claire sur le formulaire utilisateur comboboxes, cette solution fonctionne parfaitement pour moi:

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

-1

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

-1

moi.Combobox1.Claire

C'est la méthode commune

Vous devez vous connecter pour publier un commentaire.