Discussion :

[grimgrim]

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 :

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
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

[tee_grandbois]

Bonjour,
il faut déclarer la variable dans un Module à part :

Code :

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

1
2
3
4
Option Compare Database
 
Option Explicit
Public ArticleRs As String

dans le formulaire :

Code :

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

1
2
3
4
5
 Sub Form_Load()
 
 ArticleRs = InputBox("Entrer un code article", "Recherche de nomenclature")
Call ActualiseTV1
End Sub