Formularios de access
Por favor, necesitaría saber como puedo hacer para que al elegir un registro de un cuadro de lista se acualicen dos campos de texto con los datos correspondientes. Me explico. Tengo una tabla que se llama RegAlum, en ella se encuentran estos campos:
- Alumno
- Unidad
- Padre
Quiero conseguir que, al pinchar sobre un alumno del cuadro de lista (Alumno), se actualicen los datos del mismo en los campos de texto (Unidad) y (Padre). Ya se que podría hacer un cuadro de texto con estas tres columnas, pero necesito los dos cuadros de texto debido al formato que debo utilizar en los informes, ya que he de colocarlos según un modelo oficial.
Muchas gracias, de ante mano, por la ayuda
- Alumno
- Unidad
- Padre
Quiero conseguir que, al pinchar sobre un alumno del cuadro de lista (Alumno), se actualicen los datos del mismo en los campos de texto (Unidad) y (Padre). Ya se que podría hacer un cuadro de texto con estas tres columnas, pero necesito los dos cuadros de texto debido al formato que debo utilizar en los informes, ya que he de colocarlos según un modelo oficial.
Muchas gracias, de ante mano, por la ayuda
1 respuesta
Respuesta de stewiefm
1
Supongo que lo quieres hacer con vba. Prueba a hacer esto:
Creas un evento OnChange sobre el cuadro de lista (Alumno) de este modo,
Private Sub Cuadro_Lista_Change().
Dim dbCurr As Database
Dim rsCurr As DAO.Recordset
Set dbCurr = CurrentDb()
Set rsCurr = dbCurr.OpenRecordset("SELECT Unidad, Padre FROM RegAlum WHERE Alumno = " & TU_Cuadro de lista & " ")
Me.Cuadro_texto_Unidad.Value = rsCurr.Fields(0).Value
Me.Cuadro_texto_Padre.Value = rsCurr.Fields(1).Value
rsCurr.Close
Set rsCurr = Nothing
Set dbCurr = Nothing
End Sub
A mi me funciona :)
Creas un evento OnChange sobre el cuadro de lista (Alumno) de este modo,
Private Sub Cuadro_Lista_Change().
Dim dbCurr As Database
Dim rsCurr As DAO.Recordset
Set dbCurr = CurrentDb()
Set rsCurr = dbCurr.OpenRecordset("SELECT Unidad, Padre FROM RegAlum WHERE Alumno = " & TU_Cuadro de lista & " ")
Me.Cuadro_texto_Unidad.Value = rsCurr.Fields(0).Value
Me.Cuadro_texto_Padre.Value = rsCurr.Fields(1).Value
rsCurr.Close
Set rsCurr = Nothing
Set dbCurr = Nothing
End Sub
A mi me funciona :)
Muchas gracias por responder, espero que tu consejo me sirva, ahora me es imposible poder ponerlo en práctica por las fechas en que estamos, ya sabes "las evaluaciones", pero en cuanto me libere de esto lo hago.
