Imprimir página | Cerrar ventana

error al sumar

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86099
Fecha de impresión: 22/Septiembre/2021 a las 10:06


Tema: error al sumar
Publicado por: Coleman
Asunto: error al sumar
Fecha de publicación: 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



Respuestas:
Publicado por: xavi
Fecha de publicación: 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

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: Coleman
Fecha de publicación: 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


Publicado por: xavi
Fecha de publicación: 15/Septiembre/2021 a las 08:57
Si no pones lo que has escrito difícilmente podemos adivinarlo.

-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: Coleman
Fecha de publicación: 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


Publicado por: Coleman
Fecha de publicación: 18/Septiembre/2021 a las 01:14
LISTO solucione    VAL(PRECIO1) + VAL(PRECIO2)... podemos cerrar el hilo

-------------
coleman hijo hd padre



Imprimir página | Cerrar ventana