Bonjour,

Est-ce qu'il y a une solution pour que le code suivant fonctionne quand on utilise le fichier avec Access RunTime?

Le but de ce code est de modifier le Caption du Text Box, pour changer la langue affichée à l'écran en fonction de l'utilisateur.

Merci

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
 For Each ctl In Forms(FrmName).Controls
    If ctl.ControlType = 100 Or ctl.ControlType = 104 Then 'CHECK IF TYPE LABEL (100) OR TYPE COMMAND (104)
      var = DLookup(Lang, "TLanguage", "LabelName= '" & ctl.Name & "'")
    If var <> "" Then
        ctl.Caption = var
        ctl.FontName = "Arial"
        If Left(ctl.Name, 4) = "List" Or Left(ctl.Name, 5) = "Title" Then
        ctl.FontSize = 20
        Else:
        ctl.FontSize = 10
        End If
 
    End If
    End If
 Next ctl