** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - CREAR BARRA DE AVANCE O PROGRESO
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCREAR BARRA DE AVANCE O PROGRESO

 Responder Responder
Autor
Mensaje
JJESTRADAMO Ver desplegable
Nuevo
Nuevo


Unido: 13/Enero/2016
Localización: MEXICO
Estado: Sin conexión
Puntos: 13
Enlace directo a este mensaje Tema: CREAR BARRA DE AVANCE O PROGRESO
    Enviado: 21/Abril/2016 a las 19:32
Buenas tardes,

Tengo una BD bastante amplia y para simplificar un poco "anide" en código VBA la ejecucción varias consultas.
Para poder ejecutar este código, lo hice a través del Aministrador de panel de Control, donde se le indica que ejecute el código cuando se selecciona dicha opción.

Entonces corre el ejemplo abajo descrito, deshabilite en Access las confirmaciones de las consultas y necesito poner una barra de progreso de como va el avance, ya que hay casos que se ejecutsn más de 20 consultas dependiendo el proceso que se está realizando y hay algunas muy rápidas pero hay otras que tardan mucho.

No he podido encontrar la forma de poder realizar esto, por lo que les agradezco el apoyo que me puedan brindar.

Function Macro2()
On Error GoTo Macro2_Err

DoCmd.OpenQuery "B004 403_ACT_CAMPOS_A_R04", acViewNormal, acEdit
DoCmd.OpenQuery "B005 403_ACT_FREC_PAGOS", acViewNormal, acEdit
DoCmd.OpenQuery "B006 403_ACT_Num_Pagos", acViewNormal, acEdit
DoCmd.OpenQuery "B007 CORRIGE UU", acViewNormal, acEdit
DoCmd.OpenQuery "B008 403_ACT_IMPORTE_PAGOS_EN_CERO Y CON FECHA PAGO", acViewNormal, acEdit
DoCmd.OpenQuery "B009 403_ACT_IMPORTE_PAGOS_EN_MENORES A 1", acViewNormal, acEdit
DoCmd.OpenQuery "B010 403_ACT_IMPORTE_PAGOS_MENORES A RESPTOT", acViewNormal, acEdit
DoCmd.OpenQuery "B011 LIQUIDADOS", acViewNormal, acEdit
DoCmd.OpenQuery "B012 PAGOS", acViewNormal, acEdit
DoCmd.OpenQuery "B013 LIMPIA_BASE_PARA_CONVERTIDOR", acViewNormal, acEdit
DoCmd.OpenQuery "B014 BASE_EMPRESA_CREDITO_BURO", acViewNormal, acEdit
DoCmd.OpenQuery "C_01_REVISA_FECHAAPER_FECHALIQ_IGUAL", acViewNormal, acEdit
DoCmd.OpenQuery "C_02_ARREGLA SALDO INSOLUTO", acViewNormal, acEdit
DoCmd.OpenQuery "C_03_ELIMINA SIN FECHAS DE INCUMPLIMIENTO", acViewNormal, acEdit
DoCmd.OpenQuery "C_04_ARREGLA SALDO INicial", acViewNormal, acEdit
DoCmd.OpenQuery "C_05_ELIMINA LIQUIDADOS CON ESPACIOS", acViewNormal, acEdit
DoCmd.OpenQuery "C_06_ARREGLA FACCION", acViewNormal, acEdit
DoCmd.OpenQuery "C_07_ELIMINA_CATALOGOS_MAL", acViewNormal, acEdit


Macro2_Exit:
Exit Function

Macro2_Err:
MsgBox Error$
Resume Macro2_Exit

End Function
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 10841
Enlace directo a este mensaje Enviado: 21/Abril/2016 a las 19:53
Échale un vistazo a:

Application.SysCmd


Tienes dos opciones:
- una barra de progreso ( acSysCmdInitMeteracSysCmdUpdateMeteracSysCmdRemoveMeter)
- un literal de que está haciendo (acSysCmdSetStatus, acSysCmdClearStatus),

 .... yo suelo usar el segundo.



Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
JJESTRADAMO Ver desplegable
Nuevo
Nuevo


Unido: 13/Enero/2016
Localización: MEXICO
Estado: Sin conexión
Puntos: 13
Enlace directo a este mensaje Enviado: 21/Abril/2016 a las 23:29
Gracias, acabo de leer al respecto de Application.SysCmd, pero en verdad no le entiendo como incorporarla al código actual.
Arriba
emiliove Ver desplegable
Moderador
Moderador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 4920
Enlace directo a este mensaje Enviado: 22/Abril/2016 a las 00:27
Y miraste en mis funciones favoritas, en la de los Maestros, ya hiciste una búsqueda, pues es un tema que ya se a mencionado. Por ejemplo de Emilio Sancha:
http://www.mvp-access.es/emilio/busqueda.asp?Palabra=Progreso

Saludos.
Arriba
JJESTRADAMO Ver desplegable
Nuevo
Nuevo


Unido: 13/Enero/2016
Localización: MEXICO
Estado: Sin conexión
Puntos: 13
Enlace directo a este mensaje Enviado: 22/Abril/2016 a las 16:36
Si ya las tengo, pero no he podido incorporalas en el código VBA como puse en el ejemplo, siempre me marca un error y no puedo hacer que se vea el avance de cada cionsulta para cada macro
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable