Discussion :

[Alvaten]

Bonjour,

J'ai une application VBA dans une fichier Acces avec laquelle je souhaite lire une constante qui se trouve dans un module d'un autre fichier Access.

J'ai trouvé comment ouvrir le module et y lancer une procédure mais pas comment lire une variable ou une constante qui s'y trouve.

Code du fichier principal:

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
 
Public Sub OpenDB(ByVal strDBPath As String)
    Dim db As Database
    Dim appAccess As Access.Application
    Dim strDBVersion As String
 
    On Error GoTo OpenError
 
    Set appAccess = New Access.Application
    appAccess.Visible = False
    appAccess.OpenCurrentDatabase strDBPath
    appAccess.DoCmd.OpenModule "mdlConstants" 'Ouvre le module
 
    Exit Sub
 
OpenError:
    appAccess.Quit
 
End Sub

Jusque là le code fontionne, le fichier et le module s'ouvre bien. J'ai testé plusieurs solution mais aucunne ne fonctionne.

Le module du second fichier contient:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Option Compare Database
Option Explicit
 
Public Const DB_VERSION As String = "1.00"

Est-ce que quelqu'un a une solution ?

Merci d'avance

[Jack78960]

Bonjour,

as tu pensé à changer la clause "Public" par "Global" dans "Public Const" ?

[Alvaten]

Salut,

Je vais essayer mais je ne trouve pas l'instruction qui me permet d'acceder à ma constante.