:P Ola necesitaria saber como Duplicar registros filtrados Con ADo. Intente usando un Vector dinamico
Dim i as Integer
with db.recordset
if not .bof then .movefirst
For i = 1 to .recordcount (Cantidad de Registros Filtrados)
Codigo(i) = !Codigo
Producto(i) = !Producto
.movenext
next i
end with
Bueno es algo asi lo que hice pero el problema es que me dice , "el sub Indice esta fuera del intervalo" :(
Agradeceria mucho su ayuda .
Gracias, Pero sha enconte la forma, Creando un vector y un Reg definido por el usuario
TYPE T_DB
CODIGO () AS STRING
PRODUCTO () AS STRING
PAGINA () AS INTEGER
....
END TYPE
PUBLIC BASE() AS T_DB
Y ANTES DE EMPEZAR A CONTAR, CUANDO SE CUANTOS REGISTROS TENGO DESPUES DE FILTRARLOS , REDIMENSIONO EL VECTOR
REDIM BASE (0 TO DB.RECORDSET.RECORDCOUNT)
------------
DESPUES DE TANTO ESO ERA TODO