Error de automatización al usar MSGraphs
Publicado por Ana (80 intervenciones) el 03/06/2011 12:29:31
Hola a todos,
Tengo un control MSGraph incrustado en mi aplicación que relleno con VBA mediante la ejecución de varios recordset complicados.
A petición del usuario, el gráfico puede ser refrescado en el formulario en el que está incrustado. Bien, pues las dos primeras veces que pinto el gráfico no tengo ningún problema, pero la tercera vez (siempre la tercera vez), obtengo el error: "-2147220995 Error de automatización"
Tengo definidas las variables Graph_Data y objDataSheet como Object. El error se produce en la segunda línea del código que veis abajo:
Set Graph_Data = Me.grafResumenAsistencia.Object
Set objDataSheet = Graph_Data.Application.DataSheet
Parece que el objeto Graph_Data no es nulo, pero está vacío (o sea IsNothing es falso). Repito: las dos primeras veces se ejecuta sin problemas este código, pero a la tercera se estrella.
He rebuscado en la red pero sólo encuentro una posible respuesta en una web de pago:
http://www.experts-exchange.com/Microsoft/Development/MS_Access/Q_21547279.html
y preferiría no tener que recurrir a ello...
¿Alguien puede ayudarme?
Muchas gracias
Tengo un control MSGraph incrustado en mi aplicación que relleno con VBA mediante la ejecución de varios recordset complicados.
A petición del usuario, el gráfico puede ser refrescado en el formulario en el que está incrustado. Bien, pues las dos primeras veces que pinto el gráfico no tengo ningún problema, pero la tercera vez (siempre la tercera vez), obtengo el error: "-2147220995 Error de automatización"
Tengo definidas las variables Graph_Data y objDataSheet como Object. El error se produce en la segunda línea del código que veis abajo:
Set Graph_Data = Me.grafResumenAsistencia.Object
Set objDataSheet = Graph_Data.Application.DataSheet
Parece que el objeto Graph_Data no es nulo, pero está vacío (o sea IsNothing es falso). Repito: las dos primeras veces se ejecuta sin problemas este código, pero a la tercera se estrella.
He rebuscado en la red pero sólo encuentro una posible respuesta en una web de pago:
http://www.experts-exchange.com/Microsoft/Development/MS_Access/Q_21547279.html
y preferiría no tener que recurrir a ello...
¿Alguien puede ayudarme?
Muchas gracias
Valora esta pregunta


0