Fórum Tabela não está em modo de Inserção ou Edição... #165598

19/06/2003

0

Saudações,
estou criando um programinha com delphi5 e Paradox e está acusando o seguinte erro :
´Tabela não está em modo de inserção ou edição´...eu pus o seguinte código:
Botão Inserir:
n := 1;
DM1.TB_RecArqv.Insert;

Botão Salvar:
if n = 1 then
begin
tbrecebCod_Escola.asInteger := strtoint(copy(cbescola.text,1,1));
tbrecebNome_Escola.AsString := copy(cbescola.text,5,80);
DM1.TB_RecArqv.Post;
DM1.TB_RecArqv.Refresh;
end
else
if n = 2 then
begin
tbrecebCod_Escola.asInteger := strtoint(copy(cbescola.text,1,1));
tbrecebNome_Escola.AsString := copy(cbescola.text,5,80);
DM1.TB_RecArqv.Post;
DM1.TB_RecArqv.Refresh;

Nota: n = 2 significa que foi pressionado o botão Alterar...Muito obrigado


Elias Jr

Elias Jr

Responder

Posts

19/06/2003

Hebert

Antes do
DM1.TB_RecArqv.Post; 
DM1.TB_RecArqv.Refresh; 


coloca:
DM1.TB_RecArqv.Edit; 



Responder

Gostei + 0

20/06/2003

Dorivansousa

Botão Salvar:
if n = 1 then
begin
[color=darkred:a57fad5778][b:a57fad5778]tbrecebCod_Escola.asInteger := strtoint(copy(cbescola.text,1,1));
tbrecebNome_Escola.AsString := copy(cbescola.text,5,80); [/b:a57fad5778][/color:a57fad5778]DM1.TB_RecArqv.Post;
DM1.TB_RecArqv.Refresh;
end
else

if n = 2 then
begin
[b:a57fad5778][color=darkred:a57fad5778]tbrecebCod_Escola.asInteger := strtoint(copy(cbescola.text,1,1));
tbrecebNome_Escola.AsString := copy(cbescola.text,5,80); [/color:a57fad5778][/b:a57fad5778]DM1.TB_RecArqv.Post;
DM1.TB_RecArqv.Refresh;

na parte destacada falta aponta o datamodule

Botão Salvar:

dm.tbrecebCod_Escola.asInteger := strtoint(copy(cbescola.text,1,1)); //acrecentei o ´DM.´ no inicio da linha
dm.tbrecebNome_Escola.AsString := copy(cbescola.text,5,80);

so ocorre da forma que vc descreveu se tive a tabela no formulario em questão.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar