Discussion :

[amazon]

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

[curt]

Bonjour Amazon,

pourrais-tu nous expliquer ce qui ne fonctionne pas dans ton code sous Runtime ? Message d'erreur, mauvais résultat, rien, etc...

Bonne journée.
Curt

[amazon]

J'ai un RunTime error si cette fonction est activé dans l'application

Je pensais que le changement de la prorpiété Caption ne peut être changé avec Run Time.

L'application se ferme directement

[argyronet]

Bonjour,

Dans l'environnement Runtime, le mode Création est désactivé...

Argy