Suma de dos textbox formulados en un tercer textbox

[LaloDiaz22]

Hola como estan?

Me he pasado todo el dia, intentando revisar en donde tengo un error y no lo logro.

Les comento, estoy haciendo la suma de un producto de cantidades.

Ej

unidad1 * cantidad1 = subtotal1

unidad2 * cantidad2 = subtotal2

unidad3 * cantidad3 = subtotal3

Saco un suma de los subtotales

Subtotal = subtotal1 + subtotal2 + subtotal3

A este subtotal le saco el IVA

IVA = Subtotal*0.16

Y hasta ahi va bien, pero cuando quiero sumar el subtotal y el IVA, en un textbox que se llame total, no funciona nada

Estoy subiendo el archivo para ver si me pueden asesorar

Pedidos.rar

[LaloDiaz22]

Los que visitan este tema, echenle un ojo al archivo, por que igual es algo muy sencillo, pero ya me cicle y no le encuentro

[joshua]

Saludos

No se si estoy entendiendo bien si esta es la macro donde tienes el problema.

Sub TotalPago()

Me.TextBox58 = Str(Val(Me.TextBox56.Text) * Val(Me.TextBox57.Text))

End Sub

[/CODE]

Deberia de ser asi:

[CODE]Sub TotalPago()
Me.TextBox58 = Str(Val(Me.TextBox56.Text) + Val(Me.TextBox57.Text))
End Sub
[/CODE]

Si me equivoco indica en donde tienes el error.

Atte.

joshua

[LaloDiaz22]

muchas gracias, ese era un error, pero en el textbox58 no me aparece la suma ahí es donde estoy atorado

[joshua]

Saludos.

El mismo error.

Private Sub TextBox58_Change()

Me.TextBox58 = CStr(Val(Me.TextBox56.Text) * Val(Me.TextBox57.Text))

TextBox58.Text = Format(TextBox58, "$#,##0.00")

End Sub

[/CODE]

Debe ser asi:

[CODE]Private Sub TextBox58_Change()
Me.TextBox58 = CStr(Val(Me.TextBox56.Text) + Val(Me.TextBox57.Text))
TextBox58.Text = Format(TextBox58, "$#,##0.00")
End Sub
[/CODE]

Atte.

joshua

[LaloDiaz22]

Gracias [uSER=15065]@joshua[/uSER] pero no suma ni multiplica, si me aparece en ceros el textbox pero de ahi no pasa