Discussion :

[cpichon]

Bonjour

je recherche la formule de programmation qu'il faudrait utiliser pour un VRAIFAUX mais avec 100 paramètres. En passant par un champ calculé dans une requête cela ne fonctionne pas car la formule est trop longue. Merci d'avance
par exemple :

Code :

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

VRAIFAUX([R=1;2;VRAIFAUX([R=2;2;VRAIFAUX([R=3;2;VRAIFAUX([R=1;1;ETC.....))))

[User]

Salut,

regarde du côté de la fonction switch:

Code :

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

Switch(expr1, valeur1 [, expr2, valeur2 ] … [, exprN, valeurN ] )

ou alors créer un fonction VBA dans un module avec l'instruction

Code :

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

1
2
3
4
5
6
7
select case ...
 
case ..
 
...
 
end select

A+

[cpichon]

merci pour cette réponse
mais comme je ne maitrise pas trop la programmation je patauge un peu !!
j'ai testé cette formule mais ça ne fonctionne pas :

danger2:Select case ([phrasesR]![NphraseR]
[Case 1 to 8
Msgbox " 2 "]
[case 9 to 41
Msgbox "3 "]
[Case 42 to 68
Msgbox "4"]
[case 69 to 89
Msgbox "5"]
[case 90
Msgbox "1"])
End select

en gros je voudrais que quand Nphrase = 1 à 8, alors il y a un 2 qui s'affiche dans un champ calculé
quand Nphrase = 9 à 41, un 3 s'affiche etc ....

merci d'avance pour votre aide

[User]

Re,

Il faut définir une fonction dans 1 module indépendant du stype:

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
Public Function MaFonction(R As Integer) As Integer
 
Select Case R
Case 1 To 8
MaFonction = 2
Case 9 To 41
MaFonction = 3
Case 42 To 68
MaFonction = 4
Case 69 To 89
MaFonction = 5
Case 90
MaFonction = 1
End Select
 
End Function

et après dans ta requête le champ calculé:

Code :

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

danger2:MaFonction([phrasesR].[NphraseR])

A condition que le champ NphraseR fasse partie de la requête ou table phrasesR.

Tu comprends le principe

A+

[cpichon]

Euhh !!
Où faut-il que je créé la nouvelle fonction ?
Et qu’est-ce-qu’un module indépendant ?

NphraseR fait bien partie de ma table phraseR, ça c’est ok !

La formule du champ calculé c’est bon mais c’est la nouvelle fonction que je ne vois pas trop comment créer !!
Merci par avance !!

[cpichon]

J'ai réussi à créer un module et à mettre la formule dans le champ calculé mais il me met un message d'erreur : erreur de compilation dans l'expression [phrasesR].[NphraseR]

[loufab]

Bonjour,

Il ne trouve pas cette expression. Remplace-la par le nom du champ que tu veux tester.

Cordialement,

Ps: Le forum n'a pas pour vocation de fournir du code clef en main mais plutot de faire de la vulgarisation didactique.