Error number: 2176

[mulderm]

Hello,

I have a form with a Combobox and the follow 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

There are totally 1945 files beginning with NN*.xls.
So far no problem.
Now are the files expand to 2500 files!
And now I get the fault warning from Access:
Error number: 2176
The setting for this property is too long.

And the ComboBox is now empty.
Who can help me with this problem?

Greetings,

mulderm

 

[RuralGuy]

There is a 32,750 character limit to the RowSource of a control. You may want to put the names in a temporary table in a temporary mdb instead.

 

[mulderm]

What´s the code do put the filenames in a table of a new mdb file?

mulderm

 

[RuralGuy]

You might try this code.

 

[ghudson]

Searching the forum is a great way to discover and learn the answers to your Access programming questions.

Check this out for a working sample... Browse [Find a directory or file]