Bonjour

Si j'essaie d'ouvrir mon fichier access avec une version Access Viewer , j'ai une erreur fatale d'éxécution au démarrage

Est-ce que c'est possible que le code ci-dessous ne soit pas exécutable avec Access viewer

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
16
17
18
19
20
21
22
23
24
Dim var As Variant
Dim Lang As String
Dim frm As Form
 
Lang = DLookup("FCLanguage", "TFCName", "FCCurrent = True")
 
For Each frm In Forms
 For Each ctl In frm.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" Then
        ctl.FontSize = 20
        Else:
            ctl.FontSize = 10
            'ctl.ForeColor = "#204D89"
        End If
    End If
    End If
 Next ctl
Next frm