SUMAR AL INVENTARIO VARIAS CANTIDADES DE LA MISMA CATEGORIA
Publicado por Luis Alberto (20 intervenciones) el 20/04/2016 21:37:54
Cordial saludo a todos los expertos
Acudo a uds con el fin de pedirles el favor y me apoyen con un inconveniente que tengo con una DB que estoy creando en Access 2013
Mi DB es para una Fabrica de Zapatos, en la cual se manejan muchos materiales y se requiere controlar los movimientos de los mismos (entradas, salidas, disponibilidad...etc)
* He creado categorías para poder tener un mejor manejo de los materiales.
* He creado formularios tanto para entrada y salidas y funcionan perfecto, pero mi PROBLEMA esta cuando quiero hacer una entrada o salida de 2 materiales específicos que son SUELAS Y PLANTILLAS. Dado que estos materiales se manejan por muchas tallas.
* He creado un formulario para hacer el cargue inicial a inventario y de ahí en adelante las entradas las realizo por el formulario de entradas. La idea es que al momento de ingresar SUELAS pueda digitar la cantidad a ingresar para cada una de las tallas sin tener que ingresar una a una; para lo cual he creado un TextBox para cada talla.
LO QUE REQUIERO HACER ES:
1) En el formulario de ENTRADAS no se como hacer para que me sume las cantidades de cada una de las tallas en un solo ingreso tal cual como lo hago en el cargue inicial y no se como plantearlo en el subformulario.
3) Lo mismo necesito hacer para las salidas
4) HE AQUÍ EL CÓDIGO QUE TENGO EN UN BOTÓN DEL FORMULARIO DE ENTRADAS
Private Sub GuardaEntrada_Click()
If MsgBox("Esta Seguro de Realizar la Entrada a Inventario?", vbYesNo, "Aviso") = vbYes Then
With Me.SUBFDETALLE_ENTRADA.Form.RecordsetClone
.MoveFirst
Do While Not .EOF
CurrentDb.Execute ("UPDATE INVENTARIO set Cantidad_Disponible=Cantidad_Disponible+" & !Cantidad & " WHERE Id_Material=" & !Id_Material)
.MoveNext
Loop
End With
Else
Exit Sub
End If
DoCmd.GoToRecord , , acNewRec
End Sub
5) AQUÍ EL CÓDIGO PARA EL FORMULARIO DE SALIDAS
Private Sub GuardaSalida_Click()
If MsgBox("Esta Seguro de Realizar la Salida?", vbYesNo, "Aviso") = vbYes Then
With Me.SUBFDETALLE_SALIDA.Form.RecordsetClone
.MoveFirst
Do While Not .EOF
CurrentDb.Execute ("UPDATE INVENTARIO set Cantidad_Disponible=Cantidad_Disponible-" & !Cantidad & " WHERE Id_Material=" & !Id_Material)
.MoveNext
Loop
End With
Else
Exit Sub
End If
DoCmd.GoToRecord , , acNewRec
End Sub
Se que es un poco confuso lo que quiero exponer. Pero si alguien tiene la amabilidad de colaborarme yo le envío una copia de mi DB
UN ABRAZO A TODOS DESDE COLOMBIA
Lucho
Acudo a uds con el fin de pedirles el favor y me apoyen con un inconveniente que tengo con una DB que estoy creando en Access 2013
Mi DB es para una Fabrica de Zapatos, en la cual se manejan muchos materiales y se requiere controlar los movimientos de los mismos (entradas, salidas, disponibilidad...etc)
* He creado categorías para poder tener un mejor manejo de los materiales.
* He creado formularios tanto para entrada y salidas y funcionan perfecto, pero mi PROBLEMA esta cuando quiero hacer una entrada o salida de 2 materiales específicos que son SUELAS Y PLANTILLAS. Dado que estos materiales se manejan por muchas tallas.
* He creado un formulario para hacer el cargue inicial a inventario y de ahí en adelante las entradas las realizo por el formulario de entradas. La idea es que al momento de ingresar SUELAS pueda digitar la cantidad a ingresar para cada una de las tallas sin tener que ingresar una a una; para lo cual he creado un TextBox para cada talla.
LO QUE REQUIERO HACER ES:
1) En el formulario de ENTRADAS no se como hacer para que me sume las cantidades de cada una de las tallas en un solo ingreso tal cual como lo hago en el cargue inicial y no se como plantearlo en el subformulario.
3) Lo mismo necesito hacer para las salidas
4) HE AQUÍ EL CÓDIGO QUE TENGO EN UN BOTÓN DEL FORMULARIO DE ENTRADAS
Private Sub GuardaEntrada_Click()
If MsgBox("Esta Seguro de Realizar la Entrada a Inventario?", vbYesNo, "Aviso") = vbYes Then
With Me.SUBFDETALLE_ENTRADA.Form.RecordsetClone
.MoveFirst
Do While Not .EOF
CurrentDb.Execute ("UPDATE INVENTARIO set Cantidad_Disponible=Cantidad_Disponible+" & !Cantidad & " WHERE Id_Material=" & !Id_Material)
.MoveNext
Loop
End With
Else
Exit Sub
End If
DoCmd.GoToRecord , , acNewRec
End Sub
5) AQUÍ EL CÓDIGO PARA EL FORMULARIO DE SALIDAS
Private Sub GuardaSalida_Click()
If MsgBox("Esta Seguro de Realizar la Salida?", vbYesNo, "Aviso") = vbYes Then
With Me.SUBFDETALLE_SALIDA.Form.RecordsetClone
.MoveFirst
Do While Not .EOF
CurrentDb.Execute ("UPDATE INVENTARIO set Cantidad_Disponible=Cantidad_Disponible-" & !Cantidad & " WHERE Id_Material=" & !Id_Material)
.MoveNext
Loop
End With
Else
Exit Sub
End If
DoCmd.GoToRecord , , acNewRec
End Sub
Se que es un poco confuso lo que quiero exponer. Pero si alguien tiene la amabilidad de colaborarme yo le envío una copia de mi DB
UN ABRAZO A TODOS DESDE COLOMBIA
Lucho
Valora esta pregunta
0