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

Más que OpenQuery, yo usaría un DoCmd.RunSQL o un CurrentDb.Execute para
ejecutar una consulta de acción. También puedes comprobar si con cualquiera
de estas otras 2 instrucciones se ejecuta mejor.

Si no, siempre te puedes crear un bucle "tonto":

Dim l As Long

For l = 1 To ElNúmeroQueQuieras
    'Si lo deseas, puedes colocar un Doevents por si acaso
    If l Mod 50 = 0 Then DoEvents
Next

--
Un saludo,

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...