 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
19 messages in org.openoffice.fr.progRe: [prog] OOo1.1.2: Base de ...| From | Sent On | Attachments |
|---|---|---|
| tens...@no-log.org | Nov 11, 2004 10:04 am | |
| Tony GALMICHE | Nov 11, 2004 10:53 am | |
| Laurent Godard | Nov 11, 2004 11:12 am | |
| tens...@no-log.org | Nov 11, 2004 11:13 am | |
| tens...@no-log.org | Nov 11, 2004 11:24 am | |
| tens...@no-log.org | Nov 12, 2004 6:28 am | |
| Laurent Godard | Nov 12, 2004 6:48 am | |
| tens...@no-log.org | Nov 12, 2004 7:44 am | |
| Laurent Godard | Nov 12, 2004 7:52 am | |
| tens...@no-log.org | Nov 12, 2004 8:40 am | |
| Philippe progOO | Nov 12, 2004 11:41 am | |
| Laurent Godard | Nov 12, 2004 11:58 am | |
| Bernard Marcelly | Nov 12, 2004 12:23 pm | |
| Alex Thurgood | Nov 13, 2004 3:17 am | |
| tens...@no-log.org | Nov 13, 2004 9:38 am | |
| tens...@no-log.org | Nov 13, 2004 10:34 am | |
| Alex Thurgood | Nov 15, 2004 12:42 am | |
| Philippe progOO | Nov 16, 2004 2:08 am | |
| tens...@no-log.org | Nov 16, 2004 3:10 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | Re: [prog] OOo1.1.2: Base de données - connexion à une source? | Actions... |
|---|---|---|
| From: | tens...@no-log.org (tens...@no-log.org) | |
| Date: | Nov 13, 2004 10:34:28 am | |
| List: | org.openoffice.fr.prog | |
Bonjour, (l'état actuel de la macro est reprise en fin de courriel)
Re,
Je vous suggère de déboguer votre macro en plaçant des messages d'info afin de savoir où est le problème.
J'ajouterais desactiver la ligne de on error resume next
OK Une erreur se produit effectivement à la ligne suivante: Val1=oForm.GetByName("TYPE_ADH").effectivevalue Le boîte de dialogue d'erreur affiche "Propriété ou méthode introuvable"
elle cache les erreurs ! quand le programme bloque sur un point celà devient souvent tout de suite plus clair
En effet, merci.
d'ailleurs on error resume next devrait etre evité au maximum si il y a une erreur, c'est pour quelque chose donc autant la traiter plutot que la sauter
Merci, je m'en souviendrai.
regarde du cote de la definition des elements de ton formulaire il me semble qu'il te manque un getControl quelquepart oform.getControl("TYPE_ADH")
En effet, il n'yen a pas. Mais je ne sis même pas à quoi ça sert (l'aide en
local ne
m'éclaire pas vraiment sur ce point).
Bon courage
laurent
La macro en est là:
Sub Calcul_Formulaire() dim oContext as object dim oForm as object dim oChampTotal as object dim Val1 as String 'oForm contient l'object formulaire nommé "Formulaire2" oForm = ThisComponent.DrawPage.Forms.getByName("Standard") 'oChampTotal contient le champ de formulaire à calculer oChampTotal=oForm.GetByName( "VAL_ADH" ) 'Récupération des valeurs de Champ1 et Champ2 et calcul du Total Val1=oForm.GetByName("TYPE_ADH").effectivevalue Select Case Val1 Case "Simple à 5,00 " oForm.updateDouble(oForm.findColumn("VAL_ADH" ),5) Case "Atelier Normal à 20,00 " oForm.updateDouble(oForm.findColumn("VAL_ADH" ),20) Case "Atelier Réduit à 13,00 " oForm.updateDouble(oForm.findColumn("VAL_ADH" ),13) Case "Famille Référent. à 15,00 " oForm.updateDouble(oForm.findColumn("VAL_ADH" ),15) Case "Famille Non Référent à 10,00 " oForm.updateDouble(oForm.findColumn("VAL_ADH" ),10) Case "Honneur (à partir de 25,00 )" oForm.updateDouble(oForm.findColumn("VAL_ADH" ),25) Case else oForm.updateDouble(oForm.findColumn("VAL_ADH" ),0) End Select print Val1 End Sub