Listbox automatisch leeg maken (Acces)

[Rap261]

Goedemorgen,

Ik zit nog met een kleine aanpassing in onderstaande code.

Ik heb een Combobox en een Listbox. Wanneer men een keus maakt in de Combo dan verschijnen er een aantal opties in de Listbox. Maakt men een andere keus in de Combo dan verschijnen er andere opties in de Listbox enz enz.

Op zich werkt dit prima maar het probleem is dat bij het maken van een andere keus de "vorige" opties blijven staan in de Listbox. Deze moeten automatisch verwijderd worden zodat alleen de nieuwe opties zichtbaar worden.

Onderstaand het script dat nu gebruikt wordt.

Private Sub Combo1_BeforeUpdate(Cancel As Integer)
dim intIndex as integer
  intIndex=Combo1.ListIndex
      FollowLink (intIndex)
End Sub

Private Sub FollowLink(ByVal intIndex As Integer)
Select Case intIndex
Case 0
List1.AddItem ("Gelukt")
Case 1
List1.AddItem ("En nog een keer")
End Select
End Sub

Oplossingen als: List1.clear, Me.List1.Clear of Userform.List1.clear hebben niet geholpen.

Wie heeft een oplossing hiervoor?
Mijn dank is groot

 

[Rap261]

Gevonden

Voor bovengenoemd probleem is ondergenoemd de oplossing

Me.List1.RowSource = ""

Vraag is opgelost