Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Inconveniente con textbox

20/02/2010 - 02:26 por jhonyagami | Informe spam
Ayuda Hacer una pregunta
Buenas Noches,

de antemano muchas gracias por su atención.

les solicito ayuda ya que e intentado varias formas de hacer un
procedimiento y hasta el momento no he podido.

Necesito que en un formulario que cree con varios textbox me permita
lo siguiente:
textbox1: poder ingresar datos y que automaticamente quede como
formato de moneda
textbox2: poder ingresar datos y que automaticamente quede como
formato de moneda
textbox3: poder ingresar datos y que automaticamente quede como
formato de moneda
textbox4: poder ingresar datos y que automaticamente quede como
formato de moneda
textbox5: me sume los cuatro datos mientras los voy digitando y que
tambien quede con el formato de moneda

Los primeros textbox les he colocado el siguiente codigo:

Private Sub TextBox1_Change()

TextBox1 = FormatCurrency(TextBox1)

TextBox5 = TextBox1 + TextBox2 + TextBox3 + TextBox4

TextBox5 = FormatCurrency(TextBox5)

End Sub

Pero solamente me permite ingresar un numero Ej ( $1,00 ) y no me
permite ( $ 1000,00 )

Me disculparan ustedes pero la verdad lo estoy haciendo de manera
empirica y en estos momentos necesito alguna ayuda de manera urgente.

muchas gracias
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
20/02/2010 - 05:07 | Informe spam
hola, !

en lugar de usar el evento '_change' (por cada vez que tecleas algo en el textbox)
=> usa el evento '_exit' (solo que el formato se aplicara cuando "salgas" del control)
(no se que tan imprescindible sea visualizar "en tiempo real" la aplicacion de los formatos y la suma ???)

prueba con el siguiente codigo en el modulo del formulario:

Dim Uno As Double, Dos As Double, Tres As Double, Cuatro As Double
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Uno = TextBox1: TextBox1 = Format(TextBox1, "currency"): Suma_en_5
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dos = TextBox2: TextBox2 = Format(TextBox2, "currency"): Suma_en_5
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Tres = TextBox3: TextBox3 = Format(TextBox3, "currency"): Suma_en_5
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cuatro = TextBox4: TextBox4 = Format(TextBox4, "currency"): Suma_en_5
End Sub
Private Sub Suma_en_5()
TextBox5 = Format(Uno + Dos + Tres + Cuatro, "currency")
End Sub

saludos,
hector.

__ OP __
Mostrar la cita

Preguntas similares

 

Busqueda sugerida :