CARGAR ARTICULOS AL SUBFORMULARIO SI ENCUENTRA UN ITEM YA AGREGADO SOLO QUE SUME
Publicado por FREDDY (5 intervenciones) el 16/02/2019 14:51:30
Hola como están
Tengo una factura con el encabezado y un subformulario donde se van agregando los productos he creado un texbox del cual al escanear el código se carga al subformulario automaticamente,todo perfecto pero necesito que al cargar un item repetido solo me sume y no me agregue en otra celda.adjunto pongo el ejemplo que tengo colocado.
Espero que me puedan ayudar
Saludos Cordiales
Tengo una factura con el encabezado y un subformulario donde se van agregando los productos he creado un texbox del cual al escanear el código se carga al subformulario automaticamente,todo perfecto pero necesito que al cargar un item repetido solo me sume y no me agregue en otra celda.adjunto pongo el ejemplo que tengo colocado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub codigo_menoreo_AfterUpdate()
stockactual = DLookup("[stock]", "[PRODUCTOS]", "id_codigo=" & codigo_menoreo)
txtprecio = DLookup("[precio_venta]", "[PRODUCTOS]", "id_codigo=" & codigo_menoreo)
describus = DLookup("[des_articulo]", "[PRODUCTOS]", "id_codigo=" & codigo_menoreo)
If stockactual <= 0 Then
MsgBox "Inventario insuficiente", vbRetryCancel
Else
Forms![FACTURA]![DETALLE_FACTURA_POR_MENOR]!id_codigo.Value = Me.codigo_menoreo.Value
Forms![FACTURA]![DETALLE_FACTURA_POR_MENOR]!Descripcion_Detalle = Me.describus.Value
Forms![FACTURA]![DETALLE_FACTURA_POR_MENOR]!Precio_Usado = Me.txtprecio.Value
Forms![FACTURA]![DETALLE_FACTURA_POR_MENOR]!cantidad = 1
DoCmd.GoToControl "DETALLE_FACTURA_POR_MENOR"
DoCmd.GoToRecord , , acNewRec
End If
Me.codigo_menoreo = ""
Me.describus = ""
Me.txtprecio = ""
Me.codigo_menoreo.SetFocus
Saludos Cordiales
Valora esta pregunta
0