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 :
Mostrar la cita
Te estoy respondiendo y no veo lo que te escribo.

Preguntas similares