[A-07]: Erreur exécution avec Access Viewer

**amazon** · 19/02/2009, 18h06

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

**Pierre Fauconnier** · 19/02/2009, 18h51

Bonjour

Qu'entends-tu pas "access viewer"?

A priori, ce n'es pas un truc Microsoft...

Parles-tu du runtime? du Snapshot viewer?

Quoi qu'il en soit, je pense que la modification de police d'un contrôle ne sera pas acceptée par ces différents outils.

**amazon** · 23/02/2009, 10h28

Hello

C'est une version light de Access qui permet uniquement d'ouvrir un fichier mdb sans pouvoir faire de modification de design sur les tables et formulaires. Ce qui permet d'avoir access en licence gratuite

ça a été installé par le département IT, et je pense que c'est une version officielle Microsoft.

Sinon je dois m'orienter vers la solution Run Time.

Ou est-ce qu'il y a une autre solution pour changer les textes de label sur un formulaire?

Est-ce qu'il faut que je remplace mes Label par des Text Box?

Merci