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 54
|
Public Sub Remplir_treeview(tree As Object, Optional Article_Fab As Long = 0, Optional Key As String = "")
Dim sql As String
Dim rs As DAO.recordset
Dim Art_Fab As Long
If Article_Fab = 0 Then
sql = "select * from tblTreeview where [ArticleFab] Not In (select ArticleComposant from tblTreeview;)" & _
" order by ArticleFab, ArticleComposant ;"
Set rs = CurrentDb.OpenRecordset(sql, dbOpenDynaset)
Do Until rs.EOF
tree.Nodes.Add , , "f" & rs!ArticleFab, rs!FabDescription & rs!ComposantDescription
Art_Fab = rs!ArticleFab
Do While (Art_Fab = rs!ArticleFab)
tree.Nodes.Add "f" & Art_Fab, tvwChild, "f" & Art_Fab & "-" & rs!ArticleComposant, rs!FabDescription & rs!ComposantDescription
Remplir_treeview tree, rs!ArticleComposant, Art_Fab & "-" & rs!ArticleComposant
rs.MoveNext
If rs.EOF Then
Exit Do
End If
Loop
Loop
Else
sql = "select * from tblTreeview where [ArticleFab]=" & Article_Fab & _
" order by ArticleComposant;"
Set rs = CurrentDb.OpenRecordset(sql, dbOpenSnapshot)
Do Until rs.EOF
tree.Nodes.Add "f" & Key, tvwChild, "f" & Key & "-" & rs!ArticleComposant, rs!FabDescription & rs!ComposantDescription
Remplir_treeview tree, rs!ArticleComposant, Key & "-" & rs!ArticleComposant
rs.MoveNext
Loop
End If
rs.Close: Set rs = Nothing
End Sub
Private Sub Form_Open(Cancel As Integer)
Dim Tw As Access.Control
Set Tw = Me.twTreeView
FillTreeview Tw.Object
End Sub |
Partager