Ejecutar consulta de actualización en access pasando parámetro desde código VBA

Expertos buenas tardes,

Tengo una consulta de actualización que se ejecuta desde código con la instrucción

DoCmd. OpenQuery "sql Actualiza Campo TipoDeMovimiento"

Pero antes de ejecutar esa instrucción hay una línea de código donde se ingresa el numero de documento que deseo ubicar. La sintaxis es la siguiente

Dim capturaGR As String
capturaGR = ""
capturaGR = DLookup("[movNroDocumento]", "[Movimiento Almacen-EXPORTACION]")
If IsNull(capturaGR) Then
MsgBox "El documento ingresado ya fue transferido a su sistema", vbOK + vbInformation, "Aviso Importante"
Exit Sub
Else
DoCmd.OpenQuery "sql Actualiza Campo TipoDeMovimiento"
End If

Como puedo hacer para que la consulta "sql Actualiza Campo TipoDeMovimiento" pueda recibir el parámetro [capturaGR] que fue ingresado previamente, he querido colocar el criterio dentro de la consulta pero como el valor ingresado no se guarda en un campo de un formulario no puedo referenciarlo ... La Instrucción que me falta es algo así:

where [MovNroDocumento] = CapturaGR

Respuesta
2

Tan fácil como copiar la sql de la consulta y cambiar la línea DoCmd. Openquery or CurrentDb. Execute "la sql de la consulta"

Y ahí ya puedes poner en el WHERE la referencia a esa variable, así :

...where [MovNroDocumento] =" & CapturaGR

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas