¿Cómo pausar ejecución de código? - microsoft.public.es.access

Mensaje del debate ¿Cómo pausar ejecución de código?

Lazar

Ver perfil

Más opciones 2 nov 2009, 12:27

Grupos de noticias: microsoft.public.es.access

De: "Lazar" <rpicolrUNARROBAS...@telefonica.net>

Fecha: Mon, 2 Nov 2009 18:27:40 +0100

Local: Lun 2 nov 2009 12:27

Asunto: Re: ¿Cómo pausar ejecución de código?

  Reenviar | Imprimir | Ver secuencia
  | Mostrar mensaje original
  | Informar de este mensaje | Buscar mensajes de este autor
  

Hola
Y si después de lo que te dice Patxi todavía quieres poner un tiempo pon
esto en un modulo

Option Compare Database
Declare Function Espera Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds
As Long) As Long

'y la llamaremos así desde el procedimiento :

Espera (500)

'500 milisegundos, o lo que es lo mismo medio segundo

--
Saludos
Ramón

"JM" <s...@hotmail.com> escribió en el mensaje
news:4aeecf31$1_2@filemon2.isp.telecable.es...

> Hola amigos, os traigo una preguntilla.

> Tengo este código en un botón que ejecuta 2 consultas SQL (como dos
> consultas access separadas)
> En ocasiones recibo un "conflicto de escritura" y los resultados no son
> los esperados.

> Supongo que pausando el código se resolvería, pero no se muy bien cómo
> hacerlo. Espero podáis ayudarme.
> Gracias!!

> Private Sub Comando18_Click()
> On Error GoTo Err_Comando18_Click

> Dim stDocName As String

> stDocName = "Almacen Consulta suma 1"
> DoCmd.OpenQuery stDocName, acNormal, acEdit

> -- AQUI LA EJECUCIÓN DE CÓDIGO DEBERÍA PARARSE UN PAR DE SEGUNDOS --

> stDocName = "Movimientos Consulta suma 1"
> DoCmd.OpenQuery stDocName, acNormal, acEdit

> DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

> Exit_Comando18_Click:
> Exit Sub

> Err_Comando18_Click:
> MsgBox Err.Description
> Resume Exit_Comando18_Click

> End Sub

Reenviar