Formular mit Feldberechnung(Makro) wird nicht gespeichert

Datenbanklösungen mit AOO/LO

Moderator: Moderatoren

smov
Beiträge: 1
Registriert: Di, 09.05.2006 12:22

Formular mit Feldberechnung(Makro) wird nicht gespeichert

Beitrag von smov »

Hallo Zusammen, bin neu hier!

Erstmal: Toll dass es das Forum gibt.

Ich arbeite an einem kleinen Projekt mit Base (Mietverträge erfassen). Dabei verwende ich ein Formular um die Daten einzugeben. In diesem Formular werden einige Datenfelder berechnet: zB aus StartDatum und Dauer berechne ich das EndDatum, das funktioniert alles perfekt (korrekter Wert im richtigen Feld). Diese Berechnung geschieht mit einem Makro das in der Formulardatei (Writerdokument mit BaseAssistenten erstellt) gespeichert ist. Der Code sieht so aus:

Code: Alles auswählen

sub DateAddWeeks

DIM d1 as Double
DIM d2 as Double
DIM d as Double
DIM dd as Double

odoc=thisComponent
odrawpage=odoc.drawpage
oform=odrawpage.getForms.GetByName("MainForm")
d1=CDateFromIso(oform.GetByName("datmv_beginn").date)
d2=oform.GetByName("mv_dauer").value * 7
d=d1+d2
dd=CDateToIso(d)
oform.GetByName("datmv_ende").date = dd
end sub 
Das Problem ist nun allerdings, dass alle Felder (hat noch andere, ähnlich berechnet) die berechnet wurden beim speichern des Datensatzes nicht in die Datentabelle gespeichert werden. Braucht es da einen speziellen "update" Befehl?
Vielen Dank schon im voraus für eure Antworten
cheerS