Frm_salidas_ventas (agregar items)(vba excel)
La verdad, no se como agradecerle toda la ayuda desinteresada que nos muestra a los foreros como yo, que apenas tenemos nociones de programación. Muchas gracias!
Siguiendo con mi proyecto. Llega la hora de montar la venta.
Tengo un frm_salidas_ventas. Donde coloco los datos del cliente (mediante otro frm_cliente_anadir y también puedo buscarlo mediante otro frm_cliente_anadir_buscar) todo esto está operativo adaptando un código que usted me facilito.
Necesito añadir artículos al listbox. Tengo dos labels +(para añadir artículos mediante otro frm_articulo_facturar) y - (para eliminar artículos).
En este frm_articulo_facturar busco articulo (o por código o mediante otro frm_articulo_facturar_buscar), inserto la cantidad que quiero vender y los textbox automáticamente se rellenan (mediante código). Todo operativo.
Ahora viene lo difícil para mi.
Necesito que al dar click en el botón agregar del frm_articulo_facturar se añadan en el listbox del frm_salidas_ventas y me haga la suma en txt_total.
Espero que se entienda.
Le envío mi proyecto. Muchas gracias!
P.D. Sobre este frm_salidas_ventas hay más dudas, pero primero el uno y después el dos, JEJEJEJE.
1 Respuesta
Va en el botón "Agregar" de tu form frm_articulo_facturar
Private Sub cmb_agregar_Click() 'agregar el artículo al listbox de fr_salidas_ventas If cbx_codigo.ListIndex > -1 Then With frm_salidas_ventas.ListBox1 .AddItem cbx_codigo a = .ListCount - 1 .List(a, 1) = txt_nombre .List(a, 2) = txt_cantidad .List(a, 3) = txt_precio_venta .List(a, 4) = txt_importe For i = 0 To a w_txt_total = w_txt_total + CDbl(.List(i, 4)) Next frm_salidas_ventas.txt_total = w_txt_total End With End If End Sub
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
