| carucha |  |
|
2009-07-02 01:25 - Respuestas: 0 - Tema nº: 2603442
Windows XP Profesional 2gb, Core2Quad 8200, 3.2ghz, HD 250 gb.
Hola Amigos, tengo un problema que no puedo resolver y es el siguiente:
"Error Update", cuando intento actualizar el Stock, estoy trabando en decimal, y cuando ingreso en "cantidad" numeros enteros es decir sin coma ni decimales, la instruccion se actualiza perfectamente y me modifica el stock en la tabla Productos, pero al ingresar con decimales eg 1245.60 ...> Msgbox "Error Update", el codigo que estoy utilizando es:
Private Sub Form_AfterInsert()
Dim consulta As String
consulta = "UPDATE PRODUCTOS SET PRODUCTOS.[STOCK] = [STOCK] - " & Me.Cantidad
consulta = consulta & " WHERE (((PRODUCTOS.[idproducto])=" & Me.IdProducto & "))"
CurrentDb.Execute consulta
End Sub
Por favor les agradeceria si alguien puede ayudarme esta vez.
Gracias de antemano
Saludos a Todos!!
Leo
| |
|
|
