Anónimo
Condiciones en las macros
Hola,
Tenemos una BD en Access para la gestión de almacén. Tengo dos tablas que son las que se encargan de la preparación de pedidos, en una se rellena la información de la preparación y en otra lo que está saliendo.
Al terminar el pedido quiero comparar las dos tablas y usar en resultado en una macro como condición. Si no hay diferencias se imprime la documentación y si hay diferencias se para la macro.
He probado haciendo una consulta de no coincidentes, la consulta me sale bien pero no se como utilizar esto en la condición, ya que si está bien la consulta no me devuelve resultados.
De ante mano gracias por vuestra ayuda.
Tenemos una BD en Access para la gestión de almacén. Tengo dos tablas que son las que se encargan de la preparación de pedidos, en una se rellena la información de la preparación y en otra lo que está saliendo.
Al terminar el pedido quiero comparar las dos tablas y usar en resultado en una macro como condición. Si no hay diferencias se imprime la documentación y si hay diferencias se para la macro.
He probado haciendo una consulta de no coincidentes, la consulta me sale bien pero no se como utilizar esto en la condición, ya que si está bien la consulta no me devuelve resultados.
De ante mano gracias por vuestra ayuda.
1 Respuesta
Respuesta de luis45ccs
1
Con un botón en vb puedes hacer todo a la vez
Dim r as recordset, r1 as recordset
set r = currentdb.openrecordset("Select * from Tabla")
set r1 = currentdb.openrecordset("Select * from Tabla1")
if r.recordcount>0 then
r.movelast
r.movefirst
for a=1 to r.recordcount
r1.findfirst("Código='" & r!Código & "'")
if r1.nomath then msgbox "no concuerdan") ' se puede revisar las cantidades y otras cosas
r.movenext
next
end if
Dim r as recordset, r1 as recordset
set r = currentdb.openrecordset("Select * from Tabla")
set r1 = currentdb.openrecordset("Select * from Tabla1")
if r.recordcount>0 then
r.movelast
r.movefirst
for a=1 to r.recordcount
r1.findfirst("Código='" & r!Código & "'")
if r1.nomath then msgbox "no concuerdan") ' se puede revisar las cantidades y otras cosas
r.movenext
next
end if