Actualizar una tabla a a sí misma
Tengo una tabla muy simple y que no tienen índice. La misma tiene 3 campos y son:
1) Prenda
2) Color
3) Precio de venta
Lo que yo quiero hacer es una consulta donde agrupe todas las prendas, el color y los precios de venta y cuando uno esté dentro de una consulta, si uno hace un cambio en el precio, actualice el precio de todos los registros asociados a esa agrupación en la tabla.
Espero haberme hecho entender. Muchas gracias.
1) Prenda
2) Color
3) Precio de venta
Lo que yo quiero hacer es una consulta donde agrupe todas las prendas, el color y los precios de venta y cuando uno esté dentro de una consulta, si uno hace un cambio en el precio, actualice el precio de todos los registros asociados a esa agrupación en la tabla.
Espero haberme hecho entender. Muchas gracias.
1 Respuesta
Respuesta de Mario Noriel Athanasiadis Ortiz
1
Según una combinación de ambos. Muchas gracias.
Lo primero es que esa prenda de color "x" tenga un código.
Esto facilita mucho las búsquedas
Te faltaría el campo código
La tabla que contenga el código color descripción de la prenda y el precio debe ser distinta a la que contenga todos los registros
Es una tabla de referencia donde cada prenda estará solo una vez es de referencia
Luego creas un formulario vinculado a esta tabla con sus cuatro campos.
A este formulario le agregas un sub formulario vinculando los campos código de ambas tablas (recuerda que la tabla dos tendrá muchos registros repetidos es donde guardas todo)
Esto ya te estará filtrando en el subformulario todos los registros con el mismo código.
Creas un botón que se llame cambiar precio o algo así.
En el botón escribes este código:
Private Sub Comando10_Click()
Dim Mensaje, Estilo, Respuesta
Dim bdd As Database
Dim t1 As Recordset
Dim sql As String
'-------------------------------
'-------------------------------
Set bdd = CurrentDb()
sql = "SELECT * FROM TODO WHERE CODIGO = '" & Me.codigo & "' "
Set t1 = bdd.OpenRecordset(sql)
'-------------------------------
'-------------------------------
Mensaje = "¿Seguro Desea continuar?" ' Define el mensaje.
Estilo = vbYesNo + vbCritical + vbDefaultButton2 ' Define los botones.
Respuesta = MsgBox(Mensaje, Estilo, Título, Ayuda, Ctxt)
If Respuesta = vbYes Then ' El usuario eligió el botón Sí.
INICIO:
If t1.EOF Then
MsgBox "ACTUALIZACION REALIZADA CON EXITO"
Else
t1.Edit
t1![precio] = Me.precio
t1.Update
t1.MoveNext
GoTo INICIO
End If
End If
Me. Refresh
T1. Close
End Sub
Fíjate que lo estoy poniendo en el evento al hacer click del botón
Si quieres que te envíe el ejemplo mandame tu correo
Esto facilita mucho las búsquedas
Te faltaría el campo código
La tabla que contenga el código color descripción de la prenda y el precio debe ser distinta a la que contenga todos los registros
Es una tabla de referencia donde cada prenda estará solo una vez es de referencia
Luego creas un formulario vinculado a esta tabla con sus cuatro campos.
A este formulario le agregas un sub formulario vinculando los campos código de ambas tablas (recuerda que la tabla dos tendrá muchos registros repetidos es donde guardas todo)
Esto ya te estará filtrando en el subformulario todos los registros con el mismo código.
Creas un botón que se llame cambiar precio o algo así.
En el botón escribes este código:
Private Sub Comando10_Click()
Dim Mensaje, Estilo, Respuesta
Dim bdd As Database
Dim t1 As Recordset
Dim sql As String
'-------------------------------
'-------------------------------
Set bdd = CurrentDb()
sql = "SELECT * FROM TODO WHERE CODIGO = '" & Me.codigo & "' "
Set t1 = bdd.OpenRecordset(sql)
'-------------------------------
'-------------------------------
Mensaje = "¿Seguro Desea continuar?" ' Define el mensaje.
Estilo = vbYesNo + vbCritical + vbDefaultButton2 ' Define los botones.
Respuesta = MsgBox(Mensaje, Estilo, Título, Ayuda, Ctxt)
If Respuesta = vbYes Then ' El usuario eligió el botón Sí.
INICIO:
If t1.EOF Then
MsgBox "ACTUALIZACION REALIZADA CON EXITO"
Else
t1.Edit
t1![precio] = Me.precio
t1.Update
t1.MoveNext
GoTo INICIO
End If
End If
Me. Refresh
T1. Close
End Sub
Fíjate que lo estoy poniendo en el evento al hacer click del botón
Si quieres que te envíe el ejemplo mandame tu correo
Si por favor, te lo agradecería. Mi correo es [email protected]. Muchas gracias.
Te enviado un correo con el ejemplo...
