RESUELTO, muchas gracias.
el error estaba en : If lblprec = "0" Then
Código:
End If
If lblprec > "0" Then
lblprec = Val(txtprecio) * Val(txtcant)
lbldesc = Val(cmbdesc) / 100 * Val(lblprec)
lblrest = Val(lblprec) - Val(lbldesc)
lblttotal = Val(lblprec) - Val(cmbdesc) / 100 * Val(lblprec)
End If
cuando llegaba alli y veia que era mayor que cero, no me realizaba mas el calculo, saltaba a :
Código:
If lblprec = "0" Then
lblprec = Val(txtprecio) * Val(txtcant)
lblttotal = Val(txtrecv) - Val(lblprec)
End If
muchisimas gracias a todos.
y a F8.
jajajaja