 | 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: | Philippe progOO (phvb...@free.fr) | |
| Date: | Nov 12, 2004 11:41:29 am | |
| List: | org.openoffice.fr.prog | |
Je vous suggère de déboguer votre macro en plaçant des messages d'info afin de savoir où est le problème. Je vous ai mis les messages dans le texte. Je neutralise les commandes oForm etc de chaque cas Si vous n'obtenez rien dans le message n°1 : revoyer les conditions d'obtention de Vall Si vous obtenez Vall dans Message n°1 et aucun dans le smessages suivant c'est que le select n'est pas correct Si vous obtenez le message 'autre' c'est clair qu'il faut compléter le select Si vous obtenez un des messages avec une valeur revoyez le texte de oForm.update etc.. Bonne suite
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,
Ludo