Cambiar datos con un solo decimal

Tengo esta función con la cual cambio los precios de venta de productos. Lo que hace es incrementar el precio a partir de un campo que le pongo y de un precio de compra que ya tengo metido.

¿Cómo haría para que ese nuevo importe tuviera solo un decimal? He probado cambiándolo directamente en tabla pero no me funciona, ya que si pulso en el campo siguen apareciendo varios decimales, y las operaciones las sigue haciendo con varios decimales. Gracias.

Este es el código que uso

Dim Resultado As Integer
Resultado = MsgBox("¿ESTÁ SEGURO DE QUE DESEA CAMBIAR LOS PRECIOS DE VENTA?", vbOKCancel, "CONFIRMACION")
If Resultado = 1 Then

Dim i, VALOR As Integer
VALOR = InputBox("INTRODUCA EL MARGEN A APLICAR")
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tblVenta INNER JOIN tblVentaProducto ON tblVenta.IdVenta = tblVentaProducto.Venta SET tblVentaProducto.Precio = [Compra]*(1+" & VALOR & "/100) WHERE (((tblVenta.Estado)=2) AND ((tblVenta.NTicket) Is Null)) AND ((TblVenta.FormaPago) = 1)"

2 respuestas

Respuesta
2

Tal vez podrías probar cambiando la fórmula, en lugar de poner

[Compra]*(1+" & VALOR & "/100)

Prueba con

Round([Compra]*(1+" & VALOR & "/100);1)

Salu2

Respuesta
2

Eloy: Prueba poniendo el redondeo en la parte de la consulta >>= [Compra]*(1+" & VALOR & "/100)

cambiandola por >> = Round([Compra]*(1+" & VALOR & "/100),1)

Un saludo >> Jacinto

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo recalculo el total en todos los registros?

Tengo dos tablas, tblventa y tblVentaProducto, estas: En el campo total de tblventa, recojo la Suma(cantidad * Precio) de tblVentaProducto, y la voy introduciendo automáticamente cuando cierro el formulario de entrada de datos. Asta ahí todo bien. Lo...
2 respuestas

Access-Visual Basic: Problema al definir una variable Fecha

Que seguro que es fácil de resolver, a ver si podéis ayudarme... He creado un código para tomar el valor de una fecha establecida en un formulario, con ese valor creo, como criterio, una consulta. El problema es que si la fecha es 05/08/2017, la...
2 respuestas

¿Pasar automáticamente de Presupuesto a Factura?

Tengo un formulario llamado Presupuesto con varios campos (IdPresupuesto (campo autonumérico), IdCliente, Fecha). Dentro del formulario también tengo un subformulario Presupuesto1 donde introduzco los productos, (IdProducto (autonumérico), Cantidad,...
1 respuesta

Access: Cálculo de valor máximo de consulta

Estoy preparando un código para que al cambiar la fecha en un campo, calcule el año, serie de albarán y numero de albarán. El número de albarán debe ser el número más alto (teniendo en cuenta la serie y año) +1. El código es el siguiente: Private Sub...
1 respuesta

Calculo porcentual

Por medio de una consulta necesito calcular un porcentaje de una cifra. Como preciso dos decimales, le asigno este valor en el formato estándar. Cuando me halla el resultado, este figura con dos decim. Pero lleva más. El problema es al sumar la...
1 respuesta

De números a letras + decimales

Estoy realizando un sistema que imprima un cheque determinado lo que necesito es que cuando ingrese por ejemplo un monto 1,200.25 me muestre en otro static text pero en letras UN MIL DOSCIENTOS CON 25/100 pero AUTOMÁTICAMENTE gracias hasta ahora he...
2 respuestas

Como Convertir Precio A Letras En Access Cuando Aparece S/1062 En Letras Que Aparezca mil sesenta y dos 00/100

Como Convertir Precio A Letras En Access Cuando Aparece S/1062 En Letras Que Aparezca mil sesenta y dos 00/100 por favor lo necesito urgente tengo un codigo tal vez ay que modificarlo este es parte de mencionado codigo Option Compare Database Option...
1 respuesta

Campo calculado, formato.

En un formulario facturas he creado un campo calculado para obtener el iva sobre otro campo que ya tengo en el formulario. Tengo en propiedades: -Origen de control: =[numeros]*[DetallesDerechosFacturaSubFormulario].Formulario!masnumeros/100 donde...
1 respuesta

Docmd.runsql" insert into (tabla[transaciones_detalle])

Dim UV1 As String Dim prod As String Dim cod As String Dim codb As String Dim tran As String Dim costo As String Dim precio As String Dim hor As String Dim ur As String 'valores a cargar UV1 = "1" (Valor 1) cod = Me.Codigo.Value (Valor numerico...
1 respuesta

Error al sumar importes Euro

Siendo seguramente sencillo, es gordo. Mi problema es el siguiente. La base de datos que he hecho posee la tabla ingresos en la cual existen los campos: Fecha, ingresos caja, ingresos tabaco, base imponible caja, base imponible tabaco, iva caja, iva...
1 respuesta