** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Reloj Arena
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoReloj Arena

 Responder Responder
Autor
Mensaje
CacoMarco Ver desplegable
Asiduo
Asiduo


Unido: 12/Octubre/2011
Localización: Chile
Estado: Sin conexión
Puntos: 283
Enlace directo a este mensaje Tema: Reloj Arena
    Enviado: 31/Enero/2019 a las 00:49
Buenas noches estimados.
Tengo consultas que se ejecutan en forma seguida y demoran cerca de 30 segundos en ejecutarse.

DoCmd.SetWarnings False
DoCmd.OpenQuery "QryAnexarProductosaTablaProductos"
DoCmd.Close acQuery, "QryAnexarProductosaTablaProductos"
DoCmd.SetWarnings True

DoCmd.SetWarnings False
DoCmd.OpenQuery "QryCreaTablaCodigosTemporal"
DoCmd.Close acQuery, "QryCreaTablaCodigosTemporal"
DoCmd.SetWarnings True

En qué lugar del código debo poner Screen.MousePointer = vbHourglas para que el mouse cambie a Reloj de arena y Screen.MousePointer = vbDefault para cuando termine de ejecutarse ?

Saludos y gracias como siempre.
CacoMarco/Chile
Arriba
CacoMarco Ver desplegable
Asiduo
Asiduo


Unido: 12/Octubre/2011
Localización: Chile
Estado: Sin conexión
Puntos: 283
Enlace directo a este mensaje Enviado: 31/Enero/2019 a las 01:08
Sorry, aquí mismo encontré la respuesta.
DoCmd.SetWarnings True al comienzo de la sentencia y
DoCmd.SetWarnings False al final

Gracias,

Thumbs Up Pueden cerrar el hilo.
CacoMarco/Chile
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable