Basic - fallo en textbox con importe total

   
Vista:

fallo en textbox con importe total

Publicado por adolfo castro (2 intervenciones) el 28/11/2009 17:53:38
tengo un textbox donde entro la cantidad, otro donde introduzco el precio, en otro el descuento, como es la formula para que me de el tota deducido el % de descuento
textbox2 pvp
textbox4 unidades
textbox5 %descuento
textbox6 importe total

intento hacerlo pero no me da resultado, ademas probando tan solo me da el numero entero sin decimales, gracias por vuestros aportes

Private Sub TextBox5_Change()
TextBox6.Text = (Val(TextBox4.Text) * Val(TextBox2.Text))

TextBox6.Text = Format(TextBox6, "#,##0.00 $")
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:fallo en textbox con importe total

Publicado por Antoni Masana (35 intervenciones) el 01/12/2009 12:55:05
Revisa la configuración de windows con respecto al simbolo decimal

Panel de control --> Configuración regional y de idioma.

Si tienes como simbolo la coma y pones un punto no funcionan los calculos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:fallo en textbox con importe total

Publicado por adolfo castro (2 intervenciones) el 01/12/2009 12:59:20
gracias por la respuesta, pero solucione el problema de otra forma, aqui la expongo

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
esta seria la formula para hallar el total del importe menos el descuento

Me.TextBox6.Text = Format(CDbl((Me.TextBox5) * CDbl(Me.TextBox3)) - (CDbl(Me.TextBox5) * CDbl(Me.TextBox3) * CDbl(Me.TextBox4 / 100)), "#,##0.00 €")
End Sub
aqui cambiaria directamente el . por la , al presionarla en el teclado

Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
If KeyAscii = Asc(".") Then
KeyAscii = Asc(",")
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar