Error nummer 2176

[mulderm]

Hallo,

Ik heb een formulier gemaakt met daarin een
keuzelijst met invoervak met de volgende code:

Private Sub Form_Load()

Dim bestand As String
Dim lijst As String
Dim pad As String
pad = "c:\bal"
bestand = Dir(pad & "NN*.xls")
Do Until bestand = ""
lijst = lijst & bestand & ";"
bestand = Dir()
Loop
Me.cmbBestanden.RowSource = lijst
end sub

Er zijn in totaal 1945 bestanden met de naam beginnend
met NN*.xls.
Bij het oproepen komen de bestandsnamen netjes in de
keuzevak te staan.
Nu zijn het aantal bestandsnamen uitgebreid tot een
aantal van 2500!
En nu krijg ik een foutmelding van Access:
Errornr: 2176
The setting for this property is too long.
En de keuzevak blijft leeg.

Hoe kan ik dit oplossen??
Ik hoop dat iemand mij kan helpen.

Groeten,
mulderm

 

[Bartuls]

Het maximum aantal tekens dat je in een RowSource propertie mag zetten is 32750. Daar kom je overheen en dan krijg je die foutmelding.
Dat is in principe niet oplosbaar, je hebt gewoon het maximum van de propertie bereikt. Dat maximum kun je niet aanpassen.

2500 entries in een keuzelijst is wel veel, dat is in de meeste gevallen niet echt werkbaar meer.

Het beste dat je hier kunt doen is zorgen dat er niet zoveel entries in de keuzelijst komen.

Kun je niet een paar preselecties maken waardoor er minder entries in de keuzelijst komen?

 

[mulderm]

Bartuls,

Bedankt voor je reactie.
Inderdaad,een keuzelijst met zoveel bestanden is
niet handig.
Ik heb als vervanging gewoon een Inputbox toegepast.

mulderm