Forums Últimos mensajes - Powered by IBM
 

Referencia a subformulario

03/07/2012 - 09:24 por Jesus00 | Informe spam
Buenos días a todos,
Estoy utilizadndo access 2003 y tengo un problemilla que no consigo solucionar.
Os explico, tengo un formulario Clientes que, a su vez, contiene un formulario llamado Buscar. El tema está en que si ejecuto solo "Buscar" me funciona correctamente el código que pondré más abajo. Cuando abro "Buscar" dentro de "Clientes" no funciona.

Private Sub lstResultado_AfterUpdate()
Dim rst As Object

' sincronizo el formulario con el registro seleccionado
On Error GoTo lstResultado_AfterUpdate_TratamientoErrores

Set rst = Me.Recordset.Clone

rst.FindFirst "Id_Cliente = " & Me.lstResultado.Column(1)

If Not rst.NoMatch Then Me.Bookmark = rst.Bookmark

comodin = Me.lstResultado.Column(1)
Etiqueta60.Caption = comodin

rst.Close
Set rst = Nothing

lstResultado_AfterUpdate_Salir:
On Error GoTo 0
Exit Sub

lstResultado_AfterUpdate_TratamientoErrores:

MsgBox "Error " & Err.Number & " en proc.: lstResultado_AfterUpdate de Documento VBA: Form_Clientes (" & Err.Description & ")"
GoTo lstResultado_AfterUpdate_Salir
End Sub '

He puesto una label para saber donde se queda el código y creo que es en el if pero no lo tengo claro.
Estaría agradecido de que me pudierais ayudar.
Un saludo desde Madrid.
 

Leer las respuestas

#1 jesus00
17/07/2012 - 16:30 | Informe spam
José Mª Fueyo escribió el 05/07/2012 10:30 :
Hola
¿Que es lo que quieres hacer? ¿buscar un registro dentro del
formulario padre? y ¿por qué no lo haces ahí, sin usar un
subformulario?
De todos modos, sí lo quieres hacer así, tendrás que
obtener una referencia al recordset del formulario contenedor. Mira en la ayuda
la propiedad parent, creo que te podrá ayudar.

Salu2
José Mª Fueyo
[MS MVP Access]


Te estoy respondiendo y no veo lo que te escribo.

Preguntas similares