Power Builder - Este script no me funciona bien ayuda

Este script no me funciona bien ayuda. Cuando no existe el valor de las escuela no me deja esitar el texto, me falta algo no se que es, quien me pueda ayudar se le agradece

//sle_22.text evento modified

n_esc = integer(sle_22.text)

SELECT id_escuela
INTO :n_esc
FROM escuelas
WHERE :n_esc = id_escuela ;

if n_esc = 0 then

Messagebox("Advertencia","No existe ninguna escuela con este id, por favor ingrese el nombre")
sle_23.enabled = TRUE
sle_23.setfocus()

elseif n_esc <> 0 then

SELECT nombre_escuela
INTO :no_esc
FROM escuelas
WHERE :n_esc = id_escuela ;

sle_23.enabled = FALSE
sle_23.text = no_esc
sle_24.setfocus()

end if

Bueno creo que debes hacerlo asi:

SELECT id_escuela
INTO :n_esc
FROM escuelas
WHERE :n_esc = id_escuela ;

If Sqlca.SqlCode = 100 then

Messagebox("Advertencia","No existe ninguna escuela con este id, por favor ingrese el nombre")

sle_23.enabled = TRUE
sle_23.setfocus() ; Return

Else

SELECT nombre_escuela
INTO :no_esc
FROM escuelas
WHERE :n_esc = id_escuela ;

sle_23.enabled = FALSE
sle_23.text = no_esc
sle_24.setfocus()

End if

según tu código lo que tu haces es buscar primero el código de la escuela y si lo encuentra busca el nombre de la escuela de la misma tabla.
porque mejor no buscar los dos datos en un mismo select y te ahorras varias lineas de código.

reemplaza este código por el tuyo para ver que sale.

n_esc = integer(sle_22.text)

select id_escuela, nombre_escuela
Into :n_esc , :no_esc from escuelas
where id_escuela = :n_esc;

If Sqlca.SQLCode = 100 then
Messagebox("Aviso","No existe escuelas con este id",StopSign!)

sle_22.text = ""
sle_22.setfocus()
return
End if
sle_23.text = no_esc