11/07/2006, 23:14
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: España
Mensajes: 10
Antigüedad: 18 años, 9 meses Puntos: 0 | |
| Las consultas SQL tienes que ponerlas asi:
SQL = "select sum(debe) as db from pagos"
SQL = "select sum(haber) as hbr from pagos"
las resta:
resulta2 = RS!db - RS!hbr
(donde rs es el nombre del recordset)
la comapracion asi:
If val(lblsaldo.Caption) < 0 Then
lblsaldo.ForeColor = vbRed
Else
lblsaldo.ForeColor = vbBlue
End If
Saludosss!! |