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: 19/Abril/2024 a las 18:12
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 |