Actualizar Subformulario mediante un campo

Tengo un formulario llamado "ActualizarAsistencia"

En el tengo tres campos: uno llamado "CeboRed", el segundo "CeboMentor" y el tercero "CeboCirculo"

En cada uno hay un código después de actualizar

Para "Red",

Me.CeboMentor = ""
Me.CeboCirculo = ""
Me.Refresh
Dim rst As Object
Set rst = Me.ActualizarAsistencia.Form.RecordsetClone
If Not rst.EOF Then
rst.MoveLast
Me.ActualizarAsistencia.Form.Bookmark = rst.Bookmark
End If

Set rst = Nothing

Para "Mentor":

Me.CeboCirculo = ""
Me.Refresh
Dim rst2 As Object
Set rst2 = Me.ActualizarAsistencia.Form.RecordsetClone

If Not rst2.EOF Then
rst2.MoveLast
Me.ActualizarAsistencia.Form.Bookmark = rst2.Bookmark

End If

Set rst2 = Nothing

Para "Circulo":

Me.Refresh
Dim rst3 As Object

Set rst3 = Me.ActualizarAsistencia.Form.RecordsetClone

If Not rst3.EOF Then
rst3.MoveLast
Me.ActualizarAsistencia.Form.Bookmark = rst3.Bookmark
End If

Set rst3 = Nothing

En el subformulario uso la consulta:

SELECT Asistencia.IdAsistencia, Asistencia.Fecha, Asistencia.Adultos, Asistencia.Niños, Asistencia.Visitas, Asistencia.Observación, Asistencia.IdRed, Asistencia.IdMentor, Asistencia.IdCirculo
FROM Asistencia
WHERE (((Asistencia.IdRed) Like "*" & [Formularios]![ActualizarAsistencia]![CeboRed] & "*")
AND ((Asistencia.IdMentor) Like "*" & [Formularios]![ActualizarAsistencia]![CeboMentor] & "*")
AND ((Asistencia.IdCirculo) Like "*" & [Formularios]![ActualizarAsistencia]![CeboCirculo] & "*"));

Sucede que al actualizar el campo "ceboMentor" no me actualiza.

Ya lo probé crear el campo nuevamente y he determinado que el único que no me trabaja es el "CeboMentor" ya que si le quito el criterio en la tabla de origen de registro veo que los otros dos funcionan.

¿Podrían colaborarme?

1 Respuesta

Respuesta
1

La verdad es que apenas entendía la pregunta, pero por lo que dices tengo la impresión que los combinados son independientes y que tienen al menos dos columnas, la dependiente con el Id y la segunda con un nombre, o una sola con el id, no lo sé. Tampoco sé si los valores que aparecen en el origen de la fila están en una misma tabla, en tres tablas relacionadas, o es la propia tabla Asistencia

Vamos a suponer que están en tres tablas distintas, relacionadas. Porqué no pruebas a dejar en blanco el origen de la fila de cada combinado y en sus propiedades-eventos-al recibir el enfoque del primero pones

cebored.rowsource="select Idred,nombrered from la Red group by idred,nombrered"

en el segundo

cebomentor.rowsource="select Idmentor,nombrementor from Mentores where idred=" & me.idred & ""

y en el tercero

cebocirculo.rowsource="select idcirculo,nombrecirculo from Circulos where idmentor=" & me.idmentor& ""

Y en este último, en sus evento después de actualizar sólo tienes que poner

me!asistencias.form.recordsource="select * from asistencias where idcirculo =" & me.idcirculo & ""

Por ejemplo, supongamos que tengo el formulario con el subformulario Clientes, tal que

Al elegir un continente, cuyo combinado no tiene origen de la fila, el combinado pais, que tampoco tiene, sólo me muestra aquellos países de ese continente

Al elegir España

Y si elijo, por ejemplo, Madrid

En este caso tengo tres tablas Continentes, Paises y Ciudades, relacionadas Continente con Pais por el campo Continente y Ciudades con Paises por el campo Pais. Y el código es simplemente

Private Sub Ciudad_AfterUpdate()
Me!Clientes.Form.RecordSource = "select * from clientes where ciudad='" & Me.Ciudad & "'"
End Sub
Private Sub Ciudad_GotFocus()
Ciudad.RowSource = "Select ciudad from ciudades where pais='" & Me.Pais & "' order by ciudad"
End Sub
Private Sub Continente_GotFocus()
Continente.RowSource = "select continente from continentes order by continente"
End Sub
Private Sub Pais_GotFocus()
Pais.RowSource = "select pais from paises where continente='" & Me.Continente & "' order by pais"
End Sub

Estudiaré lo que  me enviaste luego te comento, saludos

Buenas noches, me ha servido tu solución, ya la implementé, quisiera saber como puedo agregar el criterio  Baja me le ponga "Falso", lo he intentado así y no me funciona, creo que lo he estructurado mal:

CeboRed.RowSource = "select Idred,NombreRed from Red group by Idred,NombreRed HAVING Baja =  Falso"

y

como puedo agregar dos criterios el IdRed = Me.Id y el criterio Baja =Falso, sabiendo que Id es un múmero y Baja es letra

Me.SubUpCirculos.Form.RecordSource = "select * from Circulo where  IdRed=" & Me.CeboRed & ""

Saludos

Yo lo pondría como

CeboRed.RowSource = "select Idred,NombreRed from Red where Baja=""Falso"" group by Idred,nombrered"

y en lo otro, suponiendo que sea lo mismo

Me.SubUpCirculos.Form.RecordSource = "select * from Circulo where  IdRed=" & Me.CeboRed & " and baja=""Falso"""

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas