Imprimir página | Cerrar ventana

Selecionar registro de subformulario

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84200
Fecha de impresión: 22/Abril/2019 a las 10:18


Tema: Selecionar registro de subformulario
Publicado por: eduard
Asunto: Selecionar registro de subformulario
Fecha de publicación: 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!



Respuestas:
Publicado por: eduard
Fecha de publicación: 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!


Publicado por: eduard
Fecha de publicación: 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




Imprimir página | Cerrar ventana