** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - error al sumar
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoerror al sumar

 Responder Responder
Autor
Mensaje
Coleman Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 17/Marzo/2007
Localización: Venezuela
Estado: Sin conexión
Puntos: 254
Enlace directo a este mensaje Tema: error al sumar
    Enviado: 26/Agosto/2021 a las 02:13
hola buenas noches, tengo un formulario con 3 cajas de texto llamado precio1, precio2 y total y 1 cuadro de lista, a medida que voy haciendo sumas va sumando los datos y dicha información se va mostrando en el cuadro de lista, hasta allí todo perfecto, el problema radica cuando quiero modificar un registro en el cuadro de lista ... al seleccionar un registro en el cuadro de lista a través de un botón muestro la información en las cajas de texto antes mencionada..

Private Sub modifica_Click()
      Dim RESP As Variant
    If Lista1.ListIndex = -1 Then Exit Sub
     RESP = MsgBox("Desea modificar el Registro.", vbInformation + vbYesNo, "Aviso")
     If RESP = vbNo Then: Cobrar.SetFocus: Comando153.SetFocus: Exit Sub
    Me![IDPRO] = [Lista1].Column(0)
    Me![precio1] = [Lista1].Column(1)
    Me![precio2] = [Lista1].Column(2)
    Me![total] = [Lista1].Column(3)
       Lista1.RemoveItem Lista1.ListIndex
    
End Sub
Así muestro los registro en cada texto pero cuando modifico algún precio en el total lo que hace es concatenar los precio por ejemplo...
PRECIO1   PRECIO2       TOTAL
125             130             150
cuando modifico 125 por 160 el total aparece asi::
PRECIO1   PRECIO2       TOTAL
160             130             160130....     no me suma solo pasa cuando modifico un registro... en el lostfocus tengo este código para sumar:
 Me.TOTAl = Nz([PRECIO1], 0) + Nz([PRECIO2], 0)...  espero que me puedan ayudar ...gracias


coleman hijo hd padre
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje Enviado: 27/Agosto/2021 a las 12:08
Parece hacerte un concatenado en lugar de una suma. Yo empezaría añadiendo un Val delante del Nz de cada uno de los argumentos.
Xavi, un minyó de Terrassa

Mi web
Arriba
Coleman Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 17/Marzo/2007
Localización: Venezuela
Estado: Sin conexión
Puntos: 254
Enlace directo a este mensaje Enviado: 15/Septiembre/2021 a las 00:40
hola xavi he probado colocando VAL tal como lo indicaste y me sale un error dice...
error de compilación...
el numero de argumento s incorrecto o la asignación de la propiedad no es valida.....
saludos
coleman hijo hd padre
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje Enviado: 15/Septiembre/2021 a las 08:57
Si no pones lo que has escrito difícilmente podemos adivinarlo.
Xavi, un minyó de Terrassa

Mi web
Arriba
Coleman Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 17/Marzo/2007
Localización: Venezuela
Estado: Sin conexión
Puntos: 254
Enlace directo a este mensaje Enviado: 18/Septiembre/2021 a las 00:54
Me.TOTAl = VAL([PRECIO1], 0) + VAL([PRECIO2], 0) y disculpa, solo que hice lo que me comentaste que sustituya Nz por VAL... esta instruccion esta en el lostocus... saludos
coleman hijo hd padre
Arriba
Coleman Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 17/Marzo/2007
Localización: Venezuela
Estado: Sin conexión
Puntos: 254
Enlace directo a este mensaje Enviado: 18/Septiembre/2021 a las 01:14
LISTO solucione    VAL(PRECIO1) + VAL(PRECIO2)... podemos cerrar el hilo
coleman hijo hd padre
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable