Var RefEnr: TBookmark;
Begin
{* Sauvegarder la position de l'enregistrement avant
d'exécuter le code *}
RefEnr := GetBookmark;
Try
// Ton code s'exécute ici
// .......
// Puis ce repositionner sur l'enregistrement marqué
GotoBookmark(RefEnr);
Finally
FreeBookmark(RefEnr); // Libérer le TBookmark
End;
end;
24 nov. 2016 à 13:21
Sauf erreur de ma part il me semble que le TBookmark perd la position
car mon code c'est un Update donc je dois rafraichir mon Query par Close-Open ou Refresh
Jorgio
Beau Temps Belle Mer
27 nov. 2016 à 17:42
Tu avais raison le GetBookmark marche si un Refresh est effectué
Jorgio
Beau Temps Belle Mer