Fehler bei ADOTable.Post

[Detlef]

Hallo Delphianer,
wenn ich in einem Zyklus mehrere Sätze in eine MDB-Tabelle schreibe
bekomme ich beim Post des 2. Satzes die Fehlermeldung:

'Fehler bei einem aus mehreren Schritten bestehenden Vorgang. Prüfen
Sie die einzelnen Statuswerte.'
Der Code sieht etwa so aus:

Delphi-Quellcode:

while not adodataset1.Eof do begin
      buchform.adotable1.append;
      buchform.ADOTable1['KNR']:=adodataset1['KNR'];
      tempbetrag:=adodataset1['Betrag']*100;
      strintdm(tempbetrag,stempbetrag,0);
      buchform.ADOTable1['Betrag']:=stempbetrag;
      buchform.ADOTable1['Empf']:=adodataset1['Empf'];
      buchform.ADOTable1['Text']:=adodataset1['Text'];
      buchform.ADOTable1.Post;
      adodataset1.next;
   end;

Die Tabellendefinition:

Delphi-Quellcode:

object ADODataSet1KNR: TStringField
  DisplayWidth = 40
  FieldName = 'KNR'
  Size = 40
end
object ADODataSet1Betrag: TCurrencyField
  FieldName = 'Betrag'
end
object ADODataSet1Empf: TWideStringField
  FieldName = 'Empf'
  Size = 50
end
object ADODataSet1Text: TWideStringField
  FieldName = 'Text'
  Size = 50

end

Der erste Satz wird ordnungsgemäß gespeichert. Erst ab dem 2.
passierts dann.

Wer hat einen Tip ?

Gruß Detlef

[edit=MrSpock]Code Tags eingefügt. Mfg, MrSpock[/edit]