Langue utilisateur

Ouvrir un Formulaire dans la langue de l'utilisateur

Enregistrer dans le dossier de l'application un fichier texte NomduForm_FRA.ini qui contiendra les trois valeurs nécessaires séparées par une Tabulation: Nom du Contrôle (Tab) Propriété (Tab) Valeur

lblEtiquette-a-Traduire (tab) Caption (tab) Libellé de mon étiquette
txtZonedeTexte-a-Traduire (tab) ControlTipText (tab) Texte d'aide à afficher
cboZonedeListe-a-Remplir (tab) Rowsource (tab) valeur1;valeur2;valeur3;valeur4

Penser à récupérer la Fonction API LangueAbregee pour lire les paramètres régionaux.

Voilà, il ne reste plus qu'à laisser le formulaire lire le fichier .ini à l'ouverture :
 

Private Sub Form_Open(Cancel As Integer)
    Call PopulateControls
End Sub

Sub PopulateControls()
    On Error Resume Next
    Dim F As Integer
    Dim LeFichier As String
    Dim txtLine As String
    Dim arrayLine As Variant

    LeFichier = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "", -1)) _
                & Me.Name & "_" & LangueAbregee() & ".ini"

    F = FreeFile

    Open LeFichier For Input As #F
    If Err.Number > 0 Then Exit Sub

    Do While Not EOF(F)
        Line Input #F, txtLine
        arrayLine = Split(txtLine, vbTab)
        Me(arrayLine(0)).Properties(arrayLine(1)) = arrayLine(2)
    Loop

    Close #F
End Sub