Access - factura

Private Sub btnGenerarFactura_Click()

    Dim rpt As Report

    Dim strSQL As String

    ' Obtener el ID del cliente seleccionado en el subformulario de clientes

    Dim clienteID As Integer

    clienteID = Me.subformularioClientes.Form.clienteID

    ' Obtener los IDs de los productos seleccionados en el subformulario de productos

    Dim productosIDs As String

    Dim producto As Variant

    For Each producto In Me.subformularioProductos.Form.lstProductos.ItemsSelected

        productosIDs = productosIDs & Me.subformularioProductos.Form.lstProductos.ItemData(producto) & ","

    Next producto

    productosIDs = Left(productosIDs, Len(productosIDs) - 1) ' Eliminar la última coma

    ' Crear la consulta SQL para obtener los datos del cliente y los productos seleccionados

    strSQL = "SELECT * FROM Clientes WHERE ID=" & clienteID & ";"

    strSQL = strSQL & "SELECT * FROM Productos WHERE ID IN (" & productosIDs & ");"

    ' Crear el objeto Reporte y establecer la consulta SQL como origen de datos

    Set rpt = New Report

    rpt.RecordSource = strSQL

    ' Abrir el informe en vista de impresión

    DoCmd.OpenReport "Factura1", acViewPreview, , , acWindowNormal

    ' Limpiar el objeto Reporte

    Set rpt = Nothing

End Sub