Actualización de dominio infinito a infinito...
Por ejemplo (dos tablas sin claves únicas),
TABLA1:
importe1 estado1
150
150
TABLA2:
importe2 estado2
150
Yo quiero actualizar los campos ESTADO1 y ESTADO2 cuando coincida el importe (en el ejemplo 150), pero el 150 de la tabla2 con UNO SOLO de los 150 de la tabla1, y no los 3 simultáneamente!
Es decir, obtener:
TABLA1:
importe1 estado1
150 SI
150 NO
TABLA2:
importe2 estado2
150 SI
Gracias
TABLA1:
importe1 estado1
150
150
TABLA2:
importe2 estado2
150
Yo quiero actualizar los campos ESTADO1 y ESTADO2 cuando coincida el importe (en el ejemplo 150), pero el 150 de la tabla2 con UNO SOLO de los 150 de la tabla1, y no los 3 simultáneamente!
Es decir, obtener:
TABLA1:
importe1 estado1
150 SI
150 NO
TABLA2:
importe2 estado2
150 SI
Gracias
1 Respuesta
Respuesta de Julián González Cabarcos
1
A ambas tablas A y B añádele un campo autonumérico, indexado sin duplicados(no hace falta que sea clave). No te afecta para nada.
Supongamos que tienes un formulario B con base en la tablaB, donde anotas el valorB. En las propiedades del cuadro ValorB, en eventos-Después de actualizar, crea un procedimiento de evento y escribe
Dim a As Byte
a = DCount("valora", "a", "[valora]=[forms]!![valorb]")
If a > 0 Then
EstadoB = True
DoCmd.RunSQL "update a set estadoa=true where [ida]=dfirst(""ida"",""a"",""valora=[forms]!![valorb]"")"
End If
Así cuando escribas un valor, lo primero que mirará será si hay algún valor igual en la tabla A. Si lo hay, entonces te pondrá estadoB=true(he supuesto que es del tipo Sí/No) y te actualizará el estadoA del primer registro que tenga el mismo valor que el valorB.
Supongamos que tienes un formulario B con base en la tablaB, donde anotas el valorB. En las propiedades del cuadro ValorB, en eventos-Después de actualizar, crea un procedimiento de evento y escribe
Dim a As Byte
a = DCount("valora", "a", "[valora]=[forms]!![valorb]")
If a > 0 Then
EstadoB = True
DoCmd.RunSQL "update a set estadoa=true where [ida]=dfirst(""ida"",""a"",""valora=[forms]!![valorb]"")"
End If
Así cuando escribas un valor, lo primero que mirará será si hay algún valor igual en la tabla A. Si lo hay, entonces te pondrá estadoB=true(he supuesto que es del tipo Sí/No) y te actualizará el estadoA del primer registro que tenga el mismo valor que el valorB.
