If (numero_filas < 1) Then
Me.lista_detalle_ftcompra.AddItem "Categoria;Producto;Marca;Modelo;Cantidad;Precio;Total"
Me.lista_detalle_ftcompra.AddItem "'" & categoria_det & "';'" & prod_det & "';'" & marca_det & "';'" & modelo_det & "';" & cantidad_det & ";" & valor_det & ";" & suma_total & ""
Me.txt_total_fc.Value = suma_total
Else
Me.lista_detalle_ftcompra.AddItem "'" & categoria_det & "';'" & prod_det & "';'" & marca_det & "';'" & modelo_det & "';" & cantidad_det & ";" & valor_det & ";" & suma_total & ""