последняя созданная запись

Hello sibprogsistem

Below, how I realize what you want to get :

procedure Saisie_Button3_OnAfterClick (Sender: TObject);
begin
    Form1.TableGrid1.dbItemID := Last_Insert_Id();   //  On se positionne sur le dernier enregistrement saisi
    Form1.TableGrid1.dbUpdate;
end;

In the segment Last_Insert, don't place any parameters between()

Or you can place this in th evement OnChange of your TableGrid :

if PrevAction = 'NewRecord' then
      begin
        PrevAction := '';
        Form1.TableGrid1.dbUpdate;
        Form1.TableGrid1.dbItemID := Last_Insert_id;
        Form1.TableGrid1.ScrollToRow(Form1.TableGrid1.SelectedRow);
        Form1.TableGrid1.SetFocus;
      end;

In this case, don't forget to declare this global variable :

var    PrevAction: string;

But don't use the those two pieces of code in the same time

Can this help you ?

JB

это тоже не вариант

procedure frmAllListManufacturer_OnShow (Sender: TObject; Action: string);
begin
   PrevAction := Action;
end;

procedure frmAllListManufacturer_tgAllListManufacturer_OnCellClick (Sender: TObject; ACol, ARow: Integer);
begin
       if PrevAction = 'NewRecord' then
    begin
        PrevAction := '';
        frmAllListManufacturer.tgAllListManufacturer.dbItemID := Last_Insert_id();
        frmAllListManufacturer.tgAllListManufacturer.ScrollToRow(frmAllListManufacturer.tgAllListManufacturer.SelectedRow);
        frmAllListManufacturer.tgAllListManufacturer.SetFocus;
    end;
end;

в событии OnClick запись еще не была сохранена, используйте событие OnAfterClick, попробуйте так

procedure frmAddManufacturer_bSave_OnAfterClick (Sender: TObject);
begin
    frmAllListManufacturer.tgAllListManufacturer.dbItemID := frmAddManufacturer.bSave.dbGeneralTableId;
end;