i have the following ms access 2003 table:

Invoice_Master
(
   Invoice_Id  Autonumber,
   Customer_Id  integer,
   Invoice_Date  Date/Time not null,
.
.
.
);

and following code (Delphi 7)

procedure TfmInvoiceMaster.adoMasterEditNewRecord(DataSet: TDataSet);
begin
  inherited;
  adoMasterEditInvoice_Date.AsDateTime := Date;
end;

when i try to add a new record i end with exception error sys:

Field 'Invoice_Date' cannot be modified.

pls what is wrong

• delphi
• ms-access
• delphi-7

You're doing it wrong. :)

You should be using the AfterEdit event instead. From the help file on TDataSet.AfterEdit:

Write an AfterEdit event handler to take specific action immediately after dataset enters edit mode. AfterEdit is called by Edit after it enables editing of a record, recalculates calculated fields, and calls the data event handler to process a record change.

Use it like this:

procedure TfmInvoiceMaster.adoMasterAfterEdit(DataSet: TDataSet);
begin
  // No inherited call! This is an event handler, not an overridden method
  adoMasterEditInvoice_Date.AsDateTime := Date;
end;

From your text, though, you seem to be wanting to do it when a record is inserted, not edited ("when i try to add a new record i end with exception error sys:"). If that's the case, use AfterInsert the same exact way:

procedure TfmInvoiceMaster.adoMasterAfterInsert(DataSet: TDataSet);
begin
  // No inherited call! This is an event handler, not an overridden method
  adoMasterEditInvoice_Date.AsDateTime := Date;
end;