Updating 2 Tables with same values

[Claudius Sailer]

Hi,

I use the following Code to Update two tables at the same time and I do  
this one after the other. Is it possible to do this at the same time?

I am not sure whether this is possible or not and want to ask before I  
make a lot of changes.

bye

Claudius


ACTUAL CODE

   res=meineDatenbank.TBuchungen.GoToRecID(BuchungSSatz)
     theTrue=parsedate(trim(EditField1.text),CheckDate)
   //Buchungentabelle aktualisieren
   meineDatenbank.TBuchungen.BDatum.Set(CheckDate.year, CheckDate.month,  
CheckDate.day)
   meineDatenbank.TBuchungen.Kategorie_ID.value=AktuelleKategorie  
''PopupMenu1(2).RowTag(PopupMenu1(2).ListIndex)
   if cdbl(EditField4(0).text)<>0 then
     //Ausgabe
      
meineDatenbank.TBuchungen.Betrag.value=RoundTextNumber(EditField4(0).tex 
t)
     meineDatenbank.TBuchungen.Herk_Konto.value=AktuellesKonto  
''PopupMenu1(0).RowTag(PopupMenu1(0).ListIndex)
     meineDatenbank.TBuchungen.Ziel_Konto.value=AktuellesGegenKonto  
''PopupMenu1(1).RowTag(PopupMenu1(1).ListIndex)
   else
     //Einnahme
      
meineDatenbank.TBuchungen.Betrag.value=RoundTextNumber(EditField4(1).tex 
t)
     meineDatenbank.TBuchungen.Herk_Konto.value=AktuellesGegenKonto  
''PopupMenu1(1).RowTag(PopupMenu1(1).ListIndex)
     meineDatenbank.TBuchungen.Ziel_Konto.value=AktuellesKonto  
''PopupMenu1(0).RowTag(PopupMenu1(0).ListIndex)
   end if
   if CheckLeer(EditField5.text) then
     meineDatenbank.TBuchungen.Kommentar.setblank
   else
     meineDatenbank.TBuchungen.Kommentar.Value=trim(EditField5.text)
   end if
   meineDatenbank.TBuchungen.Blocked.value=false
   meineDatenbank.TBuchungen.UpdateRecord


   //Anzeigentabelle aktualisieren
   res=meineDatenbank.TAnzeige.GotoRecID(AnzeigeSatz)
   meineDatenbank.TAnzeige.BDatum.Set(CheckDate.year, CheckDate.month,  
CheckDate.day)
   meineDatenbank.TAnzeige.Gegenkonto.value=EditField2(0).text
   meineDatenbank.TAnzeige.Kategorie.value=EditField2(1).text
   if cdbl(EditField4(0).text)<>0 then
      
meineDatenbank.TAnzeige.Ausgabe.value=RoundTextNumber(EditField4(0).text 
)
     meineDatenbank.TAnzeige.Einnahme.setblank
   else
     meinedatenbank.TAnzeige.Ausgabe.setblank
      
meineDatenbank.TAnzeige.Einnahme.value=RoundTextNumber(EditField4(1).tex 
t)
   end if
   if CheckLeer(EditField5.text) then
     meineDatenbank.TAnzeige.Kommentar.setblank
   else
     meineDatenbank.TAnzeige.Kommentar.Value=trim(EditField5.text)
   end if
   meineDatenbank.TAnzeige.Blocked.Value=false
   meineDatenbank.TAnzeige.UpdateRecord



NEW CODE

   res=meineDatenbank.TBuchungen.GoToRecID(BuchungSSatz)
   res=meineDatenbank.TAnzeige.GotoRecID(AnzeigeSatz)

     theTrue=parsedate(trim(EditField1.text),CheckDate)
   //Buchungentabelle aktualisieren
   meineDatenbank.TBuchungen.BDatum.Set(CheckDate.year, CheckDate.month,  
CheckDate.day)
   meineDatenbank.TAnzeige.BDatum.Set(CheckDate.year, CheckDate.month,  
CheckDate.day)

   meineDatenbank.TBuchungen.Kategorie_ID.value=AktuelleKategorie  
''PopupMenu1(2).RowTag(PopupMenu1(2).ListIndex)
   meineDatenbank.TAnzeige.Gegenkonto.value=EditField2(0).text
   meineDatenbank.TAnzeige.Kategorie.value=EditField2(1).text

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