[OOoBase]MàJ par macro non inséré ds base de donnée

Dom&Bene le 28 février 2009 à 18h19

Bonjour,

Je suis a faire ma première macro sous OOo et j'ai un problème avec celle ci.

En effet, le résultat s'affiche bien, mais quand je passe à l'enregistrement suivant ou que je ferme mon formulaire de la base, le résultat ne s'affiche pas.

j'ai essayé d'ajouter :
Dim Enreg as object
et avant le End sub
Enreg=oForm.getByName("repasFACTURE8")
Enreg.commit
End Sub

mais là, mon résultat ne s'affiche même plus et cela n'enregistre rien.
Quelqu'un a t'il la solution ?

Merci d'avance

Dom
Ci dessous, la macro qui déconne :

Sub CalculAOUT
Dim oForm as object
Dim MesChamps as object
Dim oCtrl1, oCtrl2 as object
Dim oCtrl3, oCtrl4 as object
Dim Val1, Val2, Val3, Val4 as double
Dim ValTotal as double

oForm = ThisComponent.DrawPage.Forms.getByName("PointageCantine")
oCtrl1 = oForm.getByName("RepasServi8")
Val1 = oCtrl1.getPropertyValue(oCtrl1.DataFieldProperty)

'nombre de jours absent pour maladie
oCtrl2 = oForm.getByName("ABSMaladie8")
Val2 = oCtrl2.getPropertyValue(oCtrl2.DataFieldProperty)

'nombre de jours de carence
oCtrl3 = oForm.getByName("Carence8")
Val3 = oCtrl3.getPropertyValue(oCtrl3.DataFieldProperty)

'nombre de jours abscence motivée
oCtrl4 = oForm.getByName("RDV8")
Val4 = oCtrl4.getPropertyValue(oCtrl4.DataFieldProperty)

ValTotal=Val1-Val2+Val3-Val4

'Insertion du résultat
oForm.getByName("repasFACTURE8").effectiveValue = ValTotal
'Enregistrement du résultat
??????????????????????????????
End Sub

-->Message édité par Dom&Bene le 28/02/2009 18:21:29<--

répondre