03/05/2006, 08:23
|
 | | | Fecha de Ingreso: enero-2006 Ubicación: ¿Atlantida, Hesperides, Islas afortunadas?
Mensajes: 2.231
Antigüedad: 19 años Puntos: 19 | |
| Prueba con el método repaint ...
Private Sub Sumas()
Me.Refresh
Me.amount1 = (Me.qt1 * Me.unit1)
Me.Recalc
Me.Repaint
Me.amount2 = (Me.qt2 * Me.unit2)
Me.Recalc
Me.Repaint
Me.parts = Me.amount1 + Me.amount2
Me.Recalc
Me.Repaint
Me.total = Me.labor + Me.parts
Me.Recalc
Me.Repaint
Me.Refresh
End Sub |