Frames

[arnof]

Zitat von Walter Landwehr:

Hallo,

Delphi-Quellcode:

procedure TframeSpenden.qryMitgliederspendenNewRecord(DataSet: TDataSet);
begin
  qryMitgliederspenden.FieldByName('MITGLIEDERNR').AsInteger := frmMitglieder.MitgliederQry.FieldByName('MITGLIEDERNR').AsInteger;
end;

Irgendwie kann ich nicht auf die MitgliederQry zugreifen, aber warum nicht?


Danke für Eure Hilfe.

Prüfe als erstes mal, ob das DataSet überhaupt offen ist, sonst kriegst Du genau diese Zugriffverletzung:

Delphi-Quellcode:

procedure TframeSpenden.qryMitgliederspendenNewRecord(DataSet: TDataSet);
begin
 if qryMitgliederspenden.Active then 
  qryMitgliederspenden.FieldByName('MITGLIEDERNR').AsInteger := frmMitglieder.MitgliederQry.FieldByName('MITGLIEDERNR').AsInteger;
end;

oder ganz Sicher:

Delphi-Quellcode:

procedure TframeSpenden.qryMitgliederspendenNewRecord(DataSet: TDataSet);
begin
 if Assigned(frmMitglieder) then begin
  if qryMitgliederspenden.Active and frmMitglieder.MitgliederQry.Active then 
   qryMitgliederspenden.FieldByName('MITGLIEDERNR').AsInteger := frmMitglieder.MitgliederQry.FieldByName('MITGLIEDERNR').AsInteger;
 end;
end;