[Résolu] Enregistrement de champ numérique calculer automatiquement

[GJPierre]

Bonjour,
J'ai un formulaire avec 7 champs numériques, les 6 premiers champs je les renseigne manuellement, le 7e champ est la la somme des 6 autres renseigné par une formule, j'ai aussi ajouter un bouton "Enregistrer".
Je précise que tous mes champs sont liés à ma table via la propriété "Données" > champ de données.
J'ai lié au bouton "Enregistrer" dans les propriété général l'action " enregistrer l'enregistrement actif.
Lorsque j'appuie sur le bouton "Enregistrer" ma table se mets à jour à l'exception du "Champ numérique" renseigner par une formule ?
Est-ce que vous pouvez m'aider.
Merci

[micmac]

Bonjour et bienvenue sur le forum,

Joindre un fichier facilite le travail des bénévoles et peut s'avérer fort utile pour obtenir une solution adaptée.
Comment joindre un fichier.
Veillez également à dépersonnaliser votre fichier.
.

Libre Office version 7.5.3.2 sous Windows 10

Afin de profiter des dernières améliorations, pensez à être à jour de la dernière version officielle stable

[jeanmimi]

Bonjour,
C'est possible, sans Macro, en faisant faire le calcul dans une Requête et en affichant le résultat dans un sous-formulaire (SubForm) en relation avec le Formulaire (MainForm) principal.
Il y a plusieurs exemples dans le forum, comme ici :
https://forum.openoffice.org//fr/forum/ ... 75#p356775

[GJPierre]

Le calcul se fait correctement, selon cette macro

Code : Tout sélectionner

Sub SommeDesChamps
    Dim Form As Object
    Dim Field1 As Object
    Dim Field2 As Object
    Dim Field3 As Object
    Dim Field4 As Object
    Dim Field5 As Object
    Dim Field6 As Object
    Dim Field7 As Object
    Dim Field8 As Object
    Dim SumField As Object
    Dim Total As String
    Form = ThisComponent.DrawPage.Forms.getByName("MonFormulaire")
    
    Field1 = Form.getByName("Champ1") 
    Field2 = Form.getByName("Champ2") 
    Field3 = Form.getByName("Champ3") 
    Field4 = Form.getByName("Champ4") 
    Field5 = Form.getByName("Champ5") 
    Field6 = Form.getByName("Champ6") 
    Field7 = Form.getByName("Champ7")
    Field8 = Form.getByName("Champ8") 
    SumField = Form.getByName("Champ9") 
    
    Total = Field1.Value + Field2.Value + Field3.Value + Field4.Value + Field5.Value + Field6.Value + Field7.Value + Field8.Value
    SumField.value =Total

End Sub

seulement quand j'enregistre ces données dans ma table, le champ9 ne s'enregistre pas ?

[micmac]

Bonjour,

Bis repetita

Comment joindre un fichier.
Veillez également à dépersonnaliser votre fichier.

[GJPierre]

Bonjour,

Vous trouverez ci-joint une copie de ma base de donnée.

Bonnes salutations

[Dude]

Salut,

Comme l'indique jeanmimi, on ne stocke jamais d'informations calculées.
Ce que tu cherches à faire est contre-productif dans une base de données.

Tu n'as qu'une seule table dans ton ODB. Je ne vois pas l'intérêt d'utiliser Base dans ce cas.
Une feuille de calcul suffit d'autant que c'est pour faire un tirage de loto.

seulement quand j'enregistre ces données dans ma table, le champ9 ne s'enregistre pas ?

Les questions sur les macros se postent dans la bonne section (cf. bandeau rouge en haut de la page).
Je ne vois pas dans ton code, un quelconque commit pour faire cette action d'enregistrement.