Pilar Tellez
19 de Diciembre del 2008

Hola a todos: necesito que me aclaren una duda con el llenado de un combobox, tengo una tabla en access que almacena elementos quimicos que contiene mas de 1500 registros, al programar el codigo visual de llenado no me muestras la informacion, porq tengo la impresion que el codigo que uso no acepta tantos registros que es el siguiente:

sub llenar_qco()
while not quimico eof
combo1.additem quimico ("nom_quimico")
quimico.movenext
wend
end sub

porfa si alguien sabe, agradesco la ayuda, y en caso de ser veridico lo que digo, porfa sugieranme otro codigo de llenado de combo que permita ver alrededor de 2000 registros.

mvallejos
19 de Diciembre del 2008

El problema no es la cantidad de registros, si el combo no se llena es porque posiblemente el recordset esté vacio o bien el puntero se encuentra al final del conjunto de resultados, es decir, ya está en el EOF.

Fijate este cambio

sub llenar_qco()
If quimico.recordcount <=0 Then
msgbox " No hay registros para llenar"
exit sub
end if
combo1.Clear
quimico.MoveFirst
while not quimico eof
combo1.additem quimico ("nom_quimico")
quimico.movenext
wend
end sub