Veririquem se tem alguma coisa errada... Por favor...
:?:
- Uso Delphi 5.0 e Paradox 7.0
- Esta sintaxe eu uso no evento ONEXIT de um DBEDIT
TbCadAss.DisableControls;
try
with TTable.Create(Self) do
try
DatabaseName := TbCadAss.DatabaseName;
SessionName := TbCadAss.SessionName;
TableName := TbCadAss.TableName;
IndexName := ´idcodass´;
Open;
try
if FindKey([DBEdit6.text]) then
begin
TbCadAss.Cancel;
TbCadAss.RecNo := RecNo;
TbCadAss.Edit;
ShowMessage(´Número de associado já existe. Veririque!´);
end
else
dbedit4.SetFocus;
finally
Close;
end;
finally
Free;
end;
finally
TbCadAss.EnableControls;
end;
- Problema: - Funciona muito bem na inclusão só q quando vou editar, ou seja, o CODIGOASS já existe, me retorna a mensagem dizendo q o associado já existe, como resolvar isso ????
Grato
Jota
- Uso Delphi 5.0 e Paradox 7.0
- Esta sintaxe eu uso no evento ONEXIT de um DBEDIT
TbCadAss.DisableControls;
try
with TTable.Create(Self) do
try
DatabaseName := TbCadAss.DatabaseName;
SessionName := TbCadAss.SessionName;
TableName := TbCadAss.TableName;
IndexName := ´idcodass´;
Open;
try
if FindKey([DBEdit6.text]) then
begin
TbCadAss.Cancel;
TbCadAss.RecNo := RecNo;
TbCadAss.Edit;
ShowMessage(´Número de associado já existe. Veririque!´);
end
else
dbedit4.SetFocus;
finally
Close;
end;
finally
Free;
end;
finally
TbCadAss.EnableControls;
end;
- Problema: - Funciona muito bem na inclusão só q quando vou editar, ou seja, o CODIGOASS já existe, me retorna a mensagem dizendo q o associado já existe, como resolvar isso ????
Grato
Jota
Jota
Curtidas 0
Respostas
Anonymous
26/02/2003
Sugiro que vc verifique se o dataset está em modo edit (Para uma alteração) ou se está em modo insert (para uma inclusão), então vc dispara o código somente se estiver no modo insert.
Exemplo:
if DataSource1.Dataset.State in [dsInsert] then
VerificaSeExiste(DataSource1.Dataset.FieldByName(´Codigo´).AsInteger);
Exemplo:
if DataSource1.Dataset.State in [dsInsert] then
VerificaSeExiste(DataSource1.Dataset.FieldByName(´Codigo´).AsInteger);
GOSTEI 0