[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
* 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
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
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]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] EVariantError OK
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
