[AC-2007] Mise à jour simultannée [Résolu]

[microsophistic]

Bonjour à toutes et tous,
Je rencontre une difficulté pour mettre à jour plusieurs contrôles lorsque je saisie dans un autre, je m’explique :
Je tente de faire une base pour convertir en plusieurs langues (Français, Italien, Allemand, Anglais et arabe pour le moment…) un nombre en lettres ; par exemple je saisie dans un contrôle un nombre avec ou sans décimale et cela m’affiche dans 5 contrôles différents le nombre en lettre dans la langue voulue. Dans l’utilisation que je veux faire de cette base j’ai une liste avec les langues et j’ai empilé les 5 contrôles pour ne voir que celui qui est sélectionné dans la liste et j’ai mis comme événement dans le formulaire la chose suivante :

Code :

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
Private Sub Langue_AfterUpdate()
DoCmd.RunCommand acCmdSaveRecord
 If Me.Langue.Text = "Français" Then
        Me![Français].Visible = True
        Me![Italien].Visible = False
        Me![Anglais].Visible = False
        Me![Arabe].Visible = False
        Me![Allemand].Visible = False
        Else
If Me.Langue.Text = "Italien" Then
        Me![Italien].Visible = True
        Me![Français].Visible = False
        Me![Anglais].Visible = False
        Me![Arabe].Visible = False
        Me![Allemand].Visible = False
        Else
 If Me.Langue.Text = "Anglais" Then
        Me![Anglais].Visible = True
        Me![Français].Visible = False
        Me![Italien].Visible = False
        Me![Arabe].Visible = False
        Me![Allemand].Visible = False
        Else
If Me.Langue.Text = "Arabe" Then
        Me![Arabe].Visible = True
        Me![Français].Visible = False
        Me![Italien].Visible = False
        Me![Anglais].Visible = False
        Me![Allemand].Visible = False
        Else
 If Me.Langue.Text = "Allemand" Then
         Me![Allemand].Visible = True
        Me![Anglais].Visible = False
        Me![Français].Visible = False
        Me![Italien].Visible = False
        Me![Arabe].Visible = False
        End If
        End If
        End If
        End If
        End If
End Sub

Donc, jusque là tout va bien, par contre je souhaiterai que les cinq contrôles se mettent à jour simultanément à la saisie du nombre à convertir sans avoir besoin de cliquer ailleurs pour la mise à jour.

Merci d’avance à celles et ceux qui voudront bien m’aider.
Cordialement

[loufab]

Bonjour,

Attention à la propriété Text, elle n'est pas ce qu'elle prétend, surtout après un Afterupdate. Utilise plutot Value ou ne met rien.

Sinon pour ton problème regarde le tuto sur les appels formulaires sur ma page.

C'est exactement ce que tu cherches.

Cordialement,

[microsophistic]

Merci pour la réponse, concernant text j'ai changé avec value et ça fonctionne bien... par contre, je n'ai pas trouvé la page où se trouve la réponse à ma demande.
Suis désolé d'ajouter que je n'ai pas beaucoup d'expérience avec access et suis surpris d'avoir bien avancé dans ce projet grâce à l'aide que je reçois ici.
Cordialement

[microsophistic]

Bonjour à toutes et tous et plus particulièrement à Loufab,
Finalement j’ai trouvé la page mais cela dépasse mes compétences … pour être plus précis voici en détail mon problème :
J’ai une base avec une table « Tbl_Clientèle », un formulaire « Clients » dans lequel j’ai une liste de choix comportant les noms des 5 langues à traduire (il y a 5 modules différents correspondant aux 5 langues pour faciliter la gestion de l’orthographe de chacune), un contrôle nommé « Montant » dans lequel j’indique des nombres avec 3 décimales et 5 contrôles nommés « Anglais », « Français », Italien », « Allemand » et « Arabe » qui fonctionnent bien mais uniquement lorsque je clique sur un des contrôles figurant sur le formulaire; ce que j’espère obtenir est que lorsque que je commence a indiquer un nombre la traduction se fasse simultanément dans les 5 contrôles, par exemple si j’indique « 1 » dans le contrôle « Montant » il faudrait que « un » apparaisse dans le contrôle « Français » (même résultat dans les autres dans leur langue) si j’ajoute « 2 » à « 1 » qu’il apparaisse « douze » ainsi de suite.
Merci encore pour l’aide que vous voudrez bien apporter.
Cordialement

[loufab]

Bonjour,

Il ne faut donc pas utiliser Afterupdate.

Je te conseille de lire le tuto suivant : http://loufab.developpez.com/tutorie...ss/evenements/

en plus du précédemment indiqué :
http://loufab.developpez.com/tutorie...pelformulaire/

Cordialement,

[microsophistic]

Bonsoir à toutes et tous,
Suis désolé cher Loufab mais je n'ai pas trouvé ce que je cherche...
j'ai une base dont je m'inspire (pour ne pas dire copie...) qui propose la mise à jour du contrôle en temps réel... mais la mienne est très différente et intègre la langue arabe, ce qui m'a posé bcp de problème (merci à Hocine pour le coup de main) aussi je fais appel aux champions du code vba pour toute aide à la solution.
Cordialement

[loufab]

Bonjour,

Désolé je ne suis pas du tout expert en developpement arabe.

Cordialement,