** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Selecionar registro de subformulario
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoSelecionar registro de subformulario

 Responder Responder
Autor
Mensaje
eduard Ver desplegable
Nuevo
Nuevo


Unido: 19/Enero/2014
Localización: Barcelona
Estado: Sin conexión
Puntos: 17
Enlace directo a este mensaje Tema: Selecionar registro de subformulario
    Enviado: 30/Diciembre/2018 a las 15:34
Buenas tardes,
Tengo un formulario (Factura1Clientes) facturas con un subformulario continuo (Factura2Relaciones). 
Mi intención seria abrir el formulario principal (Factura1Clientes) por un cliente concreto y seleccionando un registro de un número de factura concreto en el subformulario continuo (Factura2Relaciones). 
Solo consigo el primer paso usando el siguiente código, pero me selecciona simpre la primera factura (primer registro) del subformulario continuo (Factura2Relaciones):

    stDocName = "Factura1Clientes"
    stLinkCriteria = "[Cliente]=" & "'" & Me![Cliente] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm, "Factura3Datos"

Gracias!
Arriba
eduard Ver desplegable
Nuevo
Nuevo


Unido: 19/Enero/2014
Localización: Barcelona
Estado: Sin conexión
Puntos: 17
Enlace directo a este mensaje Enviado: 30/Diciembre/2018 a las 16:22
Bueno, tema solucionado, con esta búsqueda:

    [Form_Factura2Relaciones].RecordSource = "Select * from Factura2Relaciones"
    Me.Refresh
    Set rs = [Form_Factura2Relaciones].Recordset.Clone
    rs.FindFirst "[NºFactura] ='" & Forms.Factura3Datoss.Factura4Detalles.Form.NºFactura & "'"
    If Not rs.EOF Then [Form_Factura2Relaciones].Bookmark = rs.Bookmark

 lo único que me interesaria es que me ordenara los campos del [Form_Factura2Relaciones] en forma descendente y no me sale..., ¿alguien podria ayudarme?

Gracias y feliz año!
Arriba
eduard Ver desplegable
Nuevo
Nuevo


Unido: 19/Enero/2014
Localización: Barcelona
Estado: Sin conexión
Puntos: 17
Enlace directo a este mensaje Enviado: 30/Diciembre/2018 a las 17:09
ok, solucionado, se puede cerrar este hilo:

    [Form_Factura2Relaciones].RecordSource = "Select * from Factura2Relaciones"
    Me.Refresh
    [Form_Factura2Relaciones].OrderBy = "[NºFactura]" & " DESC"
    [Form_Factura2Relaciones].OrderByOn = True
    Set rs = [Form_Factura2Relaciones].Recordset.Clone
    rs.FindFirst "[NºFactura] ='" & Forms.Factura3Datos.Factura4Detalles.Form.NºFactura & "'"
    If Not rs.EOF Then [Form_Factura2Relaciones].Bookmark = rs.Bookmark

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable