Re: [prog] OOo1.1.2: Base de données - connexion à une source? - Laurent Godard - org.openoffice.fr.prog

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:	Laurent Godard (lgod...@indesko.com)
Date:	Nov 12, 2004 11:58:04 am
List:	org.openoffice.fr.prog

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

elle cache les erreurs ! quand le programme bloque sur un point celà devient souvent tout de suite plus clair

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

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")

Bon courage

laurent

tens...@no-log.org a écrit :

Salut! Ca ne fonctionne toujours pas. Val_Adh affiche toujours 0 Voici l'état actuel de ma macro:

Sub Calcul_Formulaire() dim oContext as object dim oForm as object dim oChampTotal as object dim Val1 as string dim ValTotal as double 'Désactive les erreurs si la table n'existe pas on error resume next '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

MsgBox "Valeur de vall : "+Vall, 1, " Message n°1"

Select Case Val1 Case "Simple à 5,00€"

MsgBox "Valeur de vall : "+Vall, 1, " Message Case 5€"

' oForm.updateDouble(oForm.findColumn("VAL_ADH" ),5) Case "Atelier Normal à 20,00 €"

MsgBox "Valeur de vall : "+Vall, 1, " Message Case 20.00€"

' oForm.updateDouble(oForm.findColumn("VAL_ADH" ),20) Case "Atelier Réduit à 13,00 €"

MsgBox "Valeur de vall : "+Vall, 1, " Message Case 13.00€"

' oForm.updateDouble(oForm.findColumn("VAL_ADH" ),13) Case "Famille Référent. à 15,00 €"

MsgBox "Valeur de vall : "+Vall, 1, " Message Case 15.00€"

' oForm.updateDouble(oForm.findColumn("VAL_ADH" ),15) Case "Famille Non Référent à 10,00 €" MsgBox "Valeur de vall : "+Vall, 1, " Message Case 10.00€" ' oForm.updateDouble(oForm.findColumn("VAL_ADH" ),10) Case "Honneur (à partir de 25,00 €)"

MsgBox "Valeur de vall : "+Vall, 1, " Message Case 25.00€"

' oForm.updateDouble(oForm.findColumn("VAL_ADH" ),25) Case else

MsgBox "Valeur de vall : "+Vall, 1, " Message Case Autre"

' oForm.updateDouble(oForm.findColumn("VAL_ADH" ),0) End Select End Sub

Est-ce encore une erreur d'utilisation???

Merci pour l'aide,

	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: