la idea es buena pero en buscar me sale error
Compile error
ByRef argument type mismatch
en la variable Reg
Código
' Lee los productos comprados que forman dicho lote y los muestra en el listado de productos. Private Sub ComBuscar_Click() ' <---- al pulsar el botón dim id as integer if (NumRegsLotes>0) then ' If (LisLotes.ListCount > 0) Then ' si hay registros en la facturación... if (isnumeric(txtNumeroFactura.text)) then ' si el textbox tiene un número válido id = cint(txtNumeorFactura.text) ' el textbox es quien indica ahora el numero de factura if (id <= NumRegsLotes) then Call PosicionarRegLote(id +1) ' Call PosicionarRegLote(LisLotes.ListIndex + 1) ' allí se resta 1. Get #CanalLote, , RegX IdLote = RegX.IdPedido Call ListarCompraDelLote(RegX.Index, RegX.Cantidad) txtFactura.Text = RegCompraToString(Reg) exit sub end if end if End If ' Si el botón está siempre activado... lo ideal es que esté activo solo si el número de factura es válido. txtFactura.Text = "" call msgbox ("Número de factura no reconocido. Debe haber facturas y el número de factura ser mayor que 0 y menor que el número de registros actuales") End Sub
Gracias