un problema muy raro...
Publicado por guillermo (62 intervenciones) el 27/03/2006 14:48:59
buenas!...
otra vez debo pedir una mano...con mi programa pero esta vez es algo que no entiendo mucho....trata de que debo llenar un excel con datos de una tabla de access.....funcionaba muy bien y eso que tenia como 300 registros...ahora que deje solo 6 registros...no corre...
simplemente "no pasa " por la consulta que hago para rescatar los datos de la tabla....y se queda ahi no más.....ahora cuando vuelvo con los 300 registros....y ejecuto nuevamente todo esto....funciona de lo más bien!....
la verdad es que no entiendo que pasa....
coloco algo de cod.. como para que puedan apreciar... incluso probe ejecutandolo paso a paso....cuando habian menos registros y ahi se ejecuto correctamente.....por eso no lo entiendo muy bien...
de antemano gracias a todos....
...
Call Formato_Excel(24, Heading()) 'llamamos a la funcion que da el formato al nuevo workbook
ObjExcel.ActiveWorkbook.Windows.Application.WindowState = xlMinimized
Me.MousePointer = vbHourglass
V = 5
H = 1
If RST.State = 1 Then RST.Close
SQL = "SELECT * FROM " & Label2
RST.Open SQL, conex
If Not RST.EOF And Not RST.BOF Then '///llenamos el Excel
...
Saludos
otra vez debo pedir una mano...con mi programa pero esta vez es algo que no entiendo mucho....trata de que debo llenar un excel con datos de una tabla de access.....funcionaba muy bien y eso que tenia como 300 registros...ahora que deje solo 6 registros...no corre...
simplemente "no pasa " por la consulta que hago para rescatar los datos de la tabla....y se queda ahi no más.....ahora cuando vuelvo con los 300 registros....y ejecuto nuevamente todo esto....funciona de lo más bien!....
la verdad es que no entiendo que pasa....
coloco algo de cod.. como para que puedan apreciar... incluso probe ejecutandolo paso a paso....cuando habian menos registros y ahi se ejecuto correctamente.....por eso no lo entiendo muy bien...
de antemano gracias a todos....
...
Call Formato_Excel(24, Heading()) 'llamamos a la funcion que da el formato al nuevo workbook
ObjExcel.ActiveWorkbook.Windows.Application.WindowState = xlMinimized
Me.MousePointer = vbHourglass
V = 5
H = 1
If RST.State = 1 Then RST.Close
SQL = "SELECT * FROM " & Label2
RST.Open SQL, conex
If Not RST.EOF And Not RST.BOF Then '///llenamos el Excel
...
Saludos
Valora esta pregunta
0