bonjour
je voudrais savoir comment faire pour pouvoir conevertir des chiffres en lettre sur access
merci d'avance
bonjour
je voudrais savoir comment faire pour pouvoir conevertir des chiffres en lettre sur access
merci d'avance
Bonjour,
Regarde dans la faq il y a le code complet.
Cordialement,
re bonjour
j'ai été sur la faq et rien du tout,ou peut d'etre je n'ai pas bien cherché, ou exactement svp ?
Bonjour
Tu as la FAQ et les SOURCES
http://access.developpez.com/sources...ffresEnLettres
Starec
merci
sauf que j'aimerais bien savoir dans quelle propriété je pourrais mettre ce code ?
merci d'avance
Re
Ce code est une fonction, tu rentres en paramètres de ta fonction ton chiffre, et il t'en ressort une chaine de caractére.
Starec
ok et cette fonction je doit l'integré dans le champ lui même ?
merci de repondre svp je suis si proche du but
merci encore
pour intégrer une fonction tu fais alt f11
puis insertion module
et tu tapes ta fonction
nb si tu as la flemme tu peux faire un copier/coller
tu peux ensuite faire en sql
select monchamp, mafonction(sonargument)
ou mettre mazonedetexte=mafonctionquifaitdeslettres(monchiffre)
re bonjour
je m'en excuse mais je ne trouve pas ou mettre la fonction, ca ne marche pas.
ce que je voudrais c de saisir un montant en chiffre sur le formulaire et a l'édition de l'état ce chiffre sera aussi traduit en lettre, comment faire ?
merci d'avance
Bonjour,
Dans ce cas,
EDIT: Aprés avoir créé le module contenant comme évoqué dans les précédents messages,
soit tu mets une expression dans la source de ton état, comme le mentionne random Nb2Mot(MonChamp)
(où biensur MonChamp est remplacer le nom effectif de ton champ)
soit tu places un controle indépendant dans ton état dans lequel tu mets cette même expression.
dans tous les cas de figure il vaut mieux mettre les fonctions dans un module
ceci permet de l'invoquer dans toute la base
ca marche merci les gars j'ai meme compris le principe de la fonction
merci encore
reponse: chercher à créer une requête et dans votre requête, selectionner un champ et introduire cette formule: NbreEnlettres([]) exemple: j'ai une table avec des attributs: désignation, Qtés, montant. je crée une requête avec un champ calculé intitulé "montant en lettre"; dans ce champ, on peut convertir cette zone avec cette formule: montant en lettre:NbreEnLettres([Qtés])
une aide svp !!!! je peux avoir le meme code en anglais merciiiiiiiiiiiiiiiii
bonjour,
il y a une solution donnée par le support Microsoft ici: mais ils ont laissé la monnaie (là bas, c'est le dollar), plutôt que changer la monnaie pour une autre en fixe, je l'ai un petit peu modifiée en ajoutant un paramètre monnaie, on l'utilise donc comme cela:
et si on précise la monnaie de son choix:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 ? SpellNumber(1234.56) One Thousand Two Hundred Thirty Four Dollars and Fifty Six Cents
Code à insérer dans un nouveau module ou un module existant (dans ce cas enlever l'instruction 1):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 ? SpellNumber(1234.56,"Euro") One Thousand Two Hundred Thirty Four Euros and Fifty Six Cents
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225 Option Compare Database Function SpellNumber(ByVal MyNumber, Optional MyMoney) 'Main Function Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' String representation of amount. MyNumber = Trim(str(MyNumber)) ' Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ".") ' Convert cents and set MyNumber to dollar amount. If DecimalPlace > 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars & " Dollars" End Select Select Case Cents Case "" Cents = " and no Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & Cents & " Cents" End Select ' remplacement de la monnaie par défaut ajout de tee_grandbois If Not IsMissing(MyMoney) Then Dollars = Replace(Dollars, "Dollar", MyMoney) SpellNumber = Dollars & Cents End Function Function GetHundreds(ByVal MyNumber) ' Converts a number from 100-999 into text Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) ' Convert the hundreds place. If Mid(MyNumber, 1, 1) <> "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Convert the tens and ones place. If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) ' Converts a number from 10 to 99 into text. Dim Result As String Result = "" ' Null out the temporary function value. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19... Select Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Nineteen" Case Else End Select Else ' If value between 20-99... Select Case Val(Left(TensText, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Result = "Forty " Case 5: Result = "Fifty " Case 6: Result = "Sixty " Case 7: Result = "Seventy " Case 8: Result = "Eighty " Case 9: Result = "Ninety " Case Else End Select Result = Result & GetDigit(Right(TensText, 1)) ' Retrieve ones place. End If GetTens = Result End Function Function GetDigit(Digit) ' Converts a number from 1 to 9 into text. Select Case Val(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five" Case 6: GetDigit = "Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else: GetDigit = "" End Select End Function
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager