NO PUEDORRRR, NO PUEDORRRRRR
Publicado por Javier Aguilar (5 intervenciones) el 10/06/2001 14:20:06
Hola a todos. A ver si alguien me puede ayudar. Tengo un formulario de
clientes el cual incluye un subformulario en vista hoja de datos y varios
botones para Añadir, Borrar, Modificar, etc. Con estos botones abro otro
formulario para realizar esas funciones. El caso es que me gustaría que
cuando agregara un cliente nuevo y saliera del formulario abierto con los
botones, me gustaría que en el formulario principal, el cursor se me fuera al nuevo cliente que he añadido. Lo he hestado intentando con RecordsetClone y FindFirst pero no hay manera de que me funcione. El código que tengo en el formulario donde grabo el nuevo cliente es el siguiente:
Private Sub Form_Unload(Cancel As Integer)
Dim Rst As Recordset
Dim NombreBúsqueda As String
Forms![Formulario Clientes - Resúmen]![SubFormulario del Formulario
Clientes - Resúmen].Requery
Set Rst = Forms![Formulario Clientes - Resúmen]![SubFormulario del
Formulario Clientes - Resúmen].Form.RecordsetClone
NombreBúsqueda = Str(Me.Nº_Cliente)
"A partir de aqui es donde se corta y me sale el error Se ha producido
el error 3077 en tiempo de ejecución. Error de sintaxis en la expresion"
Rst.FindFirst "Nº Cliente = " & NombreBúsqueda
If Rst.NoMatch = False Then
Forms![Formulario Clientes - Resúmen]![SubFormulario del Formulario
Clientes - Resúmen].Bookmark = Rst.Bookmark
End If
End Sub
Ojalá alguien me pueda ayudar porque llevo varios dias con esto liado
probando de todo y no hay manera.
Muchas gracias. Un saludo desde Jerez.
clientes el cual incluye un subformulario en vista hoja de datos y varios
botones para Añadir, Borrar, Modificar, etc. Con estos botones abro otro
formulario para realizar esas funciones. El caso es que me gustaría que
cuando agregara un cliente nuevo y saliera del formulario abierto con los
botones, me gustaría que en el formulario principal, el cursor se me fuera al nuevo cliente que he añadido. Lo he hestado intentando con RecordsetClone y FindFirst pero no hay manera de que me funcione. El código que tengo en el formulario donde grabo el nuevo cliente es el siguiente:
Private Sub Form_Unload(Cancel As Integer)
Dim Rst As Recordset
Dim NombreBúsqueda As String
Forms![Formulario Clientes - Resúmen]![SubFormulario del Formulario
Clientes - Resúmen].Requery
Set Rst = Forms![Formulario Clientes - Resúmen]![SubFormulario del
Formulario Clientes - Resúmen].Form.RecordsetClone
NombreBúsqueda = Str(Me.Nº_Cliente)
"A partir de aqui es donde se corta y me sale el error Se ha producido
el error 3077 en tiempo de ejecución. Error de sintaxis en la expresion"
Rst.FindFirst "Nº Cliente = " & NombreBúsqueda
If Rst.NoMatch = False Then
Forms![Formulario Clientes - Resúmen]![SubFormulario del Formulario
Clientes - Resúmen].Bookmark = Rst.Bookmark
End If
End Sub
Ojalá alguien me pueda ayudar porque llevo varios dias con esto liado
probando de todo y no hay manera.
Muchas gracias. Un saludo desde Jerez.
Valora esta pregunta


0