V4RB2 Insert instead of UPDATE

[Claudius Sailer]

Hi,

I have following code, but I didn't get an updated record. Old record  
is after that as it was but I get new record with changed values??

Do I have any error in my code? Code is not changed from 1.10 to 2.0.1.  
Only UpdateRecord() and .RecID=


   meineDatenbank.TBuchungen.RecID=BuchungSSatz

   Call parsedate(EditField1.text.trim,CheckDate)
   //Buchungentabelle und Anzeigentabelle aktualisieren
   meineDatenbank.TBuchungen.BDatum.Set(CheckDate.year, CheckDate.month,  
CheckDate.day)

   meineDatenbank.TBuchungen.Kategorie_ID.value=AktuelleKategorie

   if EditField4(0).text.cdbl<>0 then
     //Ausgabe
      
meineDatenbank.TBuchungen.Betrag.value=RoundTextNumber(EditField4(0).tex 
t)
     meineDatenbank.TBuchungen.Herk_Konto.value=AktuellesKonto
     meineDatenbank.TBuchungen.Ziel_Konto.value=AktuellesGegenKonto
   else
     //Einnahme
      
meineDatenbank.TBuchungen.Betrag.value=RoundTextNumber(EditField4(1).tex 
t)
     meineDatenbank.TBuchungen.Herk_Konto.value=AktuellesGegenKonto
     meineDatenbank.TBuchungen.Ziel_Konto.value=AktuellesKonto
   end if
   if CheckLeer(EditField5.text) then
     meineDatenbank.TBuchungen.Kommentar.setblank
   else
     meineDatenbank.TBuchungen.Kommentar.Value=EditField5.text.trim
   end if
   meineDatenbank.TBuchungen.Blocked.value=false
   meineDatenbank.TBuchungen.UpdateRecord()

   meineDatenbank.TBuchungen.flush

bye

Claudius

-- 
G4/733 QS / MacOS X 10.3.8de / RB 5.5.3de/ Valentina 1.10.0 & 2.0.1
Homepage	http://www.ClaSai.de
iChat		ryhoruk
RealBasic ListBoxes: [ I feel the need...the need for speed!!! ]