Discussion :

[Robbit]

Bonjour,

Première demande spécifique de ma part! Je suis un développeur Access d'excellent niveau mais là je nage dans la purée!

J'ai créé une application bilingue à 100%. Au chargement de mes formulaires je fais appel à une fonction appelé ChangerLangue() à laquelle je passe le nom du formulaire (Me.Name). Je passe en revue tous les contrôles du formulaire afin de changer la valeur du ".Caption".

Mon problème survient avec un sous-formulaire. Le nom du sous-formulaire ne dit rien à ma fonction. Et si j'essais de faire un "Set frm = Forms(MyForm)" d'une chaîne désignant un formulaire et un sous-formulaire et bien ça génère une erreur. Incompatibilité de type.

Voici ma fonction. pLangue est une variable globale initialisée au démarrage en fonction de l'utilisateur (français = true, anglais = false)

Merci de votre aide. Je donnerai plus de détails s'ils s'avèrent nécessaires. JM



ChangerLangue(ByVal MyForm As Variant)
Dim frm As Form
Dim Ctrl As Control
Dim strnom As String

Set frm = Forms(MyForm)

For Each Ctrl In frm.Controls

Select Case Ctrl.ControlType
Case acCommandButton, acLabel, acPage
strnom = Nz(DLookup(IIf(pLangue = True, "[Francais]", "[Anglais]"), _
"Libelle", _
"[NomControle] =""" & Ctrl.Name & """ AND [NomFormEtat] ='" & frm.Name & "'"), "")
Ctrl.Caption = strnom
End Select
Next Ctrl

End Function

[Oleff]

Bonjour et bienvenu,
Suggestion peut être bête : as-tu placé ta méthode sur chargement du sous-formulaire ?

[mout1234]

Bonjour,

Tu lui envoies quoi comme valeur à ta fonction dans le cas d'un sous formulaire?


Pour rappel, un sous formulaire ne fait pas partie de la collection Forms et ne peut donc être pointé par Forms(...). Tu dois donc prévoir un traitement spécifique pour ce sous formulaire ou, plus simplement, remplacer ton argument MyForm par un objet Form. A l'appel tu fournis Me!MonControlSF.Form.

Je suis un développeur Access d'excellent niveau

J'espère être à la hauteur

[marot_r]

Suggestion : Mettre ta fonction de changement de langue dans ton sous-formulaire, déclenché au chargement.

L'appel serait un truc du genre

Code :

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

1
2
 
call ChangerLangue(me)

Si tu passes le form en paramètre pas seulement le nom tu ne devrai plus avoir à faire

Code :

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

Set frm = Forms(MyForm)

tu pourrais faire

Code :

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

For each c in MyForm.controls

Accessoirement je te suggère la signature suivante pour ta fonction

Code :

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

1
2
 
ChangerLangue(ByVal MyForm As String)

Typer ses variables fait partie des pratiques recommandées de programmation.

Et si tu retiens mon idée la signature serait

Code :

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

1
2
 
ChangerLangue(MyForm As form)

A+

[pgz]

Bonjour,

Sans me distinguer des réponses précédentes, mais pour résumer :
- modifier la procédure : variable de passage de type form
- à chaque ouverture de formulaire créer une instance pour ce formulaire et chacun de ses sous-formulaires
-appeler la procédure avec ces instances.

Bon courage,

PGZ

[Robbit]

Merci à tous,

Je n'attendais pas autant de réponses en si peu de temps...

J'avais déjà essayé de passer le formulaire plutôt que son nom en paramètre, mais dans la fonction, il ne considérait pas le sous-formulaire comme un objet Form...

En fouillant j'ai découvert que l'objet .Subform existait!! (Jamais vu ni utilisé en plus de 10 ans de développement Access) Et ça fonctionne à merveille. Waouh! Merci de vos recommandations et idées mais je vais poursuivre avec cette solution. (Reste à tester avec un sous-formulaire de plus de deux niveaux)

En passant, cette fonction de changement de noms d'étiquettes, de pages d'onglets et de boutons de commandes est très efficace et rapide. À mettre dans l'événement "Chargement" du formulaire car cet événement survient juste avant l'affichage à l'écran. Ce qui empêche de voir le changement à l'écran. (Même si c'est une fraction de seconde)

J'ai dû créer aussi une fonction spécifique pour les Infobulles et les textes de barre d'état.

Voici donc la fonction corrigée et fonctionnelle!

Public Function ChangerLangueSF(ByVal MyForm As Variant, _
ByVal MySubForm As Variant)

Dim frm As Form
Dim frmSub As SubForm
Dim Ctrl As Control
Dim strnom As String

Set frm = Forms(MyForm)
Set frmSub = frm.Form(MySubForm)

For Each Ctrl In frmSub.Controls

Select Case Ctrl.ControlType

Case acCommandButton, acLabel, acPage

strnom = Nz(DLookup(IIf(pLangue=True, "[Francais]", "[Anglais]"),
"Libelle", _
"[NomControle] =""" & Ctrl.Name & """ AND [NomFormEtat] ='" & frmSub.Name & "'"), "")
Ctrl.Caption = strnom
End Select
Next Ctrl

End Function

[Robbit]

Mes plus plattes excuses d'avoir fait fi de vos réponses.

Je viens tout juste de tester la solution de marot_r et c'est beaucoup plus simple que la mienne...

Ma fonction je l'appelais du formulaire principal pour traiter tous les sous-formulaires. La je l'appel de chaque formulaire sans notion d'objet Subform. Aussi efficace, moins de code! Goood!

Merci encore à tous!

Robbit