Bonjour,
J'ai cherché partout, dans la doc, dans les forum mais je n'ai pas trouvé de
réponse à ma question qui fonctionne.
J'ai deux tables MySQL liées. Un formulaire et un sous formulaire lié sous
Ooo2.1. J'ai une macro qui fonctionne parfaitement dans le formulaire principal.
J'ai essayé de la transposer dans le sous-formulaire. Là, choux blanc !
la macro est la suivante :
dim oForm as object
dim Val1 as string
dim Val2 as string
dim ValTotal as string
'Désactive les erreurs si la table n'existe pas
on error resume next
'oForm contient l'object formulaire nommé "Action"
oForm = ThisComponent.DrawPage.Forms.getByName("Action")
'Récupération des valeurs de Val1 et Val2 et élaboration de ValTotal
Val1=oForm.GetByName("probabilite").text
Val2=oForm.GetByName("gravite").text
ValTotal=Val1+" et " +Val2
'Cette ligne met à jour le champ "criticite" de la Bdd
oForm.updatestring(oForm.findColumn("criticite" ), ValTotal)
En inspectant cette macro avec Xray, oForm a bien pour Name "Action" mais Val1
et Val2 sont nuls.
Merci pour votre aide.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
