compileer Foutmelding

[harolda1980]

De foutmelding zoals op de foto weergegeven komt uit niets op 1 pc
zonder dat er iets gewijzigd is.

Heeft iemand een idee wat er gebeurd en hoe ik deze kan verhelpen?

 

[Guus2005]

wat voor control is lswerk? een listbox heeft geen event die itemclick heet. een combobox ook niet.

Je gebruikt een control die een itemclick event heeft met mscomctllib.listitem als argument.

Waarom gebruik je niet de default listbox control?

HTH

 

[harolda1980]

Ja dat is een listbox en itemclick staat officeel in de lijst van functies vandaar dat ik hem gebruik

Hoe kan ik hier vanaf komen? Ik ben deze gaan gebruiken omdat ik niks anders kon vinden.

Je gebruikt een control die een itemclick event heeft met mscomctllib.listitem als argument.

Waarom gebruik je niet de default listbox control?

 

[OctaFish]

Je kunt hetzelfde doen met AfterUpdate of OnChange. Ik ken Itemclick zo ook niet; heb je niet ergens een bibliotheek geladen die je misschien niet eens nodig hebt?

 

[harolda1980]

Welke optie moet ik dan nemen als ik een regel geselecteerd heb van die twee.
Daarbij heb ik een foto meegenomen om te laten zien welke verwijzingen in heb ingeladen.

Ik hoor graag welke er niet goed zou moeten zijn!

 

[Guus2005]

als je een (of meer) regel hebt geselecteerd kan je die als volgt doorlopen:

    Dim ctl    As Control
    Dim varItm As Variant
    
    Set ctl = Me.lstwerk
    For Each varItm In ctl.ItemsSelected
        debug.print ctl.ItemData(varItm)
    Next varItm

Succes!

 

[harolda1980]

Alleen werk ik niet met een listbox maar met een listview!

Ik heb hem enig sinds aangepast en krijg nu deze melding.

 

[Guus2005]

weet je zeker dat er een control is met de naam lsfbo?

 

[harolda1980]

Ja dat weet ik zeker.. dat is het rare ook want alles werkt en dan opeens valt de listview eruit!