Discussion :

[morobaboumar]

Bonjour membres du forum,
Pourriez vous m'indiquer où pourrais je activer l'option la syntaxe de formule et l’utilisation des
CHIFFRE.ARABE dans Access ?
Exemple:



Je souhaite saisir les notes scolaires des matières arabes avec des chiffres arabes.
Cordialement.

[EricDgn]

Bonjour,

Il est possible d'utiliser la fonction suivante pour convertir un nombre en texte utilisant les caractères arabes:

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
Option Explicit
 
Public Function NbAr(n As Variant) As String
    '--- nombre converti en texte arabe
    Dim sNb As String
    If IsNull(n) Then
        NbAr = ""
    Else
        sNb = CStr(n)
        sNb = Replace(sNb, "9", ChrW(&H669))
        sNb = Replace(sNb, "8", ChrW(&H668))
        sNb = Replace(sNb, "7", ChrW(&H667))
        sNb = Replace(sNb, "6", ChrW(&H666))
        sNb = Replace(sNb, "5", ChrW(&H665))
        sNb = Replace(sNb, "4", ChrW(&H664))
        sNb = Replace(sNb, "3", ChrW(&H663))
        sNb = Replace(sNb, "2", ChrW(&H662))
        sNb = Replace(sNb, "1", ChrW(&H661))
        sNb = Replace(sNb, "0", ChrW(&H660))
        sNb = Replace(sNb, ".", ChrW(1643))
        NbAr = sNb
    End If
End Function

mais il y a peut-être encore plus simple.
Cordialement.

[morobaboumar]

Bonsoir EricDgn,
Votre intervention m'apporte toujours la solution à mes recherches !

mais il y a peut-être encore plus simple.

Pourriez vous m'expliquer comment programmer le plus simple
car je voudrais saisir les notes des matières arabes avec des chiffres arabes.
Je niai pas retrouvé le contexte de ces chiffres dans les options d'Access.
Par contre dans Word le contexte de ses chiffres s'y trouve.

Cordialement.

[EricDgn]

Il y a "peut-être" encore plus simple ... et justement, je n'en sais rien! Peut-être quelqu'un d'autre!

Cependant comme vous voulez encoder des notes, il ne sera à mon avis pas possible de les conserver autrement qu'en tant que nombres (et donc en chiffres latins) vu qu'il faudra faire des calculs dessus (sommes, moyennes, etc.). Avec la fonction proposée, le plus simple est, dans les formulaires, d'encoder les nombres de la façon habituelle (chiffres latins) et d'afficher à côté ces nombres en chiffres arabes. Dans les états, ces nombres peuvent être présentés en chiffres arabes uniquement (en utilisant la fonction proposée). Voilà mon avis.

Cordialement.

[morobaboumar]

Il y a "peut-être" encore plus simple ... et justement, je n'en sais rien! Peut-être quelqu'un d'autre!
Cependant comme vous voulez encoder des notes, il ne sera à mon avis pas possible de les conserver autrement qu'en tant que nombres (et donc en chiffres latins) vu qu'il faudra faire des calculs dessus (sommes, moyennes, etc.). Avec la fonction proposée, le plus simple est, dans les formulaires, d'encoder les nombres de la façon habituelle (chiffres latins) et d'afficher à côté ces nombres en chiffres arabes. Dans les états, ces nombres peuvent être présentés en chiffres arabes uniquement (en utilisant la fonction proposée). Voilà mon avis.

Merci pour l'éclaircissement. Justement c'est ce que j'ai compris en faisant ceci avec le sousFrm NOTES_CLASSES_ARABES_SF uniquement:



mais lorsque j'affiche le frm principal avec le sousFrm NOTES_CLASSES_ARABES_SF,
voici comment les notes converties se présentent:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Current()
  Me.txtLigneActive = Me.idNotesArabe
  Me.NoteConvertieArabe = NbAr([Note])
End Sub
 
Private Sub Note_AfterUpdate()
Me.NoteConvertieArabe = NbAr([Note])
End Sub

Pièce jointe

Cordialement

[EricDgn]

Bonjour,

Il faut supprimer Note_AfterUpdate() et mettre directement en propriété "Source contrôle" du champ NoteAR: =NbAr([Note]).

A noter que s'il faut systématiquement afficher les 2 chiffres décimaux, il faux remplacer l'instruction CStr(n) par celle-ci:

Code :

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

        sNb = Format(n, "0.00")

Cordialement.

[morobaboumar]

Bonjour,

Il faut supprimer Note_AfterUpdate() et mettre directement en propriété "Source contrôle" du champ NoteAR: =NbAr([Note]).

A noter que s'il faut systématiquement afficher les 2 chiffres décimaux, il faux remplacer l'instruction CStr(n) par celle-ci:

Code :

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

        sNb = Format(n, "0.00")

Cordialement.

Bonjour EricDgn,
Voilà j'ai effectué le changement tel que vous me le suggéré mais toujours les mêmes erreurs signalées:





Apres test, ça marche en formulaire principal mais pas en sous formulaire.
Pourriez vous faire des test avec la pièce jointe postée ?
Cordialement.

[EricDgn]

Juste pour vous dire que le fichier attaché est vide, ne contient que le nom du dossier.
Quelle est la valeur de n au moment de l'erreur ?
Cordialement.

[morobaboumar]

Juste pour vous dire que le fichier attaché est vide, ne contient que le nom du dossier.
Quelle est la valeur de n au moment de l'erreur ?
Cordialement.

La voilà: Erreur d'Exécution 2424




Remarque: il y a trois formulaires superposés:
1_ NOTES_DE_COMPOSITIONS_AR qui est le principal,
2_ INFOS_COMPOSITION_ARABE_SF qui est le premier sous form,
3_ NOTES_CLASSES_ARABES_SF qui est le sous formulaire de INFOS_COMPOSITION_ARABE_SF





Je trouve que l'erreur vient du fait que quand les trois formulaires superposés sont chargés,
il y a message d'erreur. Sinon quand les 2 forms superposés sont chargés, il n'y a de message d'erreur
(voir les captures d'écran). Je rappelle la valeur de n au moment de l'erreur est Erreur d'Exécution 2424.

Cordialement.

[morobaboumar]

Bonjour EricDgn,
Compte tenu du fait que le code marche avec 2 formulaires superposés et avec l'état, en attendant de trouver
la solution finale du fait qu'avec 3 formulaires superposés, le code affiche des erreurs, je vais m'arrêter
là pour l'instant.
Merci infiniment.
Bien à vous.
Cordialement.