Validar la existencia de un registro

[lucho1981]

Empezado por Neftali

Activa el Check para que "salten" las excepciones desde el IDE y a ver en qué línea está fallando. Y qué se hace luego. No es normal que por un error de este tipo se cierre el programa.

Tools/Debugger options/Language exceptions/Stop on Delphi exceptions
(Actícvalo)

Tengo activado el Stop on Delphi, me explique mal anteriormente. Lo unico q puedo hacer una vez q quedo en STOP es apretar ctrl+F2 (seguro q solo puedo hacer eso por mi ignorancia), y asi salir de la ejecución.
Este el el error q me devuelve delphi.


Este es el codigo q utilizo para cargar el registro. En que deberia modificarlo?

Código Delphi [-]
if ((ap.text='')or(nom.text='')or(dni.text='')or
            (dir.text='')or(Maskedit1.text='')or(acceso.text='')) then
            begin
            application.messagebox('debe ingresar todos los datos','ERROR',0);
            end
  else
      begin
              with DM.QsinUSER do
                begin
                    ParamByName('pap').Value := ap.Text;
                    ParamByName('pnom').Value := nom.Text;
                    ParamByName('pdni').Value := dni.Text;
                    ParamByName ('ptel').Value := Maskedit1.Text;
                    ParamByName ('pdir').Value := dir.Text;
                    ParamByName ('pacceso').Value := acceso.Text;
                    ExecSQL;
                    Application.MessageBox('Los datos fueron cargados correctamente','Mensaje',0) 
                end;

  DM.tusuarios.Close;
  DM.tusuarios.Open;

  dni.Text :='';
  ap.Text := '';
  nom.Text := '';
  Maskedit1.Text := '';
  dir.Text := '';
  acceso.Text := '';

  ap.SetFocus;
  end;

Gracias