procedure TDataM.rafraichir_donnees(table:TMDOTable); var bmk:TBookmark; begin with table do begin active:= true; try try bmk:=GetBookmark; Transaction.Commit; except Showmessage ('Une transaction en cours. Réessayer une fois de plus.'); Transaction.Rollback; end; DisableControls; table.close; table.open; finally GotoBookmark(bmk); FreeBookmark(bmk); EnableControls; end; end; end;