Components for Delphi and C++ Builder.

procedure TDFM_Conciliacao.CalcularSaldo;
var
qsaldo : Currency;
qDia : TDateTime;
AtualRec : TBookmark;
begin
// Exclui saldos anteriores...
AtualRec := MTLanca.GetBookmark;
MTLanca.DisableControls;
MTLanca.Filtered := False;
MTLanca.First;
while not MTLanca.Eof do
begin
if MTLancaStatus.Value = 4 then
MTLanca.Delete
else
MTLanca.Next;
end;
MTLanca.GotoBookmark(AtualRec); <== ERROR Rec Not Found (record has deleted by user)


Problem:

I know, I can't delete record...

but after that, DBgrideh paint/draw and Memtableeh edit/post doesn't work well anymore

Thanks

Hi,

You used



But i don't see before

That's why

Hi


Yes, I used MTLanca.EnableControls; some lines under.

but the ERROR cause EXIT of procedure...

that's it.


Thanks

You must do

Hello

You can use

to check if Bookmark is Valid

_________________
Best regards
EhLib Support Team

try this code


and you can use MTLanca.RecNo like this



Note: you don't need to use ELSE if you delete record or not you need to move to next record to check it.
I hope this will help you.. feel free to ask if you need more help.