Cita:
Iniciado por Bacarra 
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!!
hola mira tengo este problema yo he declarado en mi form asi
sub Suma ( )
dim sql as string
sql = "SELECT sum(PRECIO) as TOTAL from PRODUCTOS"
resultado= rs!PRECIO
text1.text = resultado
end sub
y en el text1 he declarado asi
private sub text1_change()
Suma
end sub
y sabes que es lo que pasa que al sumar se supone que debe aparecer el total de mi columna precio pero me aparece el total del primer registro. si me pueden ayudar les agradeceria mucho gracias.