Campo sumado

[Taribo007]

Para esperar un poco, puedes copiar esta funcion en un modulo:

Public Function EsperaSecs(Segundos As Single)
Dim hora As Single
hora = Timer
Do While Timer - hora < Segundos
DoEvents
Loop
End Function


y usarla asi:


Private Sub Comando42_Click()
On Error GoTo Err_Comando42_Click

Dim stDocName As String

stDocName = "SumaPrecios"
DoCmd.OpenQuery stDocName, acNormal, acEdit
call EsperaSecs(2)'Espera dos segundos
Me.Requery
Exit_Comando42_Click:
Exit Sub

Err_Comando42_Click:
MsgBox Err.Description
Resume Exit_Comando42_Click

End Sub