[A-07]: Code VBA sous access RunTime
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:
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 |
