Locate current record after refresh...

[1HuntnMan]

Trying to return the record pointer back to the current record just posted. This doesn't error but just like doesn't execute:

Code: Pascal  [Select][+][-]

1. procedure TFrmClientsMgt.QryClientsAfterPost(DataSet: TDataSet);
2. var
3.   CurID : Integer;
4. begin
5.   //=> Move back to the saved record...
6.   CurID:= DataSet.FieldByName('CUSTNO').AsInteger;
7.   QryClients.Locate('CUSTNO',CurID,[]);
8. end;
9.  

[CharlyTango]

In my opinion the record pointer stays at the same position when posting data. Why should he move?
Except when inserting data, the he should stay on the inserted record.

but maybe Bookmarks could help

[Zvoni]

In my opinion the record pointer stays at the same position when posting data. Why should he move?
Except when inserting data, the he should stay on the inserted record.

but maybe Bookmarks could help

Remember, that type TBookmark is deprecated/should not be used anymore.
Use TBookmarkStr instead

[1HuntnMan]

I tried TBookmarkStr instead per Zvoni but check out the way I coded it. Laz is having a problem with AnsiString vs. Integer.

Code: Pascal  [Select][+][-]

1. procedure TFrmApptsMgt.QryApptsAfterPost(DataSet: TDataSet);
2. {var
3.   MyBookmark : TBookmarkStr;}
4. begin
5.   //MyBookmark:= QryAppts.Bookmark;
6.   UpdateTTLAppts;
7.   //=> Move to the previously saved record...
8.   //QryAppts.GotoBookmark(MyBookmark);
9.   //QryAppts.FreeBookmark(MyBookmark);
10. end;
11.  

I commented out the lines so that app can compile. This errors because MyBookmark is assigned an integer value via the first line: MyBookmark:= QryAppts.Bookmark;

But, my previous code works in an app I coded a couple of years ago????

[1HuntnMan]

Also, the record pointer returns to BoF because I refresh after I Post...

[Sieben]

That's the problem - Refresh occurs after AfterPost is executed. You need to place the Locate in AfterRefresh.