Problemas na Inclus�o de registro

Question

Ol� amigos,

estou tendo problemas quando vou inserir um novo registro, da seguinte maneira rodo o programa, clico em incluir, digito os dados, bot�o gravar at� a� funciona, mas quando clico em incluir de novo me parece que bot�o perde a fun��o e n�o acontece nada, qual pode ser a causa e como posso resolv�-la :?:

T+

Ingawebfm · Answer

[quote:adf7109dc5=�ingawebfm�]Ol� amigos, estou tendo problemas quando vou inserir um novo registro, da seguinte maneira rodo o programa, clico em incluir, digito os dados, bot�o gravar at� a� funciona, mas quando clico em incluir de novo me parece que bot�o perde a fun��o e n�o acontece nada, qual pode ser a causa e como posso resolv�-la  :?: T+[/quote:adf7109dc5] Desculpem acho que faltou uma informa��o, quando saio do form e entro de novo o bot�o funciona..............

Edilcimar · Answer

qual o bd e quais os componetes usados? j� deu um refresh? a tabela n�o foi fechada depois do incluir?...

Aroldo Zanela · Answer

Colega,Se poss�vel, coloque um fragmento do c�digo para verificarmos melhor....

Ingawebfm · Answer

Colegas desculpem pelo falha, bom este � o procedimento de incluir:

procedure TFormPadrao1.btn_incluirClick(Sender: TObject);
begin
operacaoIncluir:= 1;
{Execu��o de senten�a SQL}
if DM.IBDataSet1.RecordCount = 0 then
begin
strSql:= �SELECT * FROM � + nomeTabela + � WHERE ID = 0 �;
Executar:= sentencaSQL;

DM.IBDataSet1.Insert;

//{Habilita��o e exibi��o de objetos}
valorCampo.Enabled:= False;
btnOk.Visible:= False;
checkHabilita.Enabled:= False;
checkMarca.Enabled:= False;
LabelStatus.Visible:= False;
PanelFicha.Enabled:= True;

//{Inclus�o de registros}
DM.IBDataSet1.FieldByName(�status�).AsString:= �N�;
DM.IBDataSet1.FieldByName(�marca�).AsString:= �N�;
DM.IBDataSet1.FieldByName(�data_inc�).AsDateTime:= date;

{Bot�es e barra de status}
Executar:= desabilitaBotoes;
statusbar1.Panels[2].Text:= � Inclus�o de novo registro�;
Executar:= exibePanels;

operacaoIncluir:= 0;
pageControl1.ActivePage:= TabSheetFicha;
end;

T+

Ingawebfm · Answer

Colegas,

ainda n�o consegui resolver, este seria formul�rio pai, farei que os outros herdem suas funcionalidades, portanto preciso verificar este processo, preciso de sugest�es para a solu��o....

obrigado !

Aroldo Zanela · Answer

Colega,Em que momento est� sendo aberto o IBDataSet1? N�o consegui ler/entender seu c�digo. Pode adicionar mais detalhes?...

Edilcimar · Answer

if DM.IBDataSet1.RecordCount = 0 then aqui diz que � para incluir se nenhum registro existir, e quando existir n�o inclui?...

F�rum Problemas na Inclus�o de registro #310290