Mensajes

Seguí una indicación q ví mucho en este foro y q es algo así como :
     " Busca en goole y encontraras"
Sumado a mucha ayuda recibida de parte vuestra y logré lo que quería. Para un novato como yo esto es cool

   En Label4 se muestra la suma de un valor encontrado mas un valor q se estaba mostrando previamemente en el mismo Label. Osea:
   Inicio el form, todo en blanco, encuentro dato buscado, clik, Label4 muestra valor asociado al dato, sobre el mismo form busco nuevo dato y al hacer clik el mismo Label4 muestra la suma del nuevo valor más el valor anterior q estaba.
En resumen el código es como sigue:



Private Sub Command2_Click()

    Dim S As Single        'Valor
    Dim suma As Single   'Variable q guarda lo q se muestra en Label4

    S = Text2.Text         'Valor encontrado

    suma = CDbl(Label4.Caption)    'En la variable suma guardo lo que muestra el Label4
    Label4.Caption = S + suma     'El Label4 muestra el valor encontrado mas lo q se estaba mostrando en este mismo Label4

End Sub



   Entonces Label4 tiene un valor Single, los valores que sumo los saco de una tabla excel donde estan declarados como "Número" y tienen 4 cifras decimales.
 
   Con    suma = Val(Label4.Caption)   se realiza la suma pero sólo de la parte entera y no la decimal.

   Con    suma = CDbl(Lablel4.Caption)   arroja error

Saludos

En :

     suma = CDbl(Label4.Caption)

Vale gracias... ok lo del format pero al usar CDbl me sale error "13 Type mismatch" y no se que es

Y por último... el sgte cod suma solo los enteros y no los decimales como decimal solo muestra el del nuevo numero sumado, ej   42,4000 + 33,6000 = 75,6000

Private Sub Command2_Click()

Dim S As Single  'Sección
Dim n As Integer   'Nº Conductores
Dim ST As Single   'Sección Total
Dim suma As Single
S = Text2.Text
n = Text3.Text
ST = S * n
suma = Val(Label4.Caption)
Label4.Caption = ST + suma

End Sub

Usé lo sgte. pero tampoco lo consigo:

Label4.Caption = Format((ST + Val(Label4)), "0,000")

Perdón dí vuelta el 6.. tienes razón... Bueno la cuestión es que el resultado no lo entrega con cuatro decimales y me entrega 9 o 10 de estos siendo q yo le ingreso los numeros de la tabla q tienen solo 4.

 Son valores con cuatro decimales (aquí mm2)

AWG         mm2

  1           42,4000
  2           33,6000
  3           26,7000
  4           21,2000
  5           16,8000
  6           13,3000
  7           10,5000
  8            8,3700
  9            6,6300
......

y por ej al escojer solo el primer valor 42,4000 en el label sale 42,4000015258. Si a este le sumo el segundo 33,6000 deberia arrojar por lo menos 79,00000152 pero arroja 75,5999984741, etc. (como hago para mostrar el form aquí ,je)

Bueno el asunto es q quiero sumar los registros correspondientes a la sección de varios alambres y queria hacer la busqueda un poco más rapida.... La cosa es q cuando empecé a sumar secciones el resultado fue algo inesperado... y no se cual puede ser el error, Código :

Private Sub Command2_Click()

Dim S As Single  'Sección
Dim n As Single   'Nº Conductores
Dim ST As Single   'Sección Total
S = Text2.Text
n = Text3.Text
ST = S * n
Label4.Caption = ST + Val(Label4)

End Sub

Y el resultado en el Label tiene demsiados decimales y la suma no es la correcta, hay variaciones de un nuero y los decimales no son los q deverían.
Alguna ayudita plis

El código que escribí arriba sirve bien pero debo ingresar el nro. en un inputbox q aparece y es esto lo que quiero evitar.