Combobox apresentando apenas 1700 linhas(valores)

Pessoal mais uma dúvida

Estou utilizando o seguinte código para povoar uma combobox:

Código:

Public Function preenche_produtor(combodestino As ComboBox, idmunicipio As ListBox)
If idmunicipio > 0 Then
combodestino.Value = ""
buscaSQL = "SELECT [campo1] FROM exploracao_mun1 " & _
          "GROUP BY [campo1]"
Debug.Print buscaSQL
CurrentDb.OpenRecordset buscaSQL
Set prodmun = CurrentDb.OpenRecordset(buscaSQL)
combodestino.RowSourceType = "Value List"
combodestino.RowSource = ""
combodestino.AddItem "PRODUTOR"
Do While Not prodmun.EOF
combodestino.AddItem prodmun!campo1
prodmun.MoveNext
Loop
combodestino.ColumnHeads = True
prodmun.Close
Set prodmun = Nothing
Else
combodestino.Value = ""
buscaSQL = "SELECT [campo1] FROM exploracao_mun2 " & _
          "GROUP BY [campo1]"
Debug.Print buscaSQL
CurrentDb.OpenRecordset buscaSQL
Set prodmun = CurrentDb.OpenRecordset(buscaSQL)
combodestino.RowSourceType = "Value List"
combodestino.RowSource = ""
combodestino.AddItem "PRODUTOR"
Do While Not prodmun.EOF
combodestino.AddItem prodmun!campo1
prodmun.MoveNext
Loop
combodestino.ColumnHeads = True
prodmun.Close
Set prodmun = Nothing
End If
End Function

Notem que ele utiliza recordset
o problema é que ele me retorna somente 1700 valores, e eu preciso que ele me retorne mais, todos os da tabela.
alguem tem alguma idéia? ou um código que possa substituir este com a mesma funcionalidade?

Quando usado como Lista de valores (.addItem), a lista fica limitada em 2048 caractares.

Ou vc volta a usar os dados vinculados a tabela ou vc gera uma tabela temporaria local, em tempo de execução, para alimentar as combobox.

O que prentende ? Utilizar os dados vinculados a tabela ou desvinculado ?

Ola Avelino
Obrigado pelo rápido feedback.
Acho que vou acabar usando o de dados vinculados! a outra solução que tu citaste é melhor do ponto de vista funcional? eu uso todos os campo dos formulários de forma desvinculada! acha que pode atrapalhar em algo?

Fiquei curioso sobre a solução da tabela temporária, como seria?

Neste meu artigo tem uma vídeo-aula que vc poderá baixar para assistir.

http://www.usandoaccess.com.br/dicas/dica32.asp?id=1#inicio

Sucesso!

Olá

Fiz uma atualização do aplicativo exemplo Maestro. Incoporei a função que gera tabelas em tempo de execução.

Tem um exemplo de formulário desacoplado, que usei a criação da tabela temporaria, para carragar a combobox de consulta.

Tem outro exemplo, de uma listbox, que utilizo a tabela temporaria para realizar a pesquisa do lado do fron-end.

http://www.usandoaccess.com.br/download.asp

Bom estudo!