Actualizar campo en una tabla
Mi situación es la siguiente:
Tengo una tabla inventario Id, descripción, ..., disponible (que es la candidata que tengo en stock)
Tengo un formulario con todos esos campos + uno que dice "cantidad a añadir"
Tengo un botón "cargar al inventario"
Lo que quiero es que al darle click al botón la "cantidad a añadir" se le sume al "disponible" y actualice la tabla con ese valor, si al campo "cantidad a añadir" no se le digitó ningún valor que me muestre un mensaje o que lo tome como cero.
3 respuestas
Supongo que el Id es el dato que identifica, única e inequívocamente el registro a modificar... Llamaré a los cuadros de texto del formulario: txtId, txtDisp y txtCant
En el código del botón:
if isnull(form!txtCant)=True then
form!txtCant.value=0
end if
docmd.runsql "update inventario set disponible=" & form!txtDisp.value & "+" & form!txtCant.value & " where id='" & form!txtId.value & "'"
Página supuestos y soluciones en access: http://angelessebas.es
En que esta cargada la tabla en varios texbox o en un grid haber pintame un poco el formulario
Como base del formulario tienes la tabla inventario, eso es lo que entiendo
Entonces debes tener un cuadro de texto disponible y otro cantidad a añadir
En el evento al hacer clic del botón ( clic derecho en el botón propiedades, eventos
"al hacer clic", seleccionas procedimiento de evento y haces clic en los puntos suspensivos)
Veras algo como esto :
Private sub boton_click()
end sub
entre las dos lineas pones esto
disponible = disponible + agregar
quedaría así
-------------------------------------------------------
Private sub boton_click()
if nz( agregar,0)= 0 then
msgbox "no ha digitado nada para agregar al stock"
agregar.setfocus
else
disponible = disponible + agregar
disponible.refresh
msgbox "se ha añadido al stock"
end if
End sub
------------------------------------------
Disponible es el nombre del cuadro de texto donde aparece lo disponible y agregar es el nombre del cuadro donde pones la cantidad a agregar
Perfecto eres un genio!
Solo me ha dado el siguiente error:
En la linea
Disponible.Refresh
Compile error
Method or data member not found
Pero simplemente cambié Refresh por Requery
Muchas gracias.
Otra consulta que linea debo programar para que al cargar la cantidad y salir el mensaje me limpie el formulario para poder cargar otra cantidad a otro registro.
Ademas de esta consulta:
Que linea debo programar para que al cargar la cantidad y salir el mensaje me limpie el formulario para poder cargar otra cantidad a otro registro.
Tengo está otra:
Antes de que me lo anterior que me funcionó perfecto necesito que me de un mensaje de confirmación donde un msj "Esta seguro de continuar con la operación" "aceptar" realiza el procedimiento y "no" me devuelve para modificar lo que está incorrecto.
Para que la cantidad quede en cero después de agregar sería
agregar=0 luego de la linea agregar.requery
para preguntar antes de agregar seria
Elseif msgbox ("Sumar "& agregar & " unidades al stock ?",VbOKCancel+Vbquestion+ vbDefaultButton2 ,"Confirme la acción")=Vbok then
Donde dice else en lo que te indique anteriormente reemplazas por lo que te indico aqui
ElseIf ( va todo junto )