Visual Basic - VARIABLE NO PASA DATO

Hola a todos, aca les cuento mi problema.

En un form tengo un boton que llama a una funcion en un módulo, en éste, tengo una variable (SumaTotal, que tal tengo como variant), va sumando y se van acumulando valores. Hasta ahí todo okey.

El tema es que, cuando finaliza la función y vuelvo al form, quiero utilizar el monto de la variable SumaTotal, pero no puedo ya que siempre está en 0. La controlé paso a paso y la variable si suma en la función, pero cuando tiene que traspasar el valor total al form no pasa nada.

Si alguien me puede ayudar, se lo agradecería.

Gracias desde ya.

Javier

Lo que debes hacer es incluir un modulo a tu sistema, y ahi declarar la varible, ya que al momento de descargar el form inicializas la varibale en 0

en el modulo declara tu variable asi

Public SumaTotal As Variant

ahora tu varibale estara diponible en toda tu aplicacion, pero TEN cuidado, debes tener en cuenta que el valor que traiga esta varible estara acumulando valores hasta que la aplicacion termine "o en el mejor de los casos" realiza de manera manual el reinicio de tu variable(puede ser en un command)

Eje.
private sub Command1_Click

SumaTotal = 0
end sub

Gracias Daniel... pero......

me parece que me expresé mal.... jejeje. justamente esa es la declaración que tengo en el programa.

En el mismo módulo donde está la fucnion que me acumula, tengo declarado

Public SumaTotal As Variant

No se porque apsa esto, pero bueno.... si alguien me ayuda se lo agracdezco.

desde ya muchas gracias

añádele un módulo BAS y ahí colocas la sentencia
PUBLIC SUMATOTAL AS VARIANT
Y problema solucionado

Hola, he probado con eso y no pasa nada, la tengo en un modulo bas y cuando vuelve de la función, la variable, queda en 0, no se porque !

Escribe la función, ahí te ayudamos.

Escribe la función, ahí te ayudamos.

Hola, ya lo solucioné, el tema era este.

---------------------------------------------------------------------------------------

En el modulo:

public sumatotal as variant

public function sumar()
sumatotal = sumatotal + sumita
end function

---------------------------------------------------------------------------------------

En el form:

if sumatotal > 20 then
msgbox "mayora 20"
end if

---------------------------------------------------------------------------------------
En el form, nunca entraba en el if, ya que venía laa variable como valor 0.
Que hice?? Tome la function sumar y la pase al form.
Problema resuelto.

Aclaración: esta es una ejemplificación de mi problemitaa, jejjee

Gracias a todos = !

Javier