Déclaration de variable access vba sur formulaire

Bonsoir,

Sur un formulaire que je lance, j'ai déclaré une variable en Public afin d'avoir la valeur dans la procédure suivante. Mais la valeur n'est pas reconnue

Pouvez vous m'indique pourquoi elle n'est pas reconnue ? je ne comprends pas !

Cordialement,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Option Compare Database
 
Option Explicit
Public ArticleRs As String
 
 
 Sub Form_Load()
 
 ArticleRs = InputBox("Entrer un code article", "Recherche de nomenclature")
Call ActualiseTV1
End Sub
 
 
 Sub ActualiseTV1()
 
Dim db As DAO.Database, rs As DAO.Recordset, sSql As String, s As String, sKey As String, sLib As String
'Dim ArticleRs As String
'
'
'On Error Resume Next
    Set db = CurrentDb
'ArticleRs = "TDF150464"
 
    'Effacer tous les noeuds
    Me.TV1.Nodes.Clear
 
     ' Mise en place des noeuds de niveau 0
    ' ------------------------------------
    'sSql = "SELECT DISTINCT [Article], [Statut], [Libellé]" _
    '& " FROM Requête1" _
    '& " WHERE [Article] = (TDF150464)"
    '& " ORDER BY  [Article], [Libellé]"
    Set rs = db.OpenRecordset("SELECT DISTINCT [Article], [Statut], [Libellé] FROM Requête1  WHERE (Requête1.Article = '" & ArticleRs & "')")
    If rs.RecordCount > 0 Then
        rs.MoveLast
        rs.MoveFirst
        While Not rs.EOF
        sKey = Nz(rs![Article])
        sLib = Nz(rs![Article]) & " : " & Nz(rs![Statut]) & " : " & Nz(rs![Libellé])
              Me.TV1.Nodes.Add Key:="Art: " & sKey, Text:=sLib
            rs.MoveNext
        Wend
    End If
    rs.Close