Discussion :

[chawiken]

Bonjour à tous

Voilà ma situation : J'ai un formulaire relié à une table dans lequel je renseigne notamment 3 notes dans trois champs (notes de A à C pour les champs S, C et P). Le champs suivant devrait être une synthèse de ces trois notes et afficher une note globale de A à C selon trois règles :
- deux notes identiques donnent la note finale
- la présence d'un C interdit une note finale de A
- ABC donne B

J'ai essayé de saisir dans l'éditeur d'expression une formule à grande doses de IIf avec tous les cas possibles (oui, je suis patient....) mais.... un message d'erreur m'indique que l'expression est trop complexe ou trop longue.

Il y a surement plus simple.... Merci pour votre aide

[marot_r]

Prinièrement quand je rencontre un cas comme cela je crée une fonction public en VBA que j'affecte ensuite au champ.

L'avantage du VBA c'est que le debugage et le test y sont plus facile.

Seconde astuce c'est de remplacer tes lettres par des valeurs numériques, d'en faire la moyenne, puis, de convertir cette moyenne en lettre.

Désolé je n'ai pas le temps de te donner plus de détails.

A+

[chawiken]

Merci pour ta réponse vive et fluide...


EN revanche, je ne comprends pas tout ce que tu dis (surtout pour le VBA)...alors si un jour tu as le temps... peut être alors pourras tu détailler ce qui est aujourd'hui l'énigme de ma journée...

Sincères salutations.. et à bientôt ...

[marot_r]

Tu peux utiliser un fonction que tu programme toi même en VBA.

Tu vas dans module, créer un nouveau module et tu y copie le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
public function CalculerNote(prmNote1 as string, prmNote2 as string, prmNote3 as string) as string
 
   dim result as string
 
   if result="" then
     'Décide à la majorité
 
     if (prmNote1=prmNote2 and prmNote1=prmNote3) then
         result=prmNote1
     else if (prmNote2=prmNote3) then 
         result=prmNote2
     end if
 
     if (prmNote1="C" or prmNote2="C" or prmNote3="C") and result="A" then
       'Il y a un C, la note max est B
       result="B"
     end if
 
   end if
 
   if result="" then
     'Il n'y a pas eu de majorité et pas de C, calcul de la moyenne
 
     dim m as single
     dim partieEntiereM as single
     dim partieDecimaleM as single
     dim n1 as single:n1=RemplacerLetttreParValeur(prmNote1)
     dim n2 as single:n2=RemplacerLetttreParValeur(prmNote2)
     dim n3 as single:n3=RemplacerLetttreParValeur(prmNote3)
 
     m=(n1+n2+n3)/3
     partieEntiereM=int(m)
     partieDecimaleM=m-partieEntiereM
 
     'Traite l'arrondi à la main pour avoir un meilleur contrôle.
     if partieDecimaleM>=.5 then
         m=partieEntiereM+1
       else
         m=partieEntiereM
     end if
 
     result=RemplacerValeurParLettre(m)       
  end if
 
  CalculerNote=result
end function
 
private function RemplacerLetttreParValeur(prmLettre as string) as single
   dim result as single
   select case prmLettre
      case "A":result=1
      case "B":result=2
      case "C":result=3
      case else
         error(5) :'Pas supposé arriver
   end select
 
   RemplacerLetttreParValeur=result
end function
 
private function RemplacerValeurParLettre(prmValeur as single) as string
   dim result as string
   select case prmValeur
      case 1:result="A"
      case 2:result="B"
      case 3:result="C"
      case else
         error(5) :'Pas supposé arriver
   end select
 
   RemplacerValeurParLettre=result
end function

Dans ton champ tu mets =CalculerNote([S];[C];[P])

A+

[chawiken]

Merci bien d'avoir pris de temps de me répondre. J'ai essayé donc ce que tu m'as proposé (je viens donc de découvrir la fonction "modules" !!) mais je me heurte à un problème plus bas... où dois-je mettre la formule "=CalculerNote([S];[C];[P])" ?? Directement dans la table en mode création ou dans mon formulaire dans l'éditeur d'expressions ?
J'ai essayé les deux et j'arrive au même message d'erreur : "Syntaxe SQL non valide - impossible d'utiliser plusieurs colonnes dans une contrainte de colonne de niveau CHECK"

Une solution ??

[marot_r]

Directement dans la table en mode création ou dans mon formulaire dans l'éditeur d'expressions ?

Tu ne peux pas le faire dans la table, ce n'est simplement pas possible. Tu peux utiliser la fonction dans une requète, dans un formulaire ou un rapport (état).

[marot_r]

De plus on ne garde généralement pas le résultat d'un calcul dans une table. Ca si les éléments qui composent le calcul change souvant le résultat n'est pas mis à jour.

A+