error al sumar |
Responder |
Autor | |
Coleman
Asiduo Unido: 17/Marzo/2007 Localización: Venezuela Estado: Sin conexión Puntos: 254 |
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
|
|
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: Sin conexión Puntos: 14720 |
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.
|
|
Coleman
Asiduo Unido: 17/Marzo/2007 Localización: Venezuela Estado: Sin conexión Puntos: 254 |
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
|
|
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: Sin conexión Puntos: 14720 |
Enviado: 15/Septiembre/2021 a las 08:57 |
Si no pones lo que has escrito difícilmente podemos adivinarlo.
|
|
Coleman
Asiduo Unido: 17/Marzo/2007 Localización: Venezuela Estado: Sin conexión Puntos: 254 |
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
|
|
Coleman
Asiduo Unido: 17/Marzo/2007 Localización: Venezuela Estado: Sin conexión Puntos: 254 |
Enviado: 18/Septiembre/2021 a las 01:14 |
LISTO solucione VAL(PRECIO1) + VAL(PRECIO2)... podemos cerrar el hilo
|
|
coleman hijo hd padre
|
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |