[VBA] Access listbox vullen dmv listbox.additem kan niet???

[FitNiX]

Ik ben bezig met een form in MS Access. Ik heb echter een probleem:
Ik heb een combobox(1) en een listbox(2).

Ik wil dat die listbox afhankelijk van de gekozen optie in de combobox(1) wordt gevuld met bepaalde waarden.
Dus als er bij 1 een bepaalde categorie wordt gekozen, dan moet de listbox(2) gevuld worden met waarden uit een database waarbij de categorie dezelfde is als die gekozen is in de combobox(1).

Ik weet dat het in Visual Basic kan dmv listbox.additem. Maar dat werkt niet in VBA
Het rare is dat er in een aantal topics die ik vind met de search staat dat het wel kan.....

gevonden in deze thread uit onderstaande search.
listbox.additem x

Maar dat werkt dus niet bij mij in Access. De functie additem wordt niet ondersteund.
Hierzo stond bijna hetzelfde, maar dit werkt bij mij toch echt niet

Dit is de compile fout die ik krijg:



[search]
[search=VBA Access]
[/search]

[Verwijderd]

Zie [rml][ Access97 / VBA] listbox.additem wil niet lukken[/rml]

[Edit]
Goede uitvoerige probleembeschrijving btw.

[FitNiX]

Zal eens kijken.....
Gebruik BTW Access 2000

[FitNiX]

YES, heb hem net gevonden, t*ring, enkele uren op gezeten. Terwijl het zo simpel is
Voor de nieuwsgierigen onder ons is hier de oplossing:

• Zorg ervoor dat de listbox ingesteld is als: Table/View/StoredProc
• Daaronder bij Datasource vul je niets in.
• Vervolgens zet je in je code het volgende:

code:

'Haalt de modulen horende bij de categorie op
Private Sub combobox_Change()
    Dim sCategorie As String
    Dim sQuery As String

    'Haalt de gekozen categorie op uit de combobox
    sCategorie = combobox.Value

    'Haalt alle modules op die horen bij die categorie.
    sQuery = "SELECT m.Name FROM module m, categorie_module cm WHERE cm.ukeyCat ='" & sCategorie & "'"
    
    listbox.RowSource = sQuery
End Sub

Voila


Sorry voor de layout