RES: [firebase-br] Access Violation (o que pode ser).

[Felipe Giotto]

Só para testar, mande criar o form antes de chamar o Close.. Ficará assim:

Procedure gravar.click(sender: Tobject);
> Var
> Strsqlatual; string
> Begin
>   Inherited;
>   If Ibdataset1.FieldByName('satus').AsString = 'S' then
>   Begin
>      Strsqlatual:= 'select * from produtos where codigo =
>      '+#39+ Ibdataset1.FieldByName('cod_prod').asstring +#39;
>      Application.CreateForm(TFormProdutos,FormProdutos);
>      FormProdutos.IbdataSet1.Close;   ====>  aqui o erro ocorre…..
>      FormProdutos.IbdataSet1.SelectSql.Clear;
>      ....


Lembre-se que você não deverá utilizar dessa forma no seu aplicativo, 
visto que todas as vezes que for clicado no botão, o Form será 
recriado... Utilize somente para testar... Mexo a muito pouco tempo com 
Delphi, deve existir outra maneira menos incorreta de verificar se o 
Form está instanciado!!

Espero ter ajudado,

Felipe Giotto ;-)




<<Ledo>> wrote:

>Salve Marco.
>
>Realmente isso não sei se influencia.. mas o form no projeto esta como
>available e não auto create.
>De qualquer forma ela tb esta no uses do form que chama o IbDataset.
>[[]]
>Ledo
>
>-----Mensagem original-----
>Verifique se o FormProdutos está criado...
>
>
>
>______________________________________________
>FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
>Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>
>  
>

-- 
Felipe Luiz Christófolli Giotto
Meta Tecnologia em Software, Ltda