Discussion :

[Cyphen]

Salut ^^

Comme le titre l'indique, j'aimerai réalisé un Treeview pour ma base... J'ai dejà consulté plusieurs sujets (nottament celui de Walden et NoBru) et le tutoriel mais j'avoue que cela m'a plus embrouillé qu'autre chose... J'ai aussi essayé de fouiller l'aide access ou encore de regarder si il n'y avait pas un assistant dans access mais visiblement j'ai fait choux blanc.

Sachant qu'en fait ce que je voudrais faire c'est un Treeview figé où on peut seulement naviguer et non éditer. Je m'explique:

Ma base de données contient des Outils qui ont un "Type" et un "Part Number". Sur un formulaire servant à avoir une vision globale des outils, j'aimerai une arborescence de ce style par exemple:

- Clés à molette
----> CM-01
----> CM-02
----> CM-03
(etc)
+ Tournevis
+ Règles
+ Manomètres

Sachant que ces informations sont contenues dans une seule et même table "Tools" avec les reférences "Tool Type" et "Part Number".

Le but final est d'afficher les autres infos relatives a ces outils dans des champs lorsque l'outil correspondant est en surbrillance dans l'arborescence.

Si quelqu'un peut m'éclairer sur la marche à suivre ca serait sympa ^^

Merci d'avance.

[Cyphen]

Voila j'ai essayé ca mais j'ai une erreur sur la création du child. A noter que j'ai bidouillé ce code en furetant sur divers endroit mais à priori il devrait marcher...

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
45
46
47
48
49
50
51
52
53
Private Sub Form_Load()
Const strTableQueryName = "ZLT Tools"
Dim db As DAO.Database, rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset(strTableQueryName, dbOpenDynaset, dbReadOnly)
AddBranch rst:=rst, strPointerField:="Tool Type", strIDField:="N°", strTextField:="Part Number"
End Sub
 
Sub AddBranch(rst As Recordset, strPointerField As String, _
              strIDField As String, strTextField As String, _
              Optional varReportToID As Variant)
 
   On Error GoTo errAddBranch
 
   Dim nodCurrent As Node, objTree As TreeView
   Dim strCriteria As String, strText As String, strKey As String
   Dim nodParent As Node, bk As String
 
   Set objTree = Me!xTree.Object
 
   If IsMissing(varReportToID) Then  
      strCriteria = strPointerField & " Is Null"
   Else  ' Search for records pointing to parent.
      strCriteria = BuildCriteria(strPointerField, _ 
           rst.Fields(strPointerField).Type, "=" & varReportToID)
      Set nodParent = objTree.Nodes("a" & varReportToID)
   End If
 
   rst.FindFirst strCriteria
   Do Until rst.NoMatch
 
      strText = rst(strTextField)
      strKey = "a" & rst(strIDField)
      If Not IsMissing(varReportToID) Then 
         Set nodCurrent = objTree.Nodes.Add(nodParent, tvwChild, strKey, strText)
      Else    
         Set nodCurrent = objTree.Nodes.Add(, , strKey, strText)
      End If
 
      bk = rst.Bookmark
 
      AddBranch rst, strPointerField, strIDField, strTextField, rst(strIDField)
      rst.Bookmark = bk     
      rst.FindNext strCriteria  
   Loop
 
exitAddBranch:
   Exit Sub
 
errAddBranch:
   MsgBox "Can't add child:  " & Err.Description, vbCritical, "AddBranch Error:"
   Resume exitAddBranch
End Sub