Hola,
te pongo algo para ver si lo entiendes,
en teoria es una lista de tratamientos,
cuando escojo uno, debe salir el precio,
ademas depende del numero que se lo haga se debe multiplicar por el precio y dar un total, "RESUELTO",
luego se debera hacer un descuento en vase a % QUE SERA UN NUMERO DA UN TEXT BOX y obtener un resultado,
que vendra calculado para dar el resto al cliente, es como una calculadora. mas o menos.
ahora necesito calcular el descuento %.
Código:
Private Sub cmbtrat_LostFocus()
' Valida el Tratamiento que no este vacio
''''''''''''''''''''''''''''''''
If Trim(cmbtrat) = "" Then
MsgBox "Selecciona el Tratamiento", vbCritical, "Datos incompletos"
cmbtrat.SetFocus
Exit Sub
ElseIf Trim(cmbtrat) = "Manicura" Then txtprecio = "12"
ElseIf Trim(cmbtrat) = "Manicura Francesa" Then txtprecio = "15"
ElseIf Trim(cmbtrat) = "Manicura Spa" Then txtprecio = "22"
' Valida el Precio que no este vacio
''''''''''''''''''''''''''''''''
ElseIf Trim(txtprecio) = "" Then
MsgBox "El Precio no puede estar vacio", vbCritical, "Datos incompletos"
txtprecio.SetFocus
If Trim(txtcant) = "" Then
txtcant = "1"
lbltot = Val(txtprecio) * Val(txtcant)
End If
End If
End Sub
es que no me recuerdo del vb, lo estudie hace muchos años : )
jajaja
gracias