campos txt

12/03/2007 - 21:31 por Archivo Plano | Informe spam
Estimados señores:

Tengo un formulario, en el cual tengo 8 campos (txt1, txt2.txt8) y un
campo txttotal donde deseo que que cada vez que teclee en cada txt me vaya
mostrando el total en el campo txttotal

ej:

txt1= 1
txt2= 10
txt3 = 9
txt4= 15
txt5= 0
txt6=0
txt7=0
txt8= 0
txttotal= 35

Por cada TXT tengo el siguiente modulo

Private Sub TXT1_Change()
VTXT1 = CInt(TXT1)
End Sub

Private Sub TXT2_Change()
VTXT2 = CInt(TXT2)
End Sub

Definición de variables

Las variables VTXT1...VTXT8 las cree para almacenar el valor numerico
tecleado en el cuadro Txt1...txt8

ej:
VTXT2 = CInt(TXT2)

VTXTE1, VTXT8 as integer
cada campo txt lo converti Cint(vtxt1) as integer para que me convierta el
string que he tecleado en número, hay alguna otra forma de hacerlo o esta es
la forma correcta? o en las propiedades puedo hacer algo?

Agardezco de antemano la colaboración prestada

Preguntas similare

Leer las respuestas

#1 Abraham
12/03/2007 - 22:02 | Informe spam
y asi??

Dim valor As Integer

Private Sub TextBox1_Change()
valor = valor + Val(TextBox1)
End Sub

Private Sub TextBox2_Change()
valor = valor + Val(TextBox2)
TextBox4 = valor

End Sub

Private Sub TextBox3_Change()
valor = valor + Val(TextBox3)
TextBox4 = valor
End Sub

donde en el textbox4 esta el total.

Abraham
Respuesta Responder a este mensaje
#2 Archivo Plano
13/03/2007 - 13:58 | Informe spam
"Abraham" wrote:

y asi??

Dim valor As Integer

Private Sub TextBox1_Change()
valor = valor + Val(TextBox1)
End Sub

Private Sub TextBox2_Change()
valor = valor + Val(TextBox2)
TextBox4 = valor

End Sub

Private Sub TextBox3_Change()
valor = valor + Val(TextBox3)
TextBox4 = valor
End Sub

donde en el textbox4 esta el total.

Abraham

Gracias por la solución, pero tengo otro inconveniente:



Si el usuraio tclea 5 en el textbox1 y luego decide borra y teclea 6 me esta
almacenando un total de 11 y en campo aparece 6. Como puedo controlar esto?
Una opción podría ser bloquear el campo despues de tecleado pero me pueder
dar otra idea.
Te agradezco de antemano tu colaboración.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida