O objeto está aberto ou fechado?

[Bins 0]

Eu estou com um problema besta com o dataenvironment, se eu faço o seguinte codigo...banco.loteDo While not banco.rslote.eof(...)LoopEle dá erro em banco.lote, dizendo operacao nao permitida enquanto o objeto está abertoNo form, nenhum campo está vinculado, eu faço a gravaçao e atualizacao tudo via codigo.Tem algum metodo ou funcao para testar se algum recordset está aberto ou fechado?Valeu pela ajuda.

[luiz humberto 0]

Utilize a popriedade State do RecordSet.

 

If RecordSet.State=1 then   Msgbox "RecordSet Aberto"elseif RecordSet.Stat=0 then   Msgbox "RecordSet Fechado"end if

Quando ele estiver aberto e querer abrir novamente é só fazer o seguinte:

 

If RecordSet.State then=1 then  RecordSet.Close  RecordSet.Openend if

[Bins 0]

Valeu!