subject:"\"\\\[delphi\\\-br\\\] EVariantError\""

RES: [delphi-br] EVariantError OK

2005-06-02 Por tôpico Rodrigo Mota

Valew  conseguiEduardo...
 
Rodrigo Mota
 
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Eduardo
Enviada em: quinta-feira, 2 de junho de 2005 13:14
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] EVariantError
 
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]
<mailto:[EMAIL PROTECTED]> 
  
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
<http://br.yahoo.com/info/utos.html>  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

Re: [delphi-br] EVariantError

2005-06-02 Por tôpico Eduardo

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

[delphi-br] EVariantError

2005-06-02 Por tôpico Rodrigo Mota

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

<*> 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

[delphi-br] EVariantError

2005-06-02 Por tôpico Rodrigo Mota

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

<*> 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

RES: [delphi-br] EVariantError OK

Re: [delphi-br] EVariantError

[delphi-br] EVariantError

[delphi-br] EVariantError

4 matches

Site Navigation

Mail list logo

Footer information