(Resolvido) Problema de Violação de memória

[Aldinei]

Boa tarde,

Colegas estou com problema sério e não consigo resolver, tem um projeto no delphi 7 estava usando DBE com o BD Access,  sempre que acesso um uma Query trava e da erro de violação de memória, troquei para ADO achando que era o BDE e continua veja o erro.

Agradeço desde já a todos que possa me ajudar.

grande abraço

 

 

[Jhonas]

o erro ocorre quando voce abre a tabela, ou o erro ocorre depois ?

[Aldinei]

Agora, Jhonas disse:

o erro ocorre quando voce abre a tabela, ou o erro ocorre depois ?

Oi Jhonas Obrigado pela atenção.

É quando abre  qualquer tabela.

 

[Jhonas]

me mostra o código onde ocorre o erro

[Aldinei]

um mom

 

/------------------------------------------------------------------------------
procedure TFrm_Principal.FormShow(Sender: TObject);
//------------------------------------------------------------------------------
begin
     F_DataModule.Qry_Configuracao.close;
     F_DataModule.Qry_Configuracao.open;
      Wvisualiza_Rel_tela     := F_DataModule.Qry_Configuracao.Fieldbyname('rel_visualiza_tela').AsBoolean;
//     WtempoPermitido         := (F_DataModule.Qry_Configuracao.Fieldbyname('tempoespera').AsInteger * 6.95);
//     WUltimaHoraUsada        := (time * 10000);

     LongDateFormat:= 'dd/mm/yyyy';
     DateSeparator := '/';
 

É sempre que movimento uma tabela, 

[Jhonas]

deixe como comentario todas as linhas de código abaixo do F_DataModule.Qry_Configuracao.open;

e execute novamente .... se ocorrer novamente o erro, me mostra a select da query

[Aldinei]

nessa primeira linha do formshow, quando fecho a tabela.

Parece ser alguma coisa com Datamodule. você quer entrar na minha maquina com TeamViewer para ver melhor e ficaria muito grato.

 

 

[Jhonas]

o seu código deveria estar no evento OnActive do Form

procedure TForm1.FormActivate(Sender: TObject);
begin

end;

[Aldinei]

Oi Jhonas, 

 

Desculpe a demora.

com muito trabalho conseguir uma versão anterior 

 

1 hora atrás, Jhonas disse:

o seu código deveria estar no evento OnActive do Form

procedure TForm1.FormActivate(Sender: TObject);
begin

end;

Jhonas este projeto meu é antigo, tem muito tempo que desenvolvi ele, estava parada eu estava trabalhando e agora vou voltar movimentar ele, funcionava muito bem até em algumas empresa. 

ficaria muito grato se você me dé uma atenção especial.

[Jhonas]

OK ...Informe depois o resultado.

abraço

[Aldinei]

17 horas atrás, Jhonas disse:

OK ...Informe depois o resultado.

abraço

Jhonas bom dia,

O problema foi resolvido conforme sua instruções, já esta rodando e compilando, agora vou ajustar os errros de execução.

Não sei como te agradecer muito obrigado mesmo.

Qualquer coisa estou a disposição.

 

Grande Abraço.