Discussion :

[Gabout]

Bonjour,

J’ai construit un treeview. Sur double-clic du libellé d’une branche, j’ouvre un formulaire de saisie qui récupère les libellés des différents niveaux de l’arbre : soit 5 niveaux numérotés de 0 à 4.

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
Private Sub Xtree_DblClick()
    Dim NodX As Node
    Dim Generation As Integer
    Dim oDb As DAO.Database
    Dim oRst As DAO.Recordset
    Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset("SELECT tREN.renid, tREN.renrisid FROM tREN;", dbOpenDynaset)
    Set NodX = Xtree.SelectedItem
    ChercherGeneration NodX, Generation
    If Generation < 4 Then
        oRst.Close: oDb.Close: Set oRst = Nothing: Set oDb = Nothing
        Exit Sub
    End If
    NodeEnCours = Mid(NodX.Key, 2)
    Laclé = CLng(NodeEnCours)
    oRst.FindFirst "renid=" & Laclé
    If oRst.NoMatch Then
      'Création de l'enregistrement
      oRst.AddNew
      oRst.Fields("renid").Value = Laclé
      oRst.Fields("renrisid").Value = 73
      oRst.Update
    End If
    oRst.Close: oDb.Close: Set oRst = Nothing: Set oDb = Nothing
    'Les variables publiques
    sUTR = Me.Xtree.Nodes(Laclé).Parent.Parent.Parent.Parent.Text
    sACT = Me.Xtree.Nodes(Laclé).Parent.Parent.Parent.Text
    sTAC = Me.Xtree.Nodes(Laclé).Parent.Parent.Text
    sARI = Me.Xtree.Nodes(Laclé).Parent.Text
    sREN = Me.Xtree.Nodes(Laclé).Text
    DoCmd.OpenForm "fRENEVA", , , "renid=" & Laclé, , acDialog
End Sub

Cela fonctionne … mais pas tout le temps . J’ai deux messages d’erreur différents :
Le premier Index hors limite et le second Variable objet ou variable de bloc With non définie.
Ces erreurs se déclenchent avant l’ouverture du formulaire de saisie, lorsque j’affecte la valeur des libellés aux variables publiques pour les récupérer à l’ouverture du formulaire de saisie.

Avez-vous une idée ?

[Pierre Fauconnier]

Bonjour

A mon avis, le code de chargement ou d'ouverture du formulaire serait plus utile que le code sur le double-click du treeview.

Peut-être placer un point d'arrêt sur ce code-là et voir en pas-à pas ce qu'il fait.

Signaler la ligne sur laquelle l'erreur se produit serait aussi judicieux...

[Gabout]

Re,

L'erreur se produit à l'évaluation des variables publiques

Code :

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

sUTR = Me.Xtree.Nodes(Laclé).Parent.Parent.Parent.Parent.Text

[Pierre Fauconnier]

Hum... il y a peu de chances que ce code isolé permette de solutionner le problème...

Je suppose que tu remontes un niveau trop haut, voire plus...

[Gabout]

Re,

J'ai trouvé : problème se syntaxe, il fallait écrire

Code :

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

1
2
3
4
5
sREN = NodX.Text
sARI = NodX.Parent.Text
sTAC = NodX.Parent.Parent.Text
sACT = NodX.Parent.Parent.Parent.Text
sUTR = NodX.Parent.Parent.Parent.Parent.Text

et non

Code :

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

1
2
3
4
5
sUTR = Me.Xtree.Nodes(Laclé).Parent.Parent.Parent.Parent.Text
sACT = Me.Xtree.Nodes(Laclé).Parent.Parent.Parent.Text
sTAC = Me.Xtree.Nodes(Laclé).Parent.Parent.Text
sARI = Me.Xtree.Nodes(Laclé).Parent.Text
sREN = Me.Xtree.Nodes(Laclé).Text

Je vais même essayer de lire le treeview depuis le formulaire de saisie.

Merci de ton aide Pierre, cordialement,