LOCATE FOR en tiempo de Ejecucion
Publicado por LRJ (1 intervención) el 21/06/2002 04:32:24
tengo una tabla en la cual almaceno difrentes codigos y tengo un formulario de busqueda en el cual uso una rutina con LOCATE para buscar un registro determinado y si no lo en cuentra me muestra un mensaje de error, la rutina funciona correctamente en tiempo de diseño cuando ejecuto el exe... cuando hago la busqueda por ejemplo por 15 se me para en el primer registro que coincida con esos dos primeros numeros en mi caso el 15472345 como lo configuro para que me mustre e mensaje de error ya que el regitro 15 no exixte la rutina es la siguinte
nrecno=recno()
store "" to celta
celta=alltrim(ThisForm.Text1.value)
SELECT profesores
locate for alltrim(profesores.ci)=celta
if found()
recno()
else
messagebox ("PROFESOR NO ENCONTRADO",48,"Registro No Encontrado")
goto (nrecno)
endif
nrecno=recno()
store "" to celta
celta=alltrim(ThisForm.Text1.value)
SELECT profesores
locate for alltrim(profesores.ci)=celta
if found()
recno()
else
messagebox ("PROFESOR NO ENCONTRADO",48,"Registro No Encontrado")
goto (nrecno)
endif
Valora esta pregunta
0