Bonjour,
j'ai ecrit une fonction pour convertir des saisies abrégées en leur équivalence complète.
j'ai des niveau de sports rentrés en abrégé (D, R, N) que je veux ressortir en Départementale, Régionale et Nationale.
Pas de problème pour écrire le module, je l'utilise ensuite dans une requette sous forme
Division:Niveau_jeu([Championnat])
où Niveau-jeu est ma fonction, Championnat mon champs à convertir.
Or, celà me ressort les mêmes abréviations sans les convertir.
je mets ma fonction, si quelqu'un peut me dire où j'ai m...

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
Option Compare Database
 
Function Niveau_jeu(ByVal niveau As Variant)
Dim division As String
 
If IsNull(niveau) Then Exit Function
 
Select Case niveau
Case "D": division = "division départementale"
Case "R3": division = "3ème division régionale"
Case "R2": division = "2ème division régionale"
Case "R1": division = "1ère division régionale"
Case "N3": division = "3ème division nationale"
Case "N2": division = "2ème division nationale"
Case "N1": division = "1ère division nationale"
Case "Pro B": division = "2ème division pro"
Case "Pro A": division = "1ère division pro"
Case Else: division = niveau
End Select
Niveau_jeu = niveau
End Function
Merci de votre aide.