Access - CARGAR ARTICULOS AL SUBFORMULARIO SI ENCUENTRA UN ITEM YA AGREGADO SOLO QUE SUME

 
Vista:
sin imagen de perfil
Val: 7
Ha aumentado 1 puesto en Access (en relación al último mes)
Gráfica de Access

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.

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
Espero que me puedan ayudar
Saludos Cordiales
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder