Controlar el tiempo de ejecución de una consulta.

¡Importante!: Colabora con el grupo. Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
Hola!
un msgbox interrumpe el proceso hasta que se pulsa un botón, por lo que no
te sirve para lo que pretendes, habrás de abrir un formulario personalizado
al empezar el proceso y cerrarlo al terminar.

En mi web tienes un ejemplo.

Saludos a todos
Emilio [MS-MVP Access 2006/10]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"isidorodos" escribió en el mensaje
news:
Buenos días:

Tengo un botón que al hacer clic ejecuta en cascada 3 consultas.

Con MsgBox quiero poner un mensaje en el momento de hacer clic y que
se muestre hasta que se termine la acción de la última consulta pero
no se como hacerlo

Ejemplo

Private Sub cmdCalcular_Click()
Msgbox "Se está calculando lo que sea, espere un momento" 'Tiene que
pasar automáticamente a ejecutar las consultas.
DoCmd.OpenQuery "Consulta1", acViewNormal
DoCmd.OpenQuery "Consulta1", acViewNormal
DoCmd.OpenQuery "Consulta1", acViewNormal
'Cuando lleguemos aquí el mensaje tiene que desaparecer

Mas o menos es eso.

Un saludo y gracias.

Hola
Utiliza el objeto SysCmd

dim Var as variant
var = SysCmd(acSysCmdSetStatus, "Se está calculando lo que sea,
espere un momento...")
DoCmd.OpenQuery "Consulta1", acViewNormal
DoCmd.OpenQuery "Consulta1", acViewNormal
DoCmd.OpenQuery "Consulta1", acViewNormal
var = SysCmd(acSysCmdSetStatus, " ")

Otra opción sería que pusieras un objeto label en tu formulario, y en
el momento de darle click actualizaras su propiedad caption al mensaje
de aviso que quisieras, y tras el proceso actualizarlo a una cadena
vacía.

Salu2,

José Mª Fueyo
[MS MVP Access]

On 21 jul, 13:20, José Mª Fueyo wrote:

Hola
Utiliza el objeto SysCmd

   dim Var as variant
   var = SysCmd(acSysCmdSetStatus, "Se está calculando lo que sea,
espere un momento...")
   DoCmd.OpenQuery "Consulta1", acViewNormal
   DoCmd.OpenQuery "Consulta1", acViewNormal
   DoCmd.OpenQuery "Consulta1", acViewNormal
   var = SysCmd(acSysCmdSetStatus, " ")

Otra opción sería que pusieras un objeto label en tu formulario, y en
el momento de darle click actualizaras su propiedad caption al mensaje
de aviso que quisieras, y tras el proceso actualizarlo a una cadena
vacía.

Salu2,

José Mª Fueyo
[MS MVP Access]

Gracias José Mª, voy a probarlo y te cuento.

Un saludo.