11/11/2003, 02:51
|
| | | Fecha de Ingreso: abril-2003 Ubicación: Madrid
Mensajes: 707
Antigüedad: 21 años, 10 meses Puntos: 0 | |
| Perdona, me confundí en una cosilla tonta
nTotal = 0
For nInd = Me.cuadro1 to me.cuadro2
' Comprobar si es par
If (nInd mod 2) = 0 Then
nTotal = nTotal + nInd
End If
Next
me.cuadro3 = nTotal |