Fórum Erro ao salvar tabela paradox #232805
17/05/2004
0
coloquei um botão para salvar a tabela
ex: table1.prior;
só que se não foram feitas nenhuma modificação da o erro de DEBUGER, gostaria de saber como colocar uma regra para que table1 so salve se forem feitas modificações caso contrário ela mostra um form, pensei em fazer com if mas não sei se é possível.
se alguem tiver alguma coisa ficarei agradecido.
boa tarde a todos
Klaveren
Curtir tópico
+ 0Posts
17/05/2004
Netosdr
Você deve verificar o estado da tabela no momento da gravação antes de enviar o Post
Ex:
if Table.State <> dsBrowse then Table1.Post;
Declare DB na uses.
Abraços.
Gostei + 0
17/05/2004
Klaveren
bem digito este código no botão???
ele verifica todos os campos???
Gostei + 0
17/05/2004
Fatrix
Voce pode fazer o seguinte:
coloque no form que contêm o botão o código abaixo:
with DataSource.DataSet do
begin
if (State in dsEditModes) then
begin
Botao.enabled := true;
Post
else
Botao.enabled := false;
end;
É isso.
Espero ter ajudado.
Gostei + 0
17/05/2004
Klaveren
procedure Tfrm_CadClientes.FormCreate(Sender: TObject);
begin
with DataSource_CadClientes.DataSet do
begin
if (State in dsEditModes) then
begin
BitBtn_Salvar.enabled := true;
Post
else
BitBtn_Salvar.enabled := false;
end;
end;
end.
POREM ELE NÃO COMPILA POIS DÁ ESTA MENSAGEM DE ERRO...
[Error] unt_CadCliente.pas(122): ´END´ expected but ´ELSE´ found
Gostei + 0
17/05/2004
Fatrix
procedure Tfrm_CadClientes.FormCreate(Sender: TObject);
begin
with DataSource_CadClientes.DataSet do
begin
if (State in dsEditModes) then
begin
BitBtn_Salvar.enabled := true;
Post
else
BitBtn_Salvar.enabled := false;
end; //fim do if
end; //fim do with
end;//fim da procedure
end.
Obs.: Mude a propriedade Enabled do BitBtn_Salvar para False
É isso.
Espero ter ajudado.
Gostei + 0
17/05/2004
Rodolpho123
Gostei + 0
17/05/2004
Klaveren
quando executo o programa o botão aparece desabilitado e assim fica, posso alterar e inserir que ele nem se pronuncia!!!
alguem uma luz???
Gostei + 0
17/05/2004
Fatrix
Foi mal, errei.
Então coloque o seguinte código no evento OnStateChange do
seu DataSource.
with Data2.DataSet do
begin
if (State in dsEditModes) then
BitBtn_Salvar.enabled := true
else
BitBtn_Salvar.enabled := false;
end; //fim do with
e no botão
Data2.DataSet.Post;
Como diria O Cid Moreira:
´Desculpem a nossa falha.´
É isso.
Espero ter ajudado.
Gostei + 0
17/05/2004
Fatrix
Foi mal, errei.
Então coloque o seguinte código no evento OnStateChange do
seu DataSource.
with DataSource_CadClientes.DataSet do
begin
if (State in dsEditModes) then
BitBtn_Salvar.enabled := true
else
BitBtn_Salvar.enabled := false;
end; //fim do with
e no botão
DataSource_CadClientes.DataSet.Post;
Como diria O Cid Moreira:
´Desculpem a nossa falha.´
É isso.
Espero ter ajudado.
Gostei + 0
18/05/2004
Klaveren
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)