Facil. try if not DTM.tb_os.Isempty then begin DTM.tb_os.Prior; btn_novo.Enabled := True; btn_gravar.Enabled := False; CODIGO_OS := DTM.dsn_os.DataSet['os_codigo']; end else begin // Trate aqui quando estiver vazio end;
except on E : Exception do ShowMessage(E.Message); end; Eduardo ----- Original Message ----- From: Rodrigo Mota To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 02, 2005 11:57 AM Subject: [delphi-br] EVariantError Nos botões anterior e proximo para manipular o registro, estou com o seguinte problema Quando não tem nda no banco ele da um erro EVariantError, estava tentando tratar...mas ainda não consegui. procedure Tfrm_os.btn_anteriorClick(Sender: TObject); begin try DTM.tb_os.Prior; btn_novo.Enabled := True; btn_gravar.Enabled := False; CODIGO_OS := DTM.dsn_os.DataSet['os_codigo']; except on EVariantError do begin ShowMessage('Nenhuma OS'); abort; end; end; Rodrigo [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] ------------------------------------------------------------------------------ Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html