Tengo problemas en Acces

mianalza_cepreuh
24 de Noviembre del 2004
Tengo un problema en acces ya que e llamado una consulta en la cual tengo un campo que se llama diferencia y en la resta de dos campos uno TechoCosto y el Otro techo propuesto
y el campo diferencia de ellos dos
El codigo es el siguente

Set RstTecho = CurrentDb.OpenRecordset("ResumenTechoPresupuesto", dbOpenDynaset)
Diferencia = RstTecho("Diferencia")
Especifica = RstTecho("esp_id")
Do While Not RstTecho.EOF
If Diferencia < 0 Then
strMensaje = "Esta Pasando Su Techo Presupuestal Asignado" & Especifica & "=" & Diferencia
intEstilo = vbOKOnly
strTítulo = "Alerta"
MsgBox strMensaje, intEstilo, strTítulo
SubformularioDetallesPedidos.SetFocus
Else
Exit Do
End If
Exit Do
Loop

deseo que al momento de actualizar un formulario y actualizar la consulta me de un mensaje que me he pasado el limite impuesto por el campo TechoCosto