
03/05/2006, 06:54
|
 | | | Fecha de Ingreso: enero-2006 Ubicación: ¿Atlantida, Hesperides, Islas afortunadas?
Mensajes: 2.231
Antigüedad: 19 años, 2 meses Puntos: 19 | |
¿ Has probado con : ?
Private Sub Sumas()
Me.Refresh
Me.amount1 = (Me.qt1 * Me.unit1)
Me.Recalc
Me.Refresh
Me.amount2 = (Me.qt2 * Me.unit2)
Me.Recalc
Me.Refresh
Me.parts = Me.amount1 + Me.amount2
Me.Recalc
Me.Refresh
Me.total = Me.labor + Me.parts
Me.Recalc
Me.Refresh
End Sub |